

TIME CLOCK 0CC54C41 PUNID 


IIOIIKCP 




CARD 


ID C8000295 DIST. OF 3/Cl 


3/01 PAGE NUMBER 250 






LINE LCCATICN 


BINARY CUTPUT 




NAf^E 


STATEMENT 


LOCATION 230106 






1» 


23C106.4G 


230111.22 


30 










LV,$9,RRCCW 




OB000295 




2* 


230107.00 


000017.23 


OD 










V-I,$9,15.0 




OB000295 




3* 


230107,40 


230411.00 


80 


GCOOOO. 


.12 


A9 




TI,5,RDLE0F,0.0{$9) 




GB00029& 




<• 


230110.40 


224162.50 


00 










B,VRD£E 




OBOO0297 




5« 


230111.00 


CCC0C0.40+ ( 


]00 


000000 occcoc 


RRCCW 


XW, 0.32,0 




08000298 




<» 


230112.00 


777777.37 


31 








RCREJB 


LVE,$15,-1.C(VP) 




OB000299 




7« 


230112.40 


224310.37 


04 










KVI,$i5,VSC10*1.0 




OB000299 




£« 


230113.00 * 


230116.32 


CO 










BZXE,$+3.0 




OB000299 




S« 


230113.40 


000033.22 


30 










LV,VT5,VS2 




OB000300 




1C» 


230114.00 


000000.27 


01 










LVIiVS2,C 




OB000300 




11* 


230114.40 


COOOOO.CO 


81 










SIC,(VP) 




OB000301 




12* 


230115.00 


224456.43 


48 










C8+,\/P,VNXT 




OB000301 




13* 


230115.40 


225250.07 


01 










LVI,VU,VSC 




OB000302 




14» 


230116.00 


230120.63 


09 










LVNI,VT5, RCNXRJ 




OB000302 




15* 


230116.40 


COOOOO.CO 


81 










SIC,(VP) 




0B000303 




It* 


230117.00 


224456.43 


48 










CB+,VP,VNXT 




OB000303 




17* 


230117.40 


225250.07 


01 










LVI,VU,VSC 




0B000304 




1£» 


230120.00 


224671.43 


C8 








RSAM 


CB-,VP, VSETX 




OB000305 




IS* 


230120.40 


225266.07 


04 








RCNXRJ 


KVI,VU,VWT 




OB000306 




2C» 


230121.00 


230251.32 


C2 










BXE,RECRWT 




OB000306 




21* 


230121.40 


777777.37 


Bl 










LVE,$15,-1.0{VP} 




OB000307 




22* 


230122. CO 


225176.77 


04 










KVI,$1?,VSWP3+1.C 




0R000308 




23* 


230122.40 


230151.32 


02 










BXE, RSCNO 




0B000308 




24* 


230123.00 


224602.77 


04 








RKIOOO 


KVI,$15,VSECJ+2.C 




08000309 




25* 


230123.40 


230120.32 


C2 










BXE,RSAM 




OB000309 




26* 


230124.00 


224105.04 


80 


2 30146, 


>34 


02 




BBtVVSCR.4fRC0WMK 




0B000310 




21* 


230125.00 


224104.00 


80 


224103, 


01 


AO 




TBI,16,ZLSTBF,ZLSTBF- 


-1.0 


0B000311 




2E» 


230126.00 * 


230134. CC 


80 


224064, 


ic 


AC 




TI, 4, RBFFUK, Z^«SGeF 




0B000312 




2S« 


230127.00 


215571. CC 


80 










SICSPRIMR 




08000313 




3C» 


230127.40 


215570.04 


00 










BD,SPRINE 




06000313 




31* 


230130.00 


000103.40 


80 










,$SPR 




OB000313 




32* 


230130.40 


224064.00 


80 










,ZKSGBF 




OB000313 




33* 


230131.00 


OOOCOl.CC 


80 










,1.0 




DB000313 




34* 


230131.40 


215571. CC 


'30 










SICSPRIMR 




OB000314 




35* 


230132.00 


215570.04 


00 










8D,SPRI^'E 




OB000314 




36* 


230132.40 


000101. CC 


80 










,$£CJ 




OB000314 




37* 


230133.00 


224450.40 


00 










8E,VRTN 




0B000315 


20 


3€* 


230133.40 


C0CC00.30 


00 










CNOP, 




0B000316 


19 


3S» 


230134.00 












RBFFUK 


IA*)DOCBU),TINPUT UK 


TROUBLE TERHINATEO JOB* 


OB000317 


18 


4C* 


230140.00 * 












RCI^MUK 


(IQS*)DCIBU), INPUT 


SKIPPED A JOE BECAUSE OF UK DIFFICULTY » 


OB000318 


17 


41* 


230146.00 


000040.10 


CO 








RCCM1«K 


8,$MCP 




OB000319 


16 


42* 


230146.40 


000043.40 


80 










,$CCWM 




0B000319 


IS 


43* 


230147.00 


230140.00 


80 










,RCKMUK 




0B000319 


U 


44* 


230147.40 


000006,00 


80 










,6.0 




0B000319 


13 


45* 


230150.00 


230364.74 


80 


23012a, 


34 


OC 


RTONRJ 


BZB1,REJJOB.60,RSAM 




OB000320 


12 


46* 


230151.00 


230364.73 


80 


230120. 


34 


OE 


RSCNO 


BB1,REJJC8.59,RSAM 




0B000321 


11 


47* 


230152.00 


230164.42 


60 










LWF(U),RNLJAH 




0B000322 


10 


48* 


230152.40 


225162. CO 


80 


040060. 


2C 


CC 




ST{BU,32),VNLB2-3.32, 


-32 


OB000322 


9 


4S* 


230153.40 


225200.03 


C8 










CB-,VP.VSWP3+2.32 




OB000323 


8 


5C* 


230154.00 


225250.07 


01 








RPTCOM 


LVIfVU.VSC 




0B000324 


7 


51* 


230154.40 


OOOCOl.CC 


81 










SlCl.OtVP) 




0B000324 


6 


52* 


230155. CC 


224702. C3 


48 










CB+,VP,VCCM 




0B000324 


5 


53* 


230155.40 * 


230112.23 


09 










LVNI,VT5, RCREJB 




0B000325 


4 


54* 


230156.00 


000000.00 


81 










SIC,{VP) 




OB000325 


3 


55* 


230156.40 


224702.10 


00 










B,VCOM 




0B00032S 


2 

1 


56* 


230157.00 


230164.42 


60 










LWF(U),RNLJAM 




OB000326 



'HSI 





TIME CLOCK 0CC54C41 PUNID 


IIDIIFCP 




CARD 


ID CBC00326 OIST. OF 3/Cl 


3/01 PAGE NUMBER 251 






LINE LOCATION 




BINARY CUTPLT 




NAHb 


STATEMENT 


LOCATION 230157 






1« 


23015? 


.40 


225162 


.00 


80 


040040 


.20 


DO 




STCEU,32),VNLB2-3.32,-64 




OB000326 




2» 


230160 


.40 


225376. 


.07 


01 










LVItVU.VE 




0B000327 




3» 


230161 


.00 


225173. 


.50 


00 










B,VSWEEP 




08000327 




A» 


230161 


.40 


230165 


.42 


60 








RENDTR 


LWF(U),RRESTR 




0B000328 




5* 


230162 


.CO 


225162 


.CO 


80 


040060 


.20 


CO 




ST(eU,32),VNL82-3.32,-32 




08000328 




6* 


230163 


.00 


230364. 


.73 


80 


225162 


.34 


06 




B8Z,REJJCB.59,VNLB2-3.32 




0B000329 




J ♦ 




















CNOP, 




0B000330 




6* 


230164 


.00 


230154. 


.10 


CO 








PNLJAM 


B,RPTCGH 




08000331 




9* 


230164 


.40 


230161 


.50 


CO 










B, RENDTR 


* 


OB000331 




IC* 


230165 


.00 


coocoo. 


.00 


81 








RRESTR 


SIC,(VP) 




08000332 




11* 


230165 


.40 


oocooo. 


.30 


00 










NOP, 




08000332 




12» 


230166 


.00 


cccooc,oo+ 










RCJAN 


VF,C 




OB000333 




13* 


230166 


.40 


CC00C4.00+ 










RCCUNT 


VF,RKF+1.C 




OB000334 




1^« 


230167 


.00 


CCCC0C.004 coo 


OOCOOO occoco 


RCMSAV 


XW,0 




OB000335 




15* 


230170 


.00 • 














RC^*SG£ 


( IQS«)DC{BUI, SERVICE RD/fD 


CHK ON CARD READER* 


0B000336 




U* 




















CNOP, 




OB000337 




17» 


230174 


.00 


230174. 


• CO 


00 










8E,$ 




08000338 




ie» 


230174 


.40 


225232. 


.00 


00 










BE, VCR 




OB000338 




K» 


230175 


.00 » 


C0CC02 


.00 










RCREXT 


DRZ(BU,64),2 




0B000339 




2C* 


230177 


.00 


230363. 


.40 


80 










SICRKSBRC 




0p000340 




21* 


230177 


.40 


227524. 


50 


00 










B,RKSUK 




0B000340 




22* 


23C20C 


.00 


230174. 


33 


01 










LVI,$13,$-4.0 




OB000341 




23* 


230200 


.40 


230200, 


.50 


00 










B,$ 




0B000341 




2^» 


230201 


.GO 


230174, 


.33 


01 










LVI,$13,$-5.C 




08000342 




25* 


230201 


.40 


230201. 


50 


00 










8,$ 




0B000342 




2e* 


23C202. 


.00 


230174, 


,33 


01 










LVl,$13,$-6.0 




0B0Q0343 




2?* 


230202 


.40 


230202. 


.50 


00 










B,$ 




OB000343 


-- 


2S* 


230203 


.00 


000004, 


37 


02 








RCPQES 


LCI,15,RKA+1.C 




OB000344 


2S* 


230203 


.40 


230234. 


77 


50 










SC,15,RPTRY 




0B0G0344 




3C« 


230204 


.00 


230415. 


50 


00 










fi,RPQUES 




OB000345 




31* 


230204 


.40 


230217, 


.37 


80 


001000. 


.36 


FC 


RPUKLI 


CMllll(BU,l),RPRTEX-.33 




0B000346 




32* 


230205 


.40 


230214. 


77 


00 








RPUK 


SVA, $15, RPEXEC. 32 


. 


08000347 




33* 


230206 


.00 


230217. 


47 


00 










SVA,VU,RPRTEX-.32 




OB00G347 




3A* 


23C206. 


.40 


COGCOl. 


33 


05 










V+I,$13,1.0 




0B000348 




35* 


2 3020 7. 


.00 


230217, 


33 


00 










SVA,$13,RPRTEX-1.0 




OB000348 




36* 


230207. 


.40 


000040. 


10 


00 










B,DMCP 




OB000349 




31* 


230210, 


.00 


000014, 


GO 


80 










,DCHEX 




OB000349 




36* 


230210. 


.40 


000006. 


01 


B3 










LVE,,VSU<VUJ 




0B000349 




3?» 


230211. 


.00 


230220, 


CO 


80 










, RPRTEX 




0B000349 




^C* 


230211. 


.40 


230234. 


76 


50 








RPCA8R 


LC,I5,RPTRY 




OB000350 




Al* 


23C212. 


.00 • 


230221. 


14 


80 


230203, 


34 


00 




6ZB,RPRT£X+ 1.12, RCPQES 




06000351 




A2* 


230213. 


.00 


230203, 


36 


4A 










CBZ, 15, RCPQES 




0B000352 




43* 


230213, 


.40 


2S0234. 


77 


50 










SC,$15,RPTRY 




OB000353 




44* 


230214. 


.00 


00CC40. 


10 


00 








RPEXEC 


B,DMCP 




OB000354 




45* 


23C214. 


.40 


230214. 


40 


80 










f$ 




OB000354 




46* 


230215. 


00 


000006. 


01 


83 










LV£,,VSL{VU) 




OB000354 




47* 


230215. 


.40 


C00040, 


10 


00 








RWAIT 


6,0^/0? 




OB000355 




4e« 


23C216. 


.00 


C0CC13. 


40 


80 










,DWAIT 




OB000355 




4S« 


230216, 


.40 


0C0CC6. 


01 


B3 










LVE,,VSU(VU) 




0B000355 




5C» 




















CNCF, 




0B000356 




51* 


230217, 


.00 


OOOCCO. 


CO 


00 










BE,C 




0B000357 




52* 


23C217, 


.40 


000000. 


CO 


00 










BE,C 




OB000357 




53* 


23C220. 


00 * 


000002. 


CO 










RPRTEX 


DRZ{BU,32),4 




0B000358 




54* 


230222. 


.00 


23C217, 


46 


30 










LV,VU, RPRTEX-. 32 




08000359 




55* 


230222, 


.40 


230211. 


50 


GO 










B,RPCABR 




CB000359 




56* 


230223. 


00 


230217. 


46 


30 










LV,VU, RPRTEX-. 32 




08000360 



'Nai 



TIME CLOCK C0054CA1 



PUNID 11D11?'CP 



CARD IC CB000360 



DIST. OF 3/Cl 



3/01 



PAGE NUMBER 252 
I OC A TlCN "2T0T2 3 



LINE LOCATICN 



BINARY CUTPUT 



NAI«t 



STATEMENT 



1* 
2* 

2 * 



230223,40 
230224.00 
230224.40 
230225.00 



230226.10 00 
230217.46 30 
230227.10 CO 
230217.46 30 



B,RPREST 

LV,VU,RPRTEX-.32 
B,RPREST+1.0 
LV,VU,RPRTEX-.32 



08000360 
OB000361 
08000361 
OB000362 



5 » 23022 5.40 
6» 230226.00 
7* 230226.40 



_2_3G230. 10 00 
CCCC03.15 01 
230230.50 CO 



BtRPRiST+2.C 
LVI,$6,3.C 
B,RPINT ' 



QB0pp362_ 
"0B000363 
08000363 



RPREST 



'Nai 



UME CLOCK 0C054C41 



PUNID IIDIIWCP 



CARD ID CBC0G365 



DIST. OF 3/01 



3/01 



PAGE NUMBER 253 



LINE 



LOCATION 



BINARY CUTPUr 



NAf^E 



STATEMENT 



LOCATION 



230227 



1* 23C227.CC 
2« 23C227.40 

3» 23C23G.0C 
4» 23C23C.4G 



000004.15 01 

230230. 50 00 

C00C05.15 01 

230217.36 30 



RPINT 



LVI,$6,4.0 
B, RPINT 
LVIf $6,5.0 
LV,$15,RPRTEX-1.C 



OB000365 
06000365 
0B000366 
0B000367 



.i*_23C231.CC 230234.37 DO SVA , $ 15, RPRET 



OB000368 



i* 230231.40 

1* 230232.00 

f* 230232.40 

S* 230233. CO 

1C« 230233.40 



C0CC40.1C 00 
G0CG14.00 80 
C0CC06.01 B3 
OOCOOO.CC 8F 
230220.22 CO 



B,Df<CP 
,OChEX 

LVE,,VSU{VU) 
, ($15) 
ZfRPRTEX 



0B000369 
0B000369 
0B000369 
08000369 
CB000370 



11» 230234.00 



230234.10 06 



RPRET B,${$6) OB000371 



12» 
12* 
14« 
15« 
16» 



230234. 4C 
230235.00 
230235.40 
230236.00 
230236.40 



CCC004 

224333.05 09 

C00026.04 90 

230237.32 C2 

224671. 5C 00 



RPTRY CF,RKA+1.0 
RKNEG LVNI,$2,VWEFT 
KV,$2,VT2 
BXE,RSKIP 
B,VSETX 



OE000372 
0B000373 
08000374 
08000374 
08000375 



17* 230237.00 230362.42 60 RSKIP LWF I U ) , RVSET 3 



08000376 



Ifc* 

2C« 
21» 
22* 



230237.40 
230240.00 
230240.40 
230241.00 
230241.40 



224677.40 EO 
227634.50 00 
000000.23 05 
230245.30 C2 
230244.23 00 



ST{L),VSET3-0.32 
B,RK7777 
RKSlll V+I,VT5,0 

BXVLZ,RKS112 
SVA,VT5,RKS114 



OB000377 
OB000378 
OB000379 
0B000379 
08000380^ 



22* 
2<« 
25* 
26* 
2i» 
2f» 



230242 
23C242 
230243 
230243 
230244 
230244 



.00 

.40" 

.00 

.40 

.00 

.40 



225266. 
230243. 
000042. 
225266, 
230244. 
225273. 



22_ BO 
70 C2 
23 OD 
23 30 
23 01 
10 CO 



6XVLZ,$.64 

V-I,VT5r34.C 

SV,VT5,VX+VWT 

LVI,VT5,$ 

8,VNX+VWT 



08000381 

06000381" 

0B00G382 

OB0003B2 

08000383 

08000384 



RKS114 



25* 
3C* 
31* 
32* 

32» 

34* 



230245 
230245 
230246 
230246 
230247 
230250 



.C0__ 

.40 

.00 

.40 

.40 

.00 » 



22 4333. 
230247. 
230251. 
224324. 
777777. 
CCCOCO.OO 



23 CC 
72 CO 
42 60 

40 80 
03 C9 

+ 001 



RKS112 



AVNItyT5,yWEFT 

BZXE,RKS113 
LWF<UI,RECRWT 
ST(BU,32),V«Q,-32 
CB-,VP,-1.0{VP) 
CW-tSCRljC.O, 15,0 



08000385 
"08000386" 
OB000387 
08000388 
08000369 
08000390 



040060. 2G DC 



000017 000000 



RKS113 
RESKJP 

RECRWT 



35* 
"36~* 
37* 
3E* 
39* 
4C* 



230251 
230251 
230252 
230253 
230253 
230254 



.CC 

.4C" 

.00 

.00 

.40 

.CO 



22 5266. 
227645." 
227642. 
000040. 
CCC014.00 
000C06. 



C_7 01 

'47 00 

23 80 

10 00 
+ 

01 B3 



tyuyu ,vwT 

SVA,VU,RWEXIT-.32 

CM0C00( BU, 1 » ,RKCRWT. 19 

B,OMCP 

VF,CCHEX 

LVE,,VSU(VU) 



08000391 

OB000391" 

0B000392 

OB000393 

08000393 

08000393 



001000.00 FO 



Alt 
42* 

42* 
44* 
45* 
4t» 



23C254 
230255 
230255 
230256 
230256 
230257 



.40 

.00" 

.40 

,00 

.40 

.00 



2_2_7_64_6.0 
225274." 
224135. 
227645. 
230272. 
227651. 



+ 
3"3" 



_VF,_RWEXIT 

LVE,$13,VSU+VWT 

LVE,$13,VXG($13I 

SVA,$13,RW£XIT-1.0 

LVI,$13,REBSFL 

SVA,$13,RWEXIT+3.32 



08000393 

0B000394" 

0B000394 

0B000394 

08000395 

08000395 



BO 



33 BD 
33 DO 
33 01 
73 DO 



ill 

"4£* 

4S« 

5C* 
51* 
52* 



230257 
230260 
230260 
230261 
230261 
230262 



•5C 
.00 
.40 
.00 
.40 
.00 



_c_ooo_og. 

230261." 
225266. 
C0G007. 
COOCOO. 
230341. 



62_33 

31 C2 
73 00 
73 B3 
33 04 

32 C2 



tv._yT5,yxij[ vyj 

"bxvgz,$ + i.o 

SVA,$13,VXl+VWT 

LVE,$13,VFCNT{VU) 

KVI,$13,0.0 

8XE,RECDNP 



OB000396 

OB600"396" 

0B000397 

08000398 

08000398 

08000398 



'NSI 



TIME CLOCK CC054CA1 PUNIO 


llDll^^CP 


CARD 


ID CB0004C0 DIST. OF 3/01 3/01 PAGE 


NUMBER 254 


LINE LOCATICN 


BINARY OUTPUT 




NA^«E 


STATEMENT LCCATIQN 230262 


1» 

2* 
2* 


230262.40 
230263.00 
230263.40 
230264. CC » 


000040.10 
CC00C7.O0+ 
000006.01 
227642. CO 


00 

B3 

80 








B.DHCP 

VF,DBSFL 

LVE,,VSU(VUI 

SICRKCRWT 


OB000400 
08000400 
OB000400 
08000401 


5* 


230264.40 


227620.10 


00 








B.RESRCF 


0B000401 


i» 

£• 

S* 

IC* 


230265.00 
230265.40 
230266.00 
230267.00 
230267.40 


224654.43 
000000.46 
000007.40 
230272.37 

000040.10 


C8 
3D 
83 
01 
00 


022000.32 


BO 


RSAMl 
REDOBL 


C8-,VP,VACT1 
LV,VU,C.32C$13) 
M-l{BU,18),VFCNT(VU} 
LVI,$15,REBSFL 

B.DHCP 


08000402 
OB000403 
06000404 
08000405 
0B000406 


11* 


230270.00 


CCG007.00+ 










VF,C8SFL 


08000406 


12* 
13» 

15» 


23G27C.4C 
230271.00 
230271.40 
230272. CC 
230272.40 


000C06.01 
000004.77 
230104.10 
000000.46 
230275.77 


B3 
00 
00 
3D 
01 






RK4P32 
REfiSFL 


LVE,,VSU{VU) 
SVA,$15,4.32($13) 
B.RETN 
LV,VU,0.32($13) 

LVI, $15, RESPFL 


08000406 
OB000407 
OB000407 
08000408 
0B000408 


17* 


230273.00 


C0GC04.77 


DO 








SVAj,$15,4.32{$13) 


08000409 


2C» 
21* 
22* 


230273.40 
230274. CC 
230274.40 
230275.00 
230275.40 


C00040.10 
000006.40 
000006,01 
230104.10 
C00C0O.46 


00 
80 
83 
00 

3D 






RESPFL 


B,DfCP 

,DSPFL 

LVE,,VSU{VU) 

B,RETN 

LV,VU,.32($13) 


0B000410 
08000410 
0B000410 
0B000411 
08000412 


22* 


230276.00 


000000.36 


3D 








LV,$15,C{$13) 


0B000412 


24* 
25* 
26* 

21* 
2€* 


230276.40 
230277.00 
230277.40 
230300.00 * 
230300.40 


225427.02 
000040.10 
CCG014.00+ 
000006. 01 
000000.00 


10 
00 

83 
8F 








LX,VP,VP0 

8,DNCP 

VF.CCHEX 

LVE,,VSU(VU) 

,($15) 


08000413 
08000414 
08000414 
OBD00414 
0B000414 


29* 


230301.00 


225264.42 


60 








LWF{U),VV»T-2.0 


08000415 


3C« 
31* 
32* 

33* 
34* 


230301.40 
230302.00 
230303.00 
230304.00 
230304.40 


225265.40 
230364.21 
230314.63 
225427.02 
230364.76 


EC 
80 
80 
10 
80 


224377.74 

001000.36 

230307.74 


OC 
FO 

04 


RKTRYE 
RKTRY 


ST{U),VWT-1.0 
BZB1,REJJ0B+.17,VNF1 
CM1111{BU,1),RCN0PB.19 ^ 
LX,VP,VPD 
BZBZ,REJJ0B.62,$+3.0 


08000415 
0B000416 
08000417 
OB000418 
08000419 


35* 


230305. 4C 


225250.07 


01 








LVI,VU,VSC 


08000420 


3£» 
37* 
3€* 
3S* 
4C« 


230306.00 
230306.40 
230307.00 
230307.40 
230310.00 


23C112.23 
000000.00 
224702.10 
000000.46 
230167,22 


09 
81 
00 
3D 

00 








LVNI,VT5,RCREJB 
SICtVP) 
B,VCOM 
LV,VU,0.32{$13) 

Z,RCWSAV 


OB000420 
08000421 
OB000421 
OB000422 
08000422 


41* 


230310.40 


230166.03 


70 








SR,VP,RCJAM 


08000423 


42* 
42* 
44* 
45* 
46* 


230311.00 
230311.40 
230312.00 
230312.40 
230313.00 


000004.37 
230166.77 
C00COO.36 
000040.10 
CCC014.C0+ 


01 
DO 
3D 
00 








LVI,$15,RKF+1.0 

SVA,$15,RC0UNT 

LV,$I5,($13) 

8,DfCP 

VF.CCHEX 


08000424 
08000424 
08000425 
08000426 
08000426 


47* 


230313.40 » 


000006.01 


83 








LVE,,VSU{VU) 


OB00C426 


46* 
4S» 
5C* 
51* 
52* 


230314.00 
230314.40 
230315.00 
230316.00 
230316.40 


COCCOO.OO 
C0CC05.10 
230314.63 
C0CC03. 10 
CCCCC0.46 


8F 
OF 
80 
OF 
3D 


001000. CC 


FO 


RCNOPB 
RtSTCR 


,($15) 

B,5.0($15) 

CH0C0C(BU,1),RCNCPB+.19 

B,3.0($15) 

LV,VU,C.32($13) 


08000426 
08000427 
08000428 
08000429 

OB000430 







*Kai 



TIME CLOCK CCC54C41 PUNID 


IICIINCP 


CARD 


IC CB000432 DIST. OF 3/Cl 3/01 PAGE NUMBER 255 


LINE LOCATICN 


8 


INARY OUTPUT 




NAME 


STATEMENT LOCATICN 230317 


1» 


230317.00 


000C0A.37 


01 






LVI,$15,RKC+1.0 


OB000A32 


2* 


230317.40 


2276A3.37 


00 






SVA,$15fR£TRY 


0B000A32 


2* 


230320.00 


00000A.37 


01 






LVI,$15,RKD+1.0 


0B000433 


A* 


23C32G.40 


2276A3.77 


DO 






SVA,$15,RWTRY 


06000433 


5« 


23C321.GC 


G0CC00.36 


3D 






LV,$15,i$13) 


0B00043A 


e* 


230321. AG 


COCOAO.iC 


00 






B,DMCP 


08000A35 


?• 


230322,00 


0COO1A.00+ 








VFtCCHEX 


OB000A35 


€* 


230322.40 


000G06.01 


83 






LVE,,VSt{VUi 


OB000435 


c» 


230323.00 


COCCOO.OO 


8F 






,($15) 


0B000435 


1C« 


230323.40 


000005. IG 


OF 






e,5.0($15) 


08000436 


11* 


230324.00 


000002. lA 


8D 230A00.3A 


00 


RERDUK 


BZB,2.12($13),RECUMP 


0B000437 


12* 


230325.00 


C0CCC0.A6 


3D 




READ 


LV,VU,C.32l$13) 


0B000438 


12* 


230325.40 


22752A.77 


01 






LVI,$15,RKSUK 


0B0O0439 


14* 


230326.00 


000003.77 


OD 






SVA,$15,3.32{$13) 


OB000A39 


15* 


230326.40 ♦ 


OOOGAO.IO 


00 






B,DMCP 


0B0004A0 


H» 


230327.00 


CCC0C2.00+ 








VFfCCCW 


0B000440 


17* 


230327.40 


000006.01 


B3 






LVE,,VSU(VU) 


0B000440 


1£» 


230330.00 


230371.00+ 








VF.RECCW 


08000440 


I?* 


230330. 40 


230371.30 


10 






LX,$12,RECCW 


0B0004AI 


2C* 


230331.00 


23G33A.30 


42 






BXCZ, REBSPl 


0B000A41 


21* 


230331.40 


23033A.37 


01 






LVI, $15, REBSPl 


0B0004A2 


22* 


230332.00 


COCOAO.IC 


CO 






B,DMCP 


OB000AA3 


22* 


230332. AC 


C0GC06.C0 


80 






,DBSP 


0B000AA3 


2** 


230333.00 


C00C06.C1 


63 






LVE,,VSU(VU) 


0B000AA3 


25* 


230333.40 


230103.50 


00 






B,RTN 


0B000A4A 


2£* 


230334.00 


C00C00.A6 


3D 




REBSPl 


LV,VU,0.32{$13) 


OB0004A5 


27* 


230334.40 


23036A.77 


80 230336.74 


04 




BZBZ,REJJ0B.63,R£WEF 


OB0004A6 


2€* 


230335.40 


227577.00 


80 






SICRERGBR 


0B000AA7 


2S» 


230336.00 


22757A.1C 


CO 






8,RERG 


0B000AA7 


3C* 


230336.40 


COCOAO.IC 


00 




REWEF 


B.DMCP 


OB000AA8 


31* 


230337.00 


0CC007.40+ 


i 






VF.DWEF 


08000448 


32* 


230337. AO 


000006.01 


B3 






LVE,,VSU{VU} 


OB000448 


33* 


230340.00 


230316.77 


01 






LVI,$15,REST0R 


0B000A49 


34* 


2303AC.AC 


230103.50 


00 






B,RTN 


0B000AA9 


35* 


230341.00 


2276A2.G0 


80 




RECDMP 


SIC,RKCRi«T 


08000A50 


3£* 


230341.40 


227620.10 


00 






B,RESRCh 


OBO00A5O 


37* 


230342.00 * 


OOOOAO.IO 


CO 






B,DMCP 


OB000451 


36* 


230342.40 


000015,00 


80 






.DIGDEF 


OB000451 


39* 


230343.00 


22527A.C1 


BO 






LVE,,VSU+VWT 


0B000451 


AC* 


23C3A3.A0 


23G37A.CC 


80 






,RWMSGE 


0B000451 


41* 


23C3AA.00 


COCOAO.IC 


CO 






B,DMCP 


0B000452 


42* 


2303AA.AC 


C0C0A3.A0 


80 






,DCCMM 


OB000452 


42* 


230345.00 


23C37A.00 


80 






,RWMSGE 


08000452 


44* 


230345.40 


COCCOA.CO 


80 






,4.0 


OB000452 


45* 


230346.00 


C00C02.31 


01 




RECMP 


LVI, 12,2.0 


OB000453 


4^* 


230346. AC 


23C36A.31 


DO 






SVA,12,REJJ0B 


08000453 


47* 


2303A7.0C 


225275. 5A 


30 






LV,VT2,VFCNT+VWT 


0B000A5A 


46* 


2303A7.A0 


C0CC01.15 


05 






V+I,VT2, 1.0 


OB000A5A 


AS* 


230350.00 


231133.00 


80 






SICYTSTR 


0B000455 


5C* 


230350. AC 


231117.10 


00 






B,YTST 


08000455 


51* 


230351.00 


2276A5.30 


30 






LV,il2,RWEXIT-l.C 


OB000456 


52* 


230351. AC 


. CCCCAO.IO 


00 






8,DMCP 


0B000457 


52* 


230352.00 


COOOIA.CO 


80 






,DCHEX 


OB000457 


54* 


230352. AO 


00CC06.01 


83 






LVE,,VSU{VU) 


OB000A57 


55* 


230353.00 


GCCGOO.OO 


8C 






,C$12) 


OB000457 


5t* 


230353.A0 


000000.00 


81 






SICtVPl 


0B000458 



'Nai 



TIME CLOCK CCC54C^1 PUNID 


11D11^^CP CARD 


ID GB000458 DIST. OF 3/01 3/01 ' PAGE NUMBER 256 




LINE LOCATION 


BINARY OUTPUT 


NAHE 


STATEMENT LOCATION 230354 




1* 


230354.00 


225051.43 


48 






CB+,VP,VRJTP 


0B000458 


2» 


230354.40 


224450.50 


CO 






BfVRTN 


OB000458 


2 • 


230355. CO 


000040.10 


00 




RKSCGN 


B,OMCP 


0B000459 


A* 


23C355.40 * 


C00C15.CO 


30 






,DICDEF 


0B000459 


5* 


230356.00 


C0CC06.C1 


B3 






LVE,,VSUIVU) 


0B000459 


e* 


230356.40 


230365.00 


80 






,RKP^SGE 


0B000459 


1* 


230357.00 


000040.10 


00 






B,DHCP 


OB000460 


t* 


230357.40 


000043,40 


80 






, OCCMM 


0B0O0460 


s» 


230360.00 


230365.00 


80 






,RK^^SGE 


OB000460 


ic* 


230360.40 


000C04.C0 


80 






,4.C 


08000460 


11* 


230361.00 


230361.20 


CO 






BEW,$ 


OB000461 


12* 


230362.00 


CC00CC.00+ 000 


COCOOO OCOOOC 


RVSET3 


XW,C.O 


0B000462 


13* 


230363.00 


230235.10 


00 




RKSUB 


B,RKNEG 


08000463 


14* 


230363.40 


COGCOO.CO 


00 




RKSBRC 


BE, CO 


OB000464 


15* 


230364.00 


0COOCC.OO+ 000 


000000 OCCOOO 


REJJGB 


XWtO.O 


DB000465 


U* 


230365.00 








RKf^SGE 


{ IGS»)DC{8Ut8), EPGK RESTART VIA IPL * 


OB000466 


17* 


230371.00 * 


CC00C0.00+ 000 


000000 OCOOOC 


RECCW 


xw»c.o 


0B000467 


It* 


230372.00 


230240.50 


00 




RENXSC 


B.RKSlll 


0B000468 


19* 


230373.00 . 


000000.00+ 000 


000000 OCOOOC 


RCCCW 


XW.C.C 


08000469 


2C* 


230374.00 * 


000001.00 






RWfSGE 


DRZ(BU,64),1 


OB000470 


21* 


230375.00 










{ IQS»)DC{BU,8J, UNLOADING, REUSE TAPE • 


08000471 


22* 


23040C.CC 


000040.10 


00 




REDUMP 


B.DMCP 


0B000472 


22* 


23040C.40 


00CC15.C0 


80 






.DIODEF 


08000472 


24* 


230401.00 


000006.01 


83 






LV£,,VSU{VU) 


OB000472 


25* 


230401. 4C 


230406.00 


80 






,RSFGSP+1.0 


0B000472 


26* 


230402.00 


000040.10 


CO 






B,DMCP 


0B000473 


27* 


230402.40 


000043.40 


80 






.DCCMM 


OB000473 


2£* 


230403-00 


230405.00 


80 






iRSh'GSP 


0B000473 


2?* 


230403.40 


000004.00 


80 






,4.C 


OB000473 


3C» 


230404.00 


230346.10 


CO 






8,REDMP 


0B000474 


31* 


230404.40 


O00CCO.3O 


00 






CNOP, 


OB000475 


32* 


230405.00 ♦ 








RSf'GSP 


( IQS*)DC(eU,8)» STRIP BEFORE REUSING • 


0B0D0476 


33* 












CNOP 


08000477 


34* 


230411.00 








RDLEOF 


(CC*)0D{8U,,12) ,8 COMD, OFFLINE,* 


OB000478 


35* 


230415.40 


225427.02 


10 




RPCUES 


LX,VP,VPD 


0B000479 


36* 


230416.00 


225266.07 


04 






KVI,VU,VWT 


CB000479 


37* 


230416.40 


230442.72 


CO 






BZXE,RKSTOT 


OB000479 


36* 


230417.00 


000004.35 


01 






LVI,$14,RKC+1.C 


08000480 


3S* 


230417.40 


227643.35 


00 






SVA, $14, RETRY 


0B000480 


4C» 


230420.00 


CCCCC4.35 


Gl 






LVI,$14,RKD+1.0 


0B000481 


41* 


230420.40 


227643.75 


DO 






SVA,$14,RwTRY 


08000481 


42* 


230421.00 


230217.34 


30 






LV,$14,RPRTEX-1.C 


08000482 


43* 


230421.40 


227646.35 


04 






KVI,$14,RWEXIT 


08000482 


44* 


230422.00 


230423.72 


CO 






BZXE,$+1.32 


OB000483 


45* 


230422.40 


230217.37 


80 


OOIOOO.CC FO 




CM0000CBU,l),RPRTEX-.33 


08000484 


46* 


230423.40 * 


227645.34 


30 






LV,$14,RV»EXIT-1.0 


08000485 


47* 


230424.00 


230432.00 


80 






SICt_RBSWRT 


0B000486 


4€* 


230424. 4C 


230426.50 


CO 






B, RSWBCK 


08000486 


49* 


230425.00 


230364.21 


80 


2276C2.34 02 




BB,REJJCB.17,RENGJB 


08000487 


5C* 


^30426.00 


230341.10 


00 






B,RECDMP 


0B000488 


51* 


230426.40 


230217.37 


80 


230430.34 04 


RSWBCK 


BZBZ,RPRTEX-.33,$+1.32 


08000489 


52* 


230427.40 


230217.34 


30 






LV,$14,RPRTEX-1.C 


08000490 


53* 


23043G.CC 


000040.10 


CO 






B,DMCP 


0B000491 


54* 


23C43C.40 


000014.00 


80 






,DChEX 


0B000491 


55* 


230431.00 


000006,01 


83 






LVE,,VSU(VU» 


0B000491 


56* 


230431.40 


COCCOO.CC 


8b 






,($14) 


06000491 



KSI 



TIME CLOCK 0005^041 PUNID 


IIDIIFCP CARD 


ID GB000492 DIST. OF 3/01 3/01 PAGE NUMBER 257 


LINE LOCATICN 


BINARY CUTPUT 


NAME 


STATEMENT LOCATION 230432 


1» 


230432.00 


230432.10 


CO 


RBSWRT 


BfS 


OB000492 


2* 


230432.40 


000007.77 


04 


RGNOGD 


KVI,$15,DWEF 


OB000493 


2» 


230433.00 


230440.32 


C2 




BXEfRKDCYD 


OB000493 


A* 


230433.40 


227645.33 


04 




KVI,$13,RV^EXIT-1.0 


0B000494 


5* 


230434.00 


230415.72 


C2 




BXe,RPCUES 


OB000494 


6* 


230434.40 


000001.33 


05 


PKLOUP 


V+I,$13,1.0 


0B000495 


1* 


230435.00 


225266.07 


04 




KVI.VIJ.VWT 


OB000495 


£» 


23043 5.40 


230437,32 


C2 




BXEt$+1.32 


0B000496 


S« 


230436.00 


227770.33 


00 




SVA,$13,RDREXT-1.0 


OB000496 


1C» 


230436.40 


230415.50 


00 




B.RPQUES 


0B00O497 


11* 


230437.00 » 


227645.33 


DO 




SVA,$13,RWEXIT-1.0 


0B000498 


12* 


230437.40 


230415.50 


CO 




e.RFCUES 


0B000499 


13* 


230440.00 


227643.34 


30 


RKCCYD 


LV, $14, RETRY 


OB000500 


lA* 


230440.40 


227643.74 


BO 




V+,$14,RWTRY 


OB000500 


15* 


230441.00 


000010,35 


04 




KVI,$14,RKB+RKC+2.C 


OB000501 


ie» 


230441.40 


230415.72 


CO 




BZXEjRPGUfcS 


08000501 


17* 


230442.00 


230434.50 


CO 




B,RKLOUP 


08000502 


ie» 


230442.40 


227770.34 


30 


RKSTCT 


LV,$14,RDREXT-1.0 


OB000503 


19* 


230443.00 


230432.00 


80 




SIC, RBSWRT 


06000504 


2C» 


230443.40 


230426. 5C 


CO 




BfRSWBCK 


OB0005Q4 


21* 


230444. CG 


000004.35 


01 




LVI,$14,RKB+1.C 


08000505 


22* 


230444.40 


227777.35 


DO 




SVA,$14,RTTRY 


0B000505 


22* 


230445.00 


000004.35 


01 




LVI,$14,RKH+1.0 


0B000506 


2A* 


230445. 4C 


227777.75 


DO 




SVA,$14,RTSP3X 


08000506 


25* 


230446.00 


000005.35 


01 




LVI,$14,5.0 


0B000507 


26* 


230446.40 


23GG00.35 


00 




SVA,$14,RBSP3X 


0B000507 


21* 


230447.00 


225331.07 


04 




KVI,VU,VRT 


OB000508 


26* 


230447.40 


230470.32 


C2 




8XE,RRTPR0 


OB000508 


29* 


230450. CO 


225250.07 


01 




LVI ,VU,VSC 


OBC00509 


3C* 


230450.40 


230456.63 


09 




LVNI,VT5, RKSTUK 


0B000509 


31* 


230451.00 


000000,00 


81 




SIC,(VP) 


OB000510 


35* 


230451.40 


224702.10 


CO 




B,VCOM 


08000510 


33* 


230452.00 


000021.23 


01 




LVI,VT5, 17.0 


0B000511 


3^* 


230452.40 » 


COCGOO.OO 


81 




SIC,(VP) 


OB000512 


35* 


230453.00 


224702.10 


CO 




B,VCOM 


OB00O512 


36* 


230453.40 


225312,22 


30 




LV,VT5,VX+VST 


08000513 


37* 


230454.00 


000021.23 


05 




V+I,VT5,17.0 


0B000513 


36* 


230454.40 


230455.70 


C2 




8XVLZ,$+1.0 


0B000514 


39* 


230455.00 


000042.23 


GD 




V-I,VT5,34.0 


08000514 


4C* 


230455.40 


225312.23 


30 




SV,VT5,VX+VST 


0B000515 


Al* 


230456.00 


224315,50 


00 




B,VSQ+1.32 


06000516 


42* 


230456.40 


227663.40 


80 


RKSTUK 


SICRKSCRT 


08000517 


42* 


230457.00 


227654. C3 


48 




CB+,VP,RKSCNN 


0BOO0517 


44* 


230457,40 


224671.55 


01 




LVI,VT2,VSETX 


0B000518 


45* 


230460.00 


227663.55 


DO 




SVA,VT2,RKSCRT 


OB000518 


4£» 


230460.40 


230364.75 


80 230463.34 06 




BBZ, RE J JOB, 61, RKPONE 


0B000519 


47* 


230461.40 


225321.14 


30 




LV,VT2,VRCNT+VST 


0B000520 


4£* 


230462.00 


C0CC01.15 


04 




KVI,VT2,1.0 


08000520 


49* 


230462.40 


230464.32 


C2 




BXE, RKREJ 


0B000521 


5C* 


230463.00 


225321.40 


80 022000.22 60 


RKPONE 


M+1(BU,18),VFCNT+VST 


0B000522 


51* 


230464.00 


225321.54 


30 


RKREJ 


LV,VT2,VFCNT+VST 


0B000523 


52* 


230464.40 


227670. 15 


30 




SV,VT2,RKBITL 


08000524 


52* 


230465.00 


ooocoo.oo 


81 




SIC,(VP) 


08000525 


54* 


230465.40 


225051.43 


48 




CB+,VP,VRJTP 


08000525 


55* 


230466.00 * 


227670.40 


80 001000.36 PC 




CM1111(BU,1),RKSEIT 


08000526 


5t* 


230467.00 


225250.07 


01 




LVI,VU,VSC 


0B000527 



'Kai 



C 



TIME CLOCK CCC5AC41 PUNID llCllf'CP CARD ID 08000528 
LINE LOCATION' BINARY" CUT PUli HhHt 



CIST. OF 3/Cl 

STATEMENT 



3/01 



PAGE NUMBER 258 
I OC A T~I C N Y30"4 6 7 



]« 230467.40 

2» 230470.00 

3* 230470.40 

4* 230471. CC 



224671.43 
230471.23 

CC0C05.10 
227670.41 



C8 

09 

03 

ac 



001000.36 FC 



CB-,VP,VSETX 
RRTPRO LVNI,VT5,RKRTUK 

B,VNX(VU) 
RKRTUK CMllIlCeU,lJ,RKSRTB 



OB000528 
OB000529 
OB000530 
0B000531 



5« 230472. CC 



225342.14 30 



LV,VT2,VFCNX+VRT 



OB000532 



1* 
f 

IC* 



23C472.40 
230473.00 
230473.40 
230474.00 
230474.40 



C0CC02.15 05 
227671.15 30 
COOCOO.CO 81 
230475.43 48 
225346.07 01 



V+1,VT2,2.0 
SV»VT2,RKRTBL 
SICCVPI 
CB+,VP,REJTRT 

LVI,VU,VG 



08000533 
0B000534 
08000535 
OB000535 
0B000536 



11? 
12* 
12* 
14* 
15* 
1£* 



?3C475_.pC_ 

230475. 4C 

230476.00 

230476.40 

230477.40 

23C5CC.CC 



_2_2_4671._43 
225210. C7 
225221.62 
225201.31 
225201.10 
00GC27.ll 



t8 
01 
30 
89 
19 
70 



_CB-tVP,yS£TX 

LVI,VU,VTSA 
LV,VT5,VTSB+VX1 
CM1111,VSURT.V0PB(VT5) 
LX,VT1,VSURT{VT5) 
SRi_yTl,VI3 



QB0gp537 
0B0G0538 
OB000539 
OB000540 
0B000541 
OB000542 



RfcJTRT 



001000.36 FO 



11* 
Ifc* 
IS» 
2C* 
21* 
22* 



23C500_._4_0_ 

230501.00 

230501.40 

230502.00 

23C502.40 

23C503.0C 

230503^40 

230504. OG 



_C_C0CC7. 
CCC021. 
COCGOO. 
000007, 
OOCCOO. 

_2_2A7A5_' 
_2_2_5_2_2„L. 
224655, 



^3_37 
03 01 
43 37 
42 37 
00 81 

5_o _c q 

07 „G1 

10 00 



sytyp,yFCNTjvTA) 

LVI,VP,17.0 
SV,VP,VX1(VT3) 
LV,VP»VFCNT(VT3) 
SICtVP) 

_B_t_VIMy 



08000543 
0B000544 
06000545 
OB000546 
08000547 
QB000547 
-08000548 
OB000549 



.21* 
2<« 



_»-_vi_LvyiyisB 

B,VACT 



'Nai 



TIME CLOCK OC054C41 



PUNIO IIDIIMCP 



CARD ID PAOOOOOl 



DIST. OF 3/Cl 



3/01 



PAGE NUMBER 259 



LINE 



LOCATICN 



BINARY CUTPUT 



NAME 



STATEMENT 



LOCATION 



1* 
2* 

3» 

A» 230504. 4G 



230521. CC 80 230515. 02 AC 



- «»»»»•««»*««*««««♦»»«»««»«««#»•««•«**«»««»««#•«#»»«»«»*•«»*»»»•♦♦»»»»* PAOOOOOl 

«««•«««••»«• IQS TO BCD CONVERSION ROUTINE •••»»»»•»« PA000002 

— «••««» •»«««»»««-»»«••«««««»«•••«•••••«•«•«««•••«*«««•««••**•«« «•**«•«•• PA000003 
SIQSA8 TI, 1,FA8INS,FINSTR - 8 BIT OUTPUT PA0G0004 



f* 230505.40 



230507. 10 


00 




230522.00 


80 


230515.02 


230523.37 


10 




230524.35 


10 




230525.33 


10 




000000.34 


3F 





B,SIQSA6+1.C 



PA000005 



i* 
1* 

S* 
1C» 



230506.00 
230507.00 
230507.40 
230510.00 
230510.40 



AC SIGSA6 TI,1,FA6INS,FINSTR 
SX,$15,F SVE 
SX,$14,F SVE+l.C 
SX,$13,F SVE+2.0 
LV, n4,C.C{$15) 



6 BIT OUTPUT 

-SAVE INDEX REGISTERS 



-PUT *IN* INTO VF OF $14 



PA000006 
PAOOOOOl 
PA000008 
PA000009 
PAOOOOIO 



12* 
13* 
14* 
15» 
16» 



230511.00 
230511.40 
230512.00 
230512.40 
230513.40 
230514.00 



_CQ.CCC0._74 5 F 

230516.70 42 

000001.32 3F 

000000-10 8E 

000011.36 30 

230526. CC 8F 



LC,$14,.321$15) 

BXCZ,F DONE 

LV,$13,1.0{$15) 

L(V+I)(eU,8,8J,.8l$14),43 

LV,$15,$R 

L(BU,8,8),F TABLE($15) 



"-CHECK IF COUNT = 
-PUT. »0UT« IN VF OF $13 
-LOAD IQS CHARACTER 
-CRRECT TABLE POSITION X 
-1ST ENTRY 8BITS NOW IN $15 



PAOOOOll 
>A000012" 
PA000013 
PA000014 
PA000015 
PA000016 



110025.60 50 



010000. 2C 50 



F LOOP 



11* 
1£* 
IS* 
2C* 
21* 
22* 



CNOP 

"ST( BU,64),0.0 
CB,$14,F LOOP 
LX,$15,F SVE 
LX,$14,F SVE+1.0 
LX,$13,F SVE+2.0 



P AGO 00 17 
"PA000018 
PA000019 
PA00002G 
PA000021 
PA000022 



23C515.00 
23C516.CC 
230516.40 
230517. CC 
230517.40 



coccoo.oo 

230512.74 
230523.36 
230524.34 
230525.32 



80 
48 
10 
10 
10 



000000.20 CO 



F INSTR 



F DONE 



-STORE CONVERTED CHARACTER 
-CONVERSION DONE 
-RESTORE INDEX REGISTERS 



22* 

25* 
26* 
2?« 

2£* 



230520.CC 

230520.40" 

230521.00 

230522.00 

230523.00 



_OOOC_01.50_ 
00CC00.30 
OOOOOO. 10 
000000.06 
COCC03.00 



GF 
00 
8D 
8D 



-RETURN 



B,1.32U15] 

CNOP 

ST(V + IHBU,8,1),.8($13) 

STlV+IHeU,6,l),.6($13) 

DRZ(BU,64),{3) 

_* »* * * I^^L E OF BCC_ EC C_I_V_AJ._E_1TA JA _0«DE RE D _ I Q S_ CODE SE J » * * *» 

_LAZ)^0D(^fiU,8,8J, +$=*J/),Z 

(8)DDiBU,8,8),20,14,20 -SEMICOLON, SINGLE QUOTE, DOUBLE 



(AZ)DC(BU,8,8),AABBCCD0EEFFGGHHIIJJZ 
l-i^-^ '_Ct^lBU, 8,8 ),+ + $ = •{/) ,Z 
'(8)DDrBU,8,8),20,14,20 " , -SEMICOLON, 



PA000023 
>A006024 
PA000025 
PA000026 
PA0O0027 
PA000028 



110100.20 DO 
106100.20 00 



F A8INS 
F A6INS 
F SVE 



-INSTRUCTION FOR 8BIT OPTION 
-INSTRUCTION FOR 68IT OPTION 



29* 
"3C« 
31* 
32* 
32* 
34* 



230526 
230527 
230527 
230527 
230527 
230532 



.00 

.10' 

,20 

.30 

.40 

.00 



F TABLE 



PAq00029 

PA000030" 

PA000030 

PA000030 

PA000031 

PA000032 



020 
C14 
020 



35* 
36* 
37* 
3f« 
3S» 
4C» 



230533 
23C533 
23C533 
230533 
230536 
230540 



.IC 
.20 
.30 

.40 
.00 

.00 * 



020 
014 
020 



SINGLE QUOTE, DOUBLE 



PAqqqq33 

"PA0000 33" 
PA000033 
PA000034 
PA000035 
PAOC0036 



t AZ)D0{BU,8,8Jf AABBCCDOEEFFGGHHIIJJZ 
( AZ J DDi BU, 8, 8 ) ,KKLLMMNNCOPPQQRRZ 

14.* ID D {_ e U , 8 , 8 ] , S S T T LLVVJn >_X X Y Y Z_Z * 

lA Z )_D C { B U , 8 , 8 ] , q CI 1 2 2 3 3 4 4 5 5 6 6 7 7 88 99 .Z _______ 

'(8)CD(BU,8,8),32,40,2C -COLON, MINUS," 



(AZ)DD{EU,8,8),++$=*(/)Z 

<_ A ^ I Q Q 1 i y 1 § J J J J J<J<_kk^i!l^MO_P_P_Q c R R z 

LA*)^DDiBU,8,8JjS^njamO^)UYYZZ* 

"{ AZ) DC (BU, 8,8), CC 112 23344 5 566 778899. Z 
(8)CD{BU*,8,8),32,40,2C -COLON, 



Alt 
42 » 
43* 
44* 
45* 
46* 



230542 
'230544 
230544 
23C544 
230545 
230546 



.00 

.50' 

.6G 

.70 

.00 

.00 



pAoqqqsj 

'PA000038' 
PA000038 
PA000038 
PA000039 
PA000040 



032 
040 
020 



QUESTION 



47* 
4 8* 
4C* 
5C* 
51* 
52* 



23C55C 
230552 
230554 
230554 
230554 
230555 



.00 
.00 
.50 
.60 
.70 
.00 



pAoqqq4i 

'PAd00042 
PA000043 
PA000043 
PA000043 
PA000044 



032 
040 
020 



MINUS, QUESTION 



i_AZ)DD{Byj8_,8J_,_+_+_$_=*J_/_)Z 

CAZ )DDIBU,8,8),KKLLMMNNC0PPGGRRZ 



.53*. 
54* 
55* 
56* 



230556 
230560 
23C562 
23C564 



•0P_ 
'.CO 

,CC 

.00 



PAqqqq45 

"PA0C0046' 
PA000047 
PA000048 



( A»)CC(RU,a,8),SSTTLLVVW^HXXYYZZ* 
{AZ)00(EU,8,8),KKLLMMNNCGPPGQRRZ 
{ A*)DC(BU,8,a),SSTTLLV InWX Z* 



'Nai 



C 



TIME CLOCK CCC5AC41 



PLINID IICIIFCP 



CARC ID PBOOOOOI 



CIST. OF 3/Cl 



3/01 



PAGE NUMBER 260 



LINE 



LOCi 



CN 



BINARY CUTPLT 



NAME 



STATEMENT 



LOCATION 



1» 
2» 
2* 
I* 



230566 
2 3G566 
230567 
230567 
23057C 
230571 
230571 



'99- 

•00 

'.00 

.40 

.40 

.00 

.40 



««««»»«*»♦«»»»«•»»»•*»*•»»«•«»•»«*«««*•«•»••»«*»*••»••»•«•»«**•»•*»»» PBOOOOOI 

»«*«»«*««»BCO TO IQS CONVERSION ROUTINE »«»«•«»•»*»«» PB000002 

««««««««*•«»«»««««•««•«••»•««•«»«««•«»••«•••«••«•«•«««»««»««»•••«•••« PB000003 

SLC,$ P8000004 



5» 
l* 
1* 
t* 
S* 
1C» 



230603. 
230570. 
230605. 
230607. 
23C610. 
230611. 



co_ao 
50 oo' 

CO 80 
33 10 
35 10 
37 10 



.2 305 74.04 A 
230574.04 AC 



S A6IQS 



KR 



ILt_?iG_GSMI ,G 
B,$+1.32 

TI,2,G SEST,G KR 
SX,$13,G ULOZX 
SX,$14,G ULOZX+l 
SX,$15,G LiLOZX + 2 



UH 

.0 
.0 



-SET LCCP FOR SBIT BCD 



PB000005 
PB000006 
P8000007 
P6000008 
PB000009 
PBOOOOIO 



-SET LOOP FOR 68IT BCD 

-SAVE ORIGINAL INDEX REGISTERS 



11* 
I2» 
12* 
14* 
15* 
1£» 



230572 
230572 
230573 
230573 

23C574j 
23C576j 
230576, 
230577. 
230600. 
230601. 
230601, 
230602. 
230602. 



•P_c_ 

.40 
.00 
.40 

_0_0_ 

c_o_ 

40 
40 
40 
00 
40 



oocc_go. 

CCCCOO. 
230601. 
OCCCOl. 



34_3F 
74 5F 
30 42 
32 3F 



LV,_$l4,C.g($.15_)_ 

LC,$14,.32($15) 
BXCZ.G PRYC 
LV,$13,1.0($15) 
CNOP 

_G_AR_UH DRZtBy,64JjJ2)__ 

AAKGK LVt|15i$R 

L(BU,8),G RADA($ 
ST(V+I)(BU,8),.8 
CB,$14,G KRUH 

G PRYC LX,$13,G ULOZX 

^LXLli^iG_yLgzx+i 



-Pyi_*Ib'?_I^I_VF OF $ 1 4 
-PIT "N* IN CF OF $14 

-PUT »OUT* IN VF OF $13 

-RESERVE 2 FULL WORDS 



PBOogpii 

P8000012 
PB000013 
PB000014 
PB000015 
PB000016 



o_o_cc_02.._og 

_CC_GC11_._36_30 
230612.00 8F 
000000.10 
230574.34 
230607.32 

_2JiC_6_l_0_._3_4 

_2_3_0_6_l_l«_3_6 _10 
000001.50 OF 

000000.10 8E 
000000.00 80 
000000.06 SE 



II* 
Ifc* 
IS* 
2C* 
21« 
22* 



-Pyi_ilI_APpR£_S_S_*_8__I_N__$_l_5_ 

-LOAD 8BIT CODE IGS CHARACTER 
-STORE SAME 

-RESTORE INDEX REGISTERS 



PBOpppiJ 
PB000018 

peooooi9 

PB000020 
PB000021 

PB000022 



8D 
48 

10 

10 



010000.20 50 
110000.20 DC 



15) 
($13) 



.0 



23* 
21* 
25* 
26* 
27* 
26* 



230603 
230604 
230605 



GO 
40 

.00 
.00 
.CO 



110025.60 50 
002030.40 70 
106025.60 50 



LX_»_|15tG_yLpZX + 2 

B,1.32{$15) 
CNOP 

G OSMI L(V+I)<BU,8),.8( 
C00C0{BU,2)»0.0, 

_G_ S_E_S_T:___L|_V+I HBy,6)j.6( 
KOK 



.0 



-BACK TO RETURN 
$14), 43 -FOR SBIT BCD 
49 
$14), 43 -FOR 6BIT BCD 



PBPPPP23 
PB000024 
PB000024 
PB000025 
PB000026 
PB000027 



lit 

3C* 

31* 
32* 

33* 
34* 



230606 
230606 
230607 
230612 
230613 
230613 



•PP 

.40' 

.00 

.00 

.40 

.50 



_2AG_5JA»_1_0_ A0_ 
000000.30 00 
000003.00 



8f_G_S 

NOP 

DRZIB 

( IQS* 

(2ICD 

(IQS* 



PBp00028 
>B000028" 
PB000029 
PB000030 
PB000031 
PB000032 



6 ULOZX 
G RADA 



052 
l65~ 



U,64),I3) 
)DC{BU,8,8) 
<BU,8,8},00 
)DD(BU,8,8) 



-RESERVE 3 FULL WORDS FOR INDEXES 
,/l2345671B90=* 
lOlClO -QUOTATION 
,/// /STUVWXVZ* 



3_5.1 
36* 
37* 
38* 



230615 
230615 
230617 
230617 



±20 
.30 
.20 
.30 



t_2)_DD{_By,_8,8),Cl 
( IQS»)DD{BU,8,8) 
( IQS*)DC(BU,8,8) 
1 IQSY)0D(BU,8,8) 



iipicji -ACAON 

, , (///-JKLMNOPQR* 

, /» - SEMICOLON 

,$«///+ABCOEFGHI/.)///y 



PBp0pp33 

>B000034" 

PB000035 

PB000036 



'Kfll 



TIME CLOCK CCC54C41 PUNID 


UDUFCP 


CARD 


ID 


PCOOOOOl CIST. OF 3/01 


3/01 


PAGE NUMBER 261 




LINE LOCATION 


BINARY CUTPUT 






NAME 


STATEMENT 




LOCATION 




1* 
2* 

2* 












— 










.—_ omnnnoi 




HCLLERITH TO BCD CONVERSION 




rUUUUUUJ. 

PC000002 










PC000004 


5» 


23C622.CC « 














SLC,$ 






PCOC0005 


t* 
1* 
t* 
9* 
IC* 


23G622.C0 
230622.40 

230623.00 


C00C11.22 
230624.10 

00CC01.40 


00 
CO 

80 


430024.20 


50 


s 
s 


CA6 
CAB 


Z,$R 
$8,CGC$A 

LKBU, 24), 1.32,40 
TAIL, A 


-SET UP FOR A- 
-SETUP FOR A- 


-6 CONVERSION 

8 TYPE CONVERSION 


PC000006 
PC000007 
PC000008 
PC000009 
PCOOOOIO 


11* 


23G624.00 


CCCCGO.ll 


BF 








GGO 


LV£,4,0($15) 






PCOOOOll 


12* 
12* 
14* 
15* 
Id* 


230624. 4G 
230625.00 
230625.40 
230626.00 


C0CC11.C2 
C00C00.5C 
230653.70 
C0CC0I.12 


30 
5F 
42 
3F 










LV,$1,$R 
LC,$4,.32($15) 
BXCZ.iJFIN 
LV,$5,1.0{$15) 






PC000012 
PC000013 
PC000014 
PC000015 
PC000016 


17* 








( 




- 




FIND THE CHARACTER 


IN TABLE 




PC000017 


ie« 

19* 
2C« 
21 » 
22* 


230626.40 
230627.40 
230630.40 
23C63I.CC 


C0G000.C3 
000007.21 
000011.04 
C0CCC7.44 


84 
80 
30 
50 


103000.07 
007026. 60 


7C 

50 


G 


P 


CT0C11{V+I)(BU,3),.3($4) 
L{BU,7),$LZC,45 
LV,$2,$R 
LC, $2,7.32 






PC000018 
PC000019 
PC000020 
PC000021 
PC000022 


23* 


23G63I.4G 


COCCCO.ll 


84 


111000. C6 


7C 






LF(V+I)(BU,9),.9($4) 






PC000023 


2^» 
25* 
2i* 
27* 

2e» 


23C632.4C 
23C633.C0 
230633.40 
230634.00 
230634.40 » 


C00CC0.C5 
230645.70 
230670.04 
C00C07.46 
000007.21 


CO 
40 
32 
50 

80 


007026.46 


70 






C+I,$2,C 
BZXCZ,QER 
LV,$2,GTB($2) 
LC, $3,7.32 
LF{BU,7),$LZC,45 


-YES 




PC000024 
PC000025 
PCQ00026 
PC000027 
PC000028 


29* 


230635.40 


C0CC11.C6 


30 










LV,$3,$R 






PC000029 


3C» 
31* 
32* 

33* 
34* 


230636. CC 

230636.40 


230646.70 

1C2C00.C0 


42 

80 


411000.23 


IC 


- 




8XCZ,Q0K 

KFHBU, 9), (2)001000010 


-IF NO TRIPLE 
-CHECK FOR AN 


OR MORE PUNCHES 
8-3 COMBO 


PC000030 
PC000031 
PC000032 
PC000033 

PC000034 


3b* 


230637.40 


230641.36 


CO 










BZAt,GNO 


-NO 




PC000035 


36* 
37* 
3€» 
39* 
4C* 


23064C.CC 
230640.40 

230641.00 
230642. CC 


000C05.C7 
230646.50 

C42C00.CC 
23C643.76 


01 
CO 

80 
CO 


411000.23 


10 


c 


NC 


LVI,$3,5.0 
B,QGK 

KFHBU, 9), 12)0001000 10 

8ZAE,QNGZ 


-CHECK FOR AN 

-NO 


8-4 COMBO 


PC000036 
PC000037 
PC000038 
PC000039 
PC000040 


41* 


230642.40 


CCCC05.47 


01 










LVI,$3,5.32 






PC000041 


42* 
43* 
44* 
45* 
46* 


230643.00 

230643.40 
230644.40 
23C645.00 


230646.50 

202CC0.C0 
000CC6.C7 
230646.76 


GO 

80 
01 
C2 


411000.23 


10 


G 


NOZ 


B,QCK 

KFI{BU,9),{ 2)010000010 
LVI, $3,6.0 

BAE.GCK* 


-CHECK FOR AN 
-OK HUST BE A 


8-1 COMBO 
COLON 


PC000042 
PC000043 
PC000Q44 
PC000045 
PC000046 


4 7* 


230645.40 


000006.07 


01 






C 


ER 


LVI, $3, 6.0 






PC000047 


48* 


230646.00 


00CC00.C5 


01 










LVI, $2,0 






PC000048 




■ - • 



'Nai 



TIME CLOCK CGC54C41 



PUNIO IIDIINCP 



CARD ID PC000050 



OIST. OF 3/Cl 



3/01 



PAGE NUMBER 262 



LINE 



LOCAIICN 



BINARY OUTPUT 



MAPE 



STATEMENT 



LOCATION 



1* 

2* 230646.40 
2* 230647.00 
^« 23065C.CC 



230654.15 B3 
230663.00 86 

230650. 5C 01 



006600.06 70 



Q CK LVE,$6,QFLD($3) 
LF{BU,6,6),Gi$6J 
B,GST{$1) 



PC000050 
PC000051 
PC000052 
PC000053 



- « 

i» 

£» 
1C« 



PC Op 00 5 4 
'PC000055 
PC000056 
PC000057 
PC000058 
PC000059 



230650.40 
230651.40 
230652.00 
230653.00 



G0CC00.C6 85 
230653.10 CO 
COCCCO. 10 85 
23C626.50 48 



106600. 2C CO 



110000.20 CO 



GST ST{V+I){8U,6,6),.6l$5) 

BtQCHK 

ST(V+I)(BU,8,83,.8($5) 
G CHK CB,$4,GP 



11* 
12* 
13* 
14» 
15» 
It* 



230653,40 



C0GC01.5C OF CFIN_ 



_Bt.l«32i|15) 

THE CHARACTER LOCATOR TABLES 

,0t$2) 
,.6($2) 



pcoogp6p 

PC000061 
PC000062 
PC000063 
PC000064 
PC000065 



230654. CC 

23C6_54_,4_C_ 

23C655.00 



OOCCCO 
0„0_CC_CO. 
COCCCO 



.CO 82 
•_C6_82 
.14 82 



C FLD 



li? 

ie» 

IS* 
2C» 
21* 
22* 



iL«121$2i 
,.18{$2) 
, .24{$2) 
,.3C{$2) 
,.36{$2) 
, .42($2) 



PCPPPP66 
PC000067 
PC000068 
PC000069 
PC000070 
PC000071 



2 306 5 5.40 
230656.00 
230656.40 
230657.00 
23C657.40 



OCCCOO 
OOOCOO 
OOOCOO 
CCCCOO 
COCCCO 



,22 82 

.30 82 

.36 82 

.44 82 

.52 82 



23* 
21* 
25* 
26* 
27* 
2f* 



23C66Cj.CC_ 

23C66G.4C 

23G661.C0 

230661.40 

230662.00 



iK)CAC__0_ 
OOCCCO 
CCCCOO 
COCCOl 
OOOCOl 



._6C _82 
.66 82 
.74 82 
.02 82 
.10 82 



f_._^8L$2)_ 
,.54{$2) 
, .60{$2) 
,,66($2) 
,0.72($2) 



PCPPPP72 
PC000073 
PC000074 
PC000075 
PC000076 
PC000077 



2i» 
3C* 
31* 
32* 
33* 
34* 



THE TABLES 



PCpppp78 
PC000079 
PCOOG080 
PC000081 
PC000082 
PC000083 



230662.40 
230663. CC 
230664.16 * 
23C665.34 



COCCCO. 30 00 



CNOP 

tAX)DD(BU,6,6)tABCDE'FGHI+.)/X 
lAX)DDCBU,6,6)tJKLMNCPQR-$*/X 
( AA)Di:(BU,6,6),/STUVV»XYZ0,(A 



35* 
36* 
37* 
3£» 
39* 
4C» 



230666.44 
23C666.52 



23G67C^Pp 
23C670.4G 
23C671.00 
230671.40 



32 



D D { B U ._6,6K(^8j32 r_S_P_t CJAL_ 

{AX)OD(BU, 6, 6), 123456785 =-/X 



FOR COLON 



pcqqop84 

"PC000085" 

pcooooa6 

PC000087 
PC000088 

PC000089 



o_ccj)cc_._o_o_+_ 

C_C_CP_C_l_._l_6_+_ 
CCCCC2.34+ 
CC00C3.52+ 



G T8 



CNCP 

_VF»_q__ 

VF, 156 
VF,234 

UNTAIL 



_- FP_R _1 2_ .ZONE _____ 
_- FP_R_ _T_H £ _11_ZQNE^_ 
-FOR THE ZERO ZONE 
-FOR THE NO ZONE 



42* 
42* 

44* 
45* 



PCp00090 

PC000091' 

PC000092 

PC000093 

PC000094 



'Nai 



IIME CLOCK CCC54041 



PUNIO IIDIIMCP 



CARD ID PDOOOOOl 



DIST. OF 3/Cl 



3/01 



PAGE NUMBER 263 



LINE LOCAJJiJN Bl'l^ARY CUTPUT ISiA^E STATEMENT JrpCATIGN 

1, ■ ._ . . ; . PDOOOOOl 

2* - THE BREAKDOWN ROUTINE PD000002 

3«. -,-. _ . , ■ . — . — -^ PD000003 

<» - PC000004 

_^?„2 3C6 71^JJL Jf ^ SLC,$ " PpOOOOOS 

i* -SBRKe, 6 BIT BCD VERSION, 16 BITS BETWEEN OUTPUT - PD000006 

1* -FIELDS. LARRY LEVY - PD000007 

£, ._ PD000008 

9« - , PD000009 

1C» 2 30672.CC ^2 3 73 7. C 3 10 ABAIS SX , GX INN , Q SAV 1 ."SA^E^NDEX REGISJERS PQOOOOIO 

U« 23C672.4G ^JAV*A'A^A^ SX,CX_GyT,Q SAV2 "_ PCOOOOll 

12» 23C673.0C 23C7A1.C7 10 SX,CX CF9,Q SAV3 PD000012 

12* 230673.40 CO0C00.02 3F LV,CX INN, 0. ($15) -INITIALIZE IN P0000013 

14» 230674. CO 00OCCO.42 5F LCCX INN,.32($15) -INITIALIZE N PD000014 

15» 230674. 4C 000001.04 3F LV,CX OUT, 1. ($15) -INITIALIZE OUT PD000015 

16»_2 3C67_5_._G_C_ ^2_3_C745._C6 10 _^^ LX^GX CF9jQW__CF_9 -^I-ICUNT CHARS INS JCR£0_F_IE_L_D_ PQ000016 

1?» 230675.40 ^CJ]CC_qi.4 8F 022000 .CO FC CMOCOO ( BUj 18, 8 J , 1 . 32 {$15_)__- IN I TI ALI ZE F lELD COU^^^ PDOOOOIJ 

IE* 230676. 4C 230746.37 80 030040.20 50 L ( BU, 18+QKS I Z J , QCOUNT, 64 PD000018 

19* 230677.40 000C00.C6 81 106000.06 70 Q NEXT LF{V+I)(BU,Q KSIZJ, KSIZIQX INN) -LOAD INPUT CHAR. STEP X PD000019 
2C* 230700.40 230746.31 80 006600.23 10 KF,Q CMA -IS THIS A COMMA PD000020 

21« 230701.40 230710.76 C2 8AE,C IF C P0000021 

22 '230 702. CC _2_3C_7A6_'_6_l„80 006600.23 10 KF,t BLNK -JAJilL^ A 8k*NK PQ009022 

23 •23070 3^ CO J^J^J_CA'JA A1 ^ BAElQ_STEP PCq00023 

24* 230703.40 230720.06 4E ~ C8RZ,QX CF9,Q 2BIG -TEST FOR OVERSIZED FIELD PD000024 

25* 230704.00 C0GC0O.C6 82 106000.12 FC SF(V+niBU,Q KSIZJ, G KSIZIQX OUT) -STORE CHAR. STEP X PD000025 

26» 230705.00 » 230677.42 48 « STEP CB,GX INN,Q NEXT -TEST FQR LAST INPUT CHAR P0000026 

27* 230705.40 000001.40 8F 022000.22 BO M+1 CBU, 18) , 1.321 $15) -COUNT LAST FIELD PD000027 

26* 2 30706^40 33S^JJAAA A'^^ Q__BJ-_ ^Ql^?l»QXCF9,QRSTR_ -STORE _R_._H._ BLANK __PQO09028 

2S* 230707. CO "_AOAC_QP_' 0.6 82 106040. 12 FC SF(\/+n[BU,G KSIAL»AJ<AL^JAX_A^J-Il6^^-1F_NEC£SSAR^ ~_ ~__PD0q0029 

3C» 230710.00 23C7C6."5C CO B,G BL PD000030 

31* - PD000031 

32* 230710.40 CCCCOl.40 8F 022000.22 80 C IF C M + IC BU, 18 ) , 1.32C $15 ) -COUNT THIS FIELD PD000032 

33* 230711.40 230713.46 4E CBRZ,QX CF9,Q REDY -TEST FOR SHORT INPUT FIELD P0000033 

34* 230712.00 CACACA-A^ A2__A06040.12 FA__AAEAC___AfilvtlllBU,c KSizjj Q^ Pcqqoq34 

35^* 230713.00 2 AGAIA* A^. AQ_ A^AlQ.^ A??».G_?E?0 r__L__ALA'ilS_AQER_SHORT FIELDS ^^000035 

36* 230713.40 230746.04 BO " Q REDY V+,GX DUT,Q SKIP -SKIP TO BEG OF NEXT OUTPUT FIELD PD000036 

37* 230714. CQ 000001.40 8F 022043.23 10 KF( BU, 18 ) , 1.32t $15 ) ,64+QKSIZ PD000037 

38* 230715.00 230716.37 40 BZAF,CRSTR - PD000038 

3S» 230715.40 230677.42 48 C8,GX INN.Q NEXT -TEST FOR LAST INPUT CHAR PD000039 

4C* ^ P^9.9.9^'^9 

4],* 2 3C716.CC A3A13A'A2__10_ AAS.TA k^^^A^A^^l.^.^^^)- rAEATARAA^iDEX REGISTERS PDqqqq4i 

42* 230716.40 230740. C4 10 " LX,GX OUT.Q SAV2 PD000042 

42* 230717.00 230741.06 10 LX,CX CF9,Q SAV3 PD000043 

44* 230717.40 0O0C02.5C OF B,2.32($15) -NORMAL RETURN PD000044 

45* - PD000045 

^l*_2 3q72C_.CA » A^A^J^\A9Al^A?^999j'33^PP^^^AA^A'^.^_Atl[.^^L}:^hl-33S3}AL^-A^AA\A^l^^ll^^9 Pcqqqq46 

^l*_2 3C72i_.oo AC_CA2"i._cq_8q__23q73A«CAA0 S'lAPi»i»Q^_i!l!'N»AA*AL_rAEAACRE'lND£XES BUAA'''AE_AHJ^ PQOOoq47" 

46* 230722.00 C00G22.CC 80 230740. C2 EC SWAPI,1,GX OUT,Q SAV2 - f^RESENT VALUES FOR RE-ENTRY PD000048' 



'Kfll 



IIME CLOCK C0C54CA1 



PUNID IIDIIKCP 



CARD ID PDC00050 



DIST. CF 3/Cl 



3/01 



PAGE NUMBER 264 



LINE LDCATICls' BINARY CUTPUT NAME STATEMENT L P C AT_l_qN_ _ _ _ _ _2_3_0_7_2_3 



1* 

2* 
2* 
A* 



230723.00 
230724.00 
230725.00 
230725.40 



C00C23.C0 80 
COCCIO.OO 30 
230744.37 10 
CCCC02.10 CF 



230741.02 EC 
230742.04 AC 



SWAPI,1,QX CFg,Q 
TI,2,$L,Q SAV4 
SX,$15,C SAV6 
Bf2.__l$15J 



SAV3 - AT QBRK8 
-SAVE $L AND $R 

-tRROR RETURN 



PD000050 
P0000051 
PD000052 

PD000053 



5* 
6* 
1* 
£» 
?» 
1C« 



pcgppp54_ 

"PD00G055 
PD000056 
PD000057 
PD000058 
PD000059 



230726.00 
230727.00 
23C73C.C0 



C00021.GO 80 230737.02 EC 
C0CC22.C0 80 230740.02 EO 
C0CC23.C0 80 230741.02 EO 



-RE-ENTRY POINT FOLLCWING ERROR RETURN 
Q8RK8 SWAPI,1,QX INN,Q SAVl -RESET INDEXES 
SWAPI,1,QX CUT,Q SAV2 
_SWAPIil,GX_CFg_,Q _S_AV3_ 



11* 
12* 
13* 
14» 
15* 
16* 



23G731_.P0___ 
230732.00 
230732.40 
230733. CO 
230733.40 * 



_2_3_C742 ._og _ao _ _oggp 1 p^ p4_ _ap_ 

230744.36 10 
230746.04 BO 
230716.02 4A 
23C746.31 80 006600.23 10 



TI,_2,Q„SAy4^$L 
LX,$15,C SAV6 
V+,CX OUTfQ SKIP 
CBZ,flXINN,QRSTR 
KF,C! CHA 



-RESET $L AND $R 



PDPPPP6P 
PD000061 
PD000062 
P0000063 
PD000064 
PD000065 



C SPAC 



-SKIP TO BEG OF NEXT OUTPUT FIELD 
-TEST FOR LAST INPUT CHARACTER. 
-TEST FOR COHMA. FIRST CHAR READ 
CANNOT BE A COKiWA 



11? 

le* 

IS* 
2C* 
21* 
22* 



23C_734_.4_C_ 

230735.00 

230736.00 



_2_3_06_77._76_C2 
000000.06 81 
230733.10 00 



BAEtC_NEXT___ 
LF(V+I) (BUfQ 
B,Q SPAC 



PD0ppp66_ 

PD000067 

PD000068 

PD000069 

PD000070 

PD0C0071 



106000. €6 70 



23C737^CC_ 

23C74C_.CP„ 

230741.00 

230742.00 

230743.00 

230744.00 

000021.00+ 



c cj]_oc_c_._Q.Q.t o_gg 
c cciP_G_c„._o_o_t _o_gg 

CC00CC.00+ COO 
0CCO0C.O0+ COO 
0COOOC.00+ 000 
CCCOCC.OO+ COO 
+OCCOOOCC 



pgpopp 
ggcggg 
cooooo 

000000 
000000 
000000 
BU 

By 

BU 



_gccccg_ 
gcgcgc, 

OCCCCC 

occcco 

OCCOOO 

000000 

,1CC,IC 



Q_„S_A_VJ_ 
i3__SAV_2_ 
Q SAV3 
G SAV4 

G SAV6 

G X_ _QUJ_ 
CX CF9 



_XWt_ 
XWt 



KSIZ), Q KSIZIGX INN) -LOAD NEXT CHAR. STEP X 



-STORE INDEXES 



22* 
2A* 
25* 
26* 
27* 
2£» 



pQQggg72 

PD000073 
PD000074 
PD000075 
PD0000 76 

PD000077 



XWf 
XW 
XWt 
SYN,$1 



•STORE $L 

-STORE $R 
STORE $15 



2i» 
3C» 
31* 
32* 
33* 
34* 



QQQC22.CC+ 

00CC23.CC+ 



+ilQGop_c_cg 

+CCCCOCCG 



ilCCjip 
,1CC,10 



SYNt$2 
SYN,$3 



PDg00078 

"pcoooo7g 

PD000080 
PD000081 
P0000082 
PC0000B3 



PROGRAM MODIFICATION CARDS 



23g745.cg_ 
230746. gg_ 

230746.31 
230746.37 
230746.61 

000000.00+ 



c c pp_c_c_._c_c_+_ _Q.c_Q. _o gg 1 1 _ 2 3 c 745 
CCOOCC.20+ 



C>__CF9_ 

_Q__SKXP_ 

G CHA 
CCCUNT 
e BLNK 
G KSIZ 



AW.f_g._»9,CViCFg 
VF,.16 



- NC_._ _0_F_ CHARS PER _ CU T P U J F_I_E_L_D_ +-1 
-NO. OF BIT BETWEEN STORAGE FIELDS 



35* 
36* 
37* 
3e* 
3S* 



PDgggg84 

PD000085 
PD000086 
PD000087 
PD000088 



CC0014 



+0CCCOOC6 



NULL 



{A»)DC{BU,QKSIZfeKSIZ),,* -COHMA 
ODCBU, 18), (8)000014 -MAX. 

iA»JDD(BU,QKSIZ,QKSIZ), • -BLANK 
SYN, 6 



NO. FIELDS IN BREAKOUT 



"HV. 



TIME CLOCK CC054041 PUNID 


IIOIIWCP 




CARD 


ID PECOCOOl DIST, CF 3/01 


3/01 PAGE NUMBER 265 




LINE LCCATICN 


BINARY OUTPUT 




NAME 


STATEMENT 


LOCATION 




1* 
2* 

3* 
A* 




• 










JCe CONTROL PHASE 1 OVERLAPPED 
— «•»«»»»»*»«««*«*«»»*»«««»»•»•»•*»»«»»»•»»«««*»•«•*»»«♦»»«»•«•«•»•«#•«» 

CNOP 


PEOOOOOl 
PE000002 
PE000003 
PE000004 


5* 


230747. CO 










C4Ci 


VJCITT 


DD<eU»12), {8)0401 




PE000005 


6* 
7* 

e* 

s* 

ic* 


230747.14 * 

230747.55 
230750.00 • 


C0CCC0.41 
C00C02.CC 






0461724 


DR(BU,33),(1) 
EXT(C,18) 
B,YC11ST 
DR{BU},I2J 


PE000006 
PE000007 
PE000007 
PE000008 
PE0000G9 


11* 














- READ 


ONE CARD , DETERMINE TYPE 


AND SEQUENCE , AND EXTRACT INFORMATION 


PEOOOOIO 


12* 

12* 
14* 
IS* 
16* 


230752.00 
230752.40 
230753.00 
230753.40 


215011.74 
231121.75 
231071.35 

231C67.34 


30 

DO 
30 
10 








— «»»««««»«««««««««*«««»»«««««««■»«««««««««*»«««««««»««»«*»«*«•«»»«•««««« 
YCllST LV,$14,SREJje -JCl INITIALIZING PACKGE 

SVA,14,YSPDCR 

SV,$14,VC1JJC 

LX,$14,YC1MTT 


PEOOOOli 
PE0000i2 
PE000013 
PE000014 

PEOOOOIS 


17* 


230754. CO 


230747.35 


10 










SX,$14,YJC1TT 




PE000016 


le* 

IS* 
2C* 
21* 
22* 


230754.40 
230755.00 
230756.00 
230757.00 
23C76G.C0 


230763. 5C 
215001.20 
230771.21 
230364.75 
02C606.33 


00 
80 
80 
8C 
01 


230766 
230763 
230763 


.34 
.74 
.74 


06 
OC 
04 


YCIA 


B, YClAl 

BBZ,SJlFUL,YClUNC-.32 

BZB,Y1UCXW+1.17»YC1A1 

BZBZtREJJ0B+.61,YClAl 

LVI,$13,YISUKM 


-TEST FOR UK 


PE000017 
PE000018 
PE000019 
PE0G0020 
PE000021 


22* 


230760.40 


231553.34 


30 








YCIPRJ 


LV,$14,LASTPP 




PE000022 


24* 
25* 
26* 

27* 
2£» 


230761.00 
230762. CO 
230762.40 
230763.40 
230764.00 


C0CC0O.45 
COCG01.33 
000000.46 
C0CC40.10 
C0C117.4C 


8E 
3E 
8E 
GO 
80 


001000 
001000 


.36 
.GO 


FC 
FO 


YClAl 


CMllll(fiU,l),TRJECT{$14) 
SV, $13,1. ($14) 
CMO0O0(BU, 1!),TASGNP($14I 
B.DMCP 
,SKCM 




PE000023 
PE000024 
PE000025 
PE000026 
PE000027 


29* 


230764. 4C 


000003. CO 


30 










,3.0 


-SCRl 


PE000028 


3C» 
31* 
32* 

33* 
34* 


230765.00 * 

230765.40 

230766.00 

230766.40 

230767.00 


OGOCOO.CO 
231062.10 
230765.25 
230770.35 
231215.10 


80 
00 
80 
01 
00 








YCICA 
YCIUNC 


fO 

B,YC1C 

LV6, $10, YCICA 

LVI, $14, YIUCXW 

B,YUNC0D 


-END RETURN - TO SDRET 
-TO UNCODE 


PE000029 
PE000030 
PE000031 
PE000032 
PE000033 


35* 


230770.00 


CCC000.OO+ 000 


OOCOOO 


OCCCOO 


YIUCXW 


XW,C 


-INFORMATION SLOT 


PE000034 


36* 
37* 
36* 
3S* 
4C» 


230771.00 
230771.40 
230772.00 
230772.40 
230773.00 


CCC001.00+ 
OOCCCO.GO 
231074. CO 
231022.50 
230771.34 


8A 
80 
00 
30 










VF,1.0 

,0{$10) 

,YC1DB 

B,YC1B 

LV,$14,YlUCXi^ +1.C 


-TYPE OF CARD DISPOSITION 

-ERROR RETURN 

-PICK UP TYPE OF CARD 


PE000035 
PE000036 
PE000037 
PE000038 
PE000039 


41* 


230773.40 


000000.14 


OE 










BR,C($14) 


-GO TO SERVICE ROUTINE 


PE000040 


42* 
42* 
44* 
45* 
46* 


230774.00 
230774.40 
230775.00 
230775.40 
230776.00 


C0CCC2.35 
231013.50 
000000.35 
231007.10 
00GC04.35 


01 
00 
01 
00 
01 








- '■ 


LVI,$14,2.0 

B,YC1TC 

LVI,$14,0.0 

B.YCIJC 

LVI,$14,4.0 


-T.O.P. CARD 
-JOB CARD 


PE0GG041 
PE000042 
PE000043 
PE000044 
PE000045 


47* 


230776.40 


230771.35 


30 










SV,$14,Y1UCXW+1.0 


~LIM CARD CHANGE 


PE000046 


48* 
4S* 


230777.00 
230777.40 


23C763.5C 
000000.30 


CO 
00 










B, YClAl 
NOP 


-DISPOSITION + RETURN 


PE000047 
PE000048 






V 





















'Nai 



IIME CLOCK 00054C41 PUNIC 


llDllf^CP 


1 


:ard 


ID PE000050 DIST. OF 3/01 


3/01 PAGE NUMBER 266 




LINE LQCATICN 


BINARY CUTPUT 




HAf^E 


STATEMENT 


LOCATION 231000 




1* 
2* 
3* 
i* 


231000.00 » 

231001.00 

231002.00 

000000.00+ 


231075.00 
53CCC0.C0 
230763.76 

+00CC0053 


80 
80 
C2 


006000,06 
406000.23 

BU,06 


70 

10 

,06 


YDOLLR 


LF{BU,6),YC1DB+1.0 
KFKBU, 6), YDOLLR 
BAE,YC1A1 
{A»)DDI(BU,6,6),$» 




PE000050 
PE000051 
PE000052 

PE000053 


5 » 


231CC2.40 


23C770.34 


10 










LX,$14,Y1UCXW 


-lOD CARD 


PE000054 


t* 
7* 

£» 

S» 

1C» 


231CC3.00 
231003.40 
231004.00 
231004.40 
231005.00 


231073.35 
231C04.77 
231703. 10 
231073.00+ 

CCCOCO 


10 
CI 

CO 










SX,$14,YC1DB-1.0 
LVI,$15,$+1.0 
8,LDEC0D 
VF,YC1DB-1.C 

CF,C 


-SET UP INFO. FOR DECOCOE 


PE000055 
PE000056 
P.E000C57 
PE000058 
PE000059 


11* 


231005. 4C 


CCGCCC.O0+ 










YCIDJD 


VF,C 




PE0QO060 


12* 
12* 
14* 
15* 
U* 


231006. CO 
231006.40 


231G17.1C 
23C763.5G 


GC 
00 








B,YC1DJP -ERROR RETURN 

B.YCIAI -NORMAL - GO BACK + READ 1 WORE CARD 

- SERVICE ROUTINE FOR JOB AND T.O.P. CARDS 

— ««■»«»»■»««»«««»««««»««»«««»«««»**<»»»»*»*»»«♦«»»»#*««««»««**»«»«**«**»* 


PE000061 
PE000062 
PE000063 
PE000064 
PE0C0065 


17* 


231007.00 


231C75.32 


10 








YClJC 


LX,$13,YC1DB+1.0 


-PUT JOB NAME 


PE000066 


It* 
19* 
2C» 
21* 
22* 


231007.40 
231010.00 
231010.40 
231011.00 
231011.40 


231072.33 
230771.35 
000040.10 
000121.40 
000000.30 


IC 
30 
00 
80 
OA 










SXt$13,YC1DB-2.0 
SV,$14,YIUCXW+1.0 
B,D MCP 
,S LOG 1 
NOP,0.0{$10) 


-INTO ALPHA - 1. SLOT FOR DECODE 
-SET DISP. TO T.O.P. 

-LOGGED 1 , ASSUME AODR. IN $10 

-HOLLERITH FWA 


PE000067 
PE000068 
PE000069 
PE000070 
PE000071 


23* 


231012.00 


231C63.4C 


80 










SICYCIRP 




PE000072 


2<* 
25* 
26* 
27* 
2fc» 


231012.40 
231013.00 
231013.40 » 
231014.40 
231015.40 


231C63.10 
230763,50 
230770.51 
23C770.53 
C0CCC4.35 


CO 
CO 
80 
80 
01 


231053, 
231016< 


.34 
.34 


02 
02 


YCITC 


B,YC1JT 

BtYClAl 

fiB, .41 + Y1UCXW,YCISCN 

BB, .43+YlUCXW,$+1.32 

LVI,$14,4.0 


-READ ONE MORE CARD 
- BRANCH IF A COMPILE JOB 


PE000073 
PE000074 
PE000075 
PE000076 
PE000077 


29* 


231016,00 


230771.35 


30 










SV, $14,Y1UCXW+1.0 




PE000078 


3C* 
31* 
32* 
33* 
34* 


231016.40 

231017.00 

231017.40 


230763.50 

231005.72 
000035.32 


GO 
30 

eo 








B.YCIAI -RETURN TO READ 1 CARD 

- •««««•«««««««»««««»•«•««»«•««•«««»«»•«•«•»«•«*•*«••«•*««•««««•*»«•«••» 

- ERROR ANALYSIS ROUTINES 

YClCJP LV,$13,YC1DJ0 -GET ERROR CODE 
V+,$13,$13 


PE000079 
PE000080 
PE000081 
PE000082 
PE000083 


3f* 


231020.00 


00CC35.32 


BO 










V+,$13,$13 




PE0000B4 


36* 
37* 
3£« 
39* 

4C» 


231020.40 
231021.00 
231021.40 
231022. CO 
231022.40 


000020.33 
231115.70 
020532.33 
231051. 5C 

COCCOO.CO 


CD 
C2 
05 
CO 
8A 


014000, 


,20 


50 


YCIB 


V-I,$13,16.0 
BXVLZ,YC1HLP 
V+I,$13,YDEJM1 
8,YC1EJ1 
L(BU,12),0($10) 


-DEVELOP ERROR MESSAGE 

- SHOULD NEVER TAKE THIS BRANCH 


PE000085 
PE000086 
PE000087 
PE000088 
PE000089 


41* 


231023.40 


110000.00 


80 


414000, 


.23 


10 




KFH8U, 12), (8)1100 


-CHECK FOR T CARD. 


PE000090 


42* 
43* 

44* 
45* 
46* 


231024.40 
231025,00 
231025.40 
231026.00 
231026.40 


230763.76 
230771.32 
231111.32 
020656,33 
231C30.72 


€2 
30 
3D 
04 
CO 










BAE,YC1A1 

LV,$13,Y1UCXW+1.0 

LV,$13,YC1EM($13) 

KVI,$13,YICEM 

BZXE,$+2.0 




PEOOOOgi 
PE000092 
PE000093 
PE000094 
PE000095 


47* 


231027.00 * 


42CC00.C0 


80 


414000. 


,23 


10 




KFKBU, 12), (8)4200 


-CHECK FOR FIRST BINARY CARD. 


PE000096 


4e* 

49* 
5C» 
51* 
52* 


231C3C.CC 
231030.40 
231031.40 
231032.40 

23IC33.CC 


231C53.36 
231376.00 
231414. CO 
230763.76 
020632.33 


CO 
80 
80 
C2 
04 


060000, 
060000, 


06 
.23 


70 
10 




BZAF,YC1SCN 

LF{6U,48),YUCBF2 

KF(eU,48),YTYPMK 

BAE,YC1A1 

KVI,$13,YEMJC 


-NO IT MAY BE A COMD CARD 


PE000097 
PE000098 
PE000099 
PEOOOIOO 
PEOOOlOl 


53* 


231033.40 


231046.32 


CO 










BZXE,YC1SEJ 


- 


PE000102 
















m 




J 





'MSI 



TIME CLOCK CCC54C41 PUNID 


llOll^CP 


( 


CARD 


ID PE000104 GIST. OF 3/01 


3/01 PAGE NUMBER 267 




LINE LOCATION 


BINARY OUTPUT 




NAME 


STATEMENT 


LOCATION 231034 




1* 

2* 
2* 
4* 


231034,00 
231035.00 
231035.40 
231036.40 


231072.00 
231043.77 
231074.00 
231C70.00 


80 
50 
80 
80 


000400. 

060000. 
060000. 


00 

06 
23 


FC 

70 
10 


YClSC 


CM0C00,YC10B-2.0 
SC,$15, YISCCS 
LF(BU,48),YC1DB 

KF(eU,48),YC0MDM 


-SET UP COUNT FOR SYSTEM COMMANDS. 


PE000104 
PE000105 
PE000106 
PE000107 


£» 


231037.40 


231041.76 


C2 










BAE, YClSCC 




PE000108 


6* 
1* 
£* 
5* 
IC* 


231040. CO 
231040.40 
231041.00 
231041.40 
231042.00 


231C63.4C 
231063.10 
231046.10 
000040.10 
C0G120.CC 


80 
00 
00 
00 

80 








YClSCC 


SIC, YCIRP 
8, YCIJT 
B, YCISEJ 
B.OyCP 
fSCCMD 




PE000109 
PEOOOllO 
PEOOOlll 
PE000112 
PE000113 


11» 


231042.40 


OOOCOl.CO 


80 










,1.0 


-DISPOSITION FOR JCl, 


PE000114 


12* 
13* 
14* 
15* 
16* 


231043.00 * 

231043.40 

231044.00 

231044.40 

231045.40 


231074. CO 
CCCOOO.CO 
231C65.5C 
215001.12 
230763.50 


80 
80 
00 
80 

00 


231062, 


34 


02 


YISCCS 


,YC1DB 

,0 

B,YCOMDJ 

B8,STRANB,YC1C 

B,YC1A1 




PE000I15 
PE000116 
PE000117 
PE000118 
PE000119 


n* 


231046.00 


231047,77 


CI 








YCISEJ 


LVI,$15,$+1.32 


- 


PE000120 


18* 
IS* 
2C* 
21* 
22* 


231046. 4C 
231047.00 
231047. 40 
231047.71 

231C5C.CC 


231074.22 
231703.10 
231073.00+ 

CCOOCC 


00 
00 






1 




Z.YCIDB 

B.LDECOC 

VF,YClCe-1.0 

DD1EU,2),{2J01 

CF,G 


-ZERO ALPHA+l.C SLOT 
-REJECT BIT SET TO ONE. 


PE000121 
PE000122 
PE000123 
PE000124 
PE000125 


23* 


231C5C.4C 


GCOOOC.OO+ 












VF,0 




PE000126 


2<* 
25* 
26* 
21* 

2€« 


231051.00 
231051.40 
231052.00 
231052.40 
231053.00 


CCCCG0.30 
231553.34 
0Q0C01.33 
231056.50 
231074.22 


CO 
30 
3E 

00 

00 








YClEJl 

YCISCN 


NOP 

LV,$14,LASTPP 
SV, $13,1. ($14) 
B, YCISEX 
Z,YC1DB 


-ZERO ALPHA + 1. SLOT 


PE000127 
PE000128 
PE000129 
PE000130 
PE00bl31 


2S« 


231053. 4C 


231054.77 


CI 










LVI,$15,$+1.G 




PE000132 


3C# 
31* 
32* 

33* 
34* 


231054. CC 
231054.40 
231055.00' 
231055.40 
231056. CC 


231703.10 
231073.00+ 
CCCOCC 
CCOOCO.OO+ 

000C00.30 


CO 
00 








YSJCCS 


B,LCECOD 
VFiYClDB -1.0 
CF,C 
VF,C 

NOP 


-TO DECODE 


PE000133 
PE000134 
PE000135 
PE000136 
PE000137 


35* 


231C56.40 * 


000040.10 


CO 








YCISEX 


BtDPCP 


-SCAN TO NEXT JOB. 


PE000138 


36* 
37* 
3fi* 
3S* 
4C» 


231057.00 
231057.40 
231060.00 
231061.00 
231C61.40 


CC0117.40 
C00C03.40 
231134. CO 
CCCG01.35 
230771.35 


80 
80 
80 
01 
30 


022000. 


22 


BO 




tSKOM 

,3,32 

M+1{BU,18),YCU0C 

LVI,$14,1.0 

SV,$14,Y1UCXV< + 1.C 


— SCAN 

- RESTORE DISP. TO JOB 


PEOOoisg 

PE000140 
PE000141 
PE000142 
PE000143 


41* 


231062. CO 


000040.10 


CO 








YClC 


B.DMCP 




PE000144 


42* 
43* 
44* 
45* 
46* 


231062.40 
231063.00 
231063.40 
231064.00 
231064.40 


000041. CO 
231071.34 
231063.70 
000001.35 
231071.35 


80 
50 
42 
08 
50 








YCIJT 
YCIRP 


,SDBET 

LC,$14,YC1JJC 

BXCZ,$ 

C- I, $14,1 

SC,$14,YC1JJC 




PE000145 
PE000146 
PE000147 
PE000148 
PE000149 


47* 


231065.00 


231C56.5C 


CO 










B, YCISEX 




PE000150 


46* 
4S* 
5C* 


231065.40 
231066.00 
231066.40 


020666.33 
230760.50 
00CCC0.30 


CI 

CO 
00 








YCCMDJ 


LVI,$13,YC0^^JM 

B.YCIPRJ 

CNOP 




PE000151 
PE000152 
PE000153 



























*Hai 



e 



1 IME CLOCK 00C54C41 



PUNIO llDliyCP 



CARD ID PE000155 



OIST. OF 3/Cl 



3/01 



PAGE NUMBER 268 



LINE 



LOCATICN 



BINARY OUTPUT 



NAME 



STATEMENT 



LOCATION 



231067 



1* 231067. CO 
2* 231067.14 
3* 

^» 231067.55 



OAOl YCIHTT 



OOCC00.41 



0461732 



DD(BU, 12), (8)0401 
DRCBU,33),(1) 
EXT(0,18) 
B,YC1A 



PE000155 
PE000156 
PE000157 

PE000157 



5* 231C7C.0C YCCMDM ( AX )0D{ BU, 48 , 6 ) , CCMD 



PE000158 



6* 231071.00 

7» 231072.00 

t« 231074.00 

S* 231111.00 

1C« 231111.40 



CCC0C0.00+ 
C0CC02.C0 
0OOC15-CO 

020636.00+ 

000000.30 CO 



YClJJC 

YCICB 
YCIEM 



VF,0 

DRCN), <2) 
DR{N),(13) 
VF.YTCEM 

NOP 



-DECODE BUFFER 



PE000159 
PE000160 
PE000161 
PE000162 
PE000163 



11* 
12» 
13» 
14* 
15* 
1£» 



231112_.CC_ 

231112,40 

231113.00 

231113.40 

231114.00 

231114.40 



_C_2_C_6 3 2 ._g 1 

000000.30 00 

C2C646.00+ 

C0CCC0.30 00 
C0CCC0.30 00 
000000.30 00 



_Y_ SJJS-Ji __VF»_YfcMJC 
NOP 
VF»YLCEM 

NOP 
NOP 
NOP 



PE000164 
PE000165 
PE000166 
PE000167 
PE000168 
PE000169 



11* 
16* 
1^* 
2C» 
21« 
2i» 



23_1_1J_5_._G_0_ 

231115.40 

231116.40 



_C.2_C_6_56_._00t_ 
215001.20 
231062.10 



YC1J_DM VFtYICEM 

YCIHLP CM1111,SJ1FUL 
B,YC1C 

- THE FOLLOWING IS A ROUTINE 

- AT TAPE-SWITCH TIME. 



PE0ppl7p_ 

PEOOOlZi 

PE000172 

PE000173 

PE000174 

PE000175 



80 
00 



001000.36 FO 



TO EVALUATE THE STATUS OF A SPOOL TAPE 



lit 
24* 
2 5* 
26 • 
21* 
2£» 



PE00P176 
PE000177 
PE000178 
Pe000179 
PE000180 
PE000181 



231117 
231120 
231121 
231121 
231122 



.00 
.00 
.00 
.40 
.GO 



C0CG35.C0 
230364.20 
C0CC26.32 
000000.33 
231130.70 



80 
80 
50 
08 
42 



231134.04 EO 
001000.20 50 



YTST SWAPI,2,YJCX,YC1JCX 
LfBUt 1) »REJJ0B+.16 
LC,YJCX,VT2 

YSPOCR C-I,YJCX,0 
BXCZ,YTCU 



-SUBTRACT REJECT COUNT 



2it 
3C» 
31* 
32 • 

32* 
34* 



231122 
231123 
231124 
231124 
231125 
231126 



.40 
.00 
.40 
.40 
.00 



_cc_c_c_o_i_«Ai_ 

C0CG02.35 
231122.72 
230364.21 
C0CC01.33 
00CC01.61 



001000.12 FO 



BE 

07 
48 
80 231127.74 00 

00 

8E 001000.36 FC 



YRTL 



CMO 
V + I 
C8, 
BZB 
V-I 
CMl 



IQUYT 
CR,YPP 
YJCX,Y 
,REJJO 
,YJCX, 
111,YT 



BBiYPPRX) 

RX,2.0 

RTL 

B+.17,YHSKP 

1.0 

RB(YPPRX) 



PEQ0Q182 
PE000183 
PE000184 
PE000185 
PE000186 
PE000187 



JAt 
36* 
37» 

3e« 

3"5* 
4C* 



231127 
231127 
231130 
231130 
231131 
231132 
231133 



.40 
.00 
.40 
.CO 

•CO 
.00 



CPC_C0_2„.„3_5_ 
231130. 15 
231130.33 
230364.33 
231121.40 

iLQ_QC3A._cp 

400000.10 



DO 
OD 
50 
80 
8C 
00 



_v+_l 

SVA 
V-I 
SC, 

CMO 
SWA 



CR,_YPP 
,VT2,$ 
,YJCX, 
¥JCX,R 
000(BU 
PI,2,Y 



RX,2.g 

+ .32 

$ 

EJJOB 

,18),YSPDCR 

JCXfYClJCX 



PEOOOiaa 
'pEoooieg' 

PE000190 
PE000191 
PE000192 
PE000193 



YHSKP 
YTCU 



022000. CO FO 
231134.04 EC 



41» 
42» 
43* 
44* 
45» 
4£» 



XTSJA _ 
- PARAM 
YClJCX 

YClJOC 

_X_4CA 

_Y_P_P_RX __ 

YTRB 

WREJRT 



„ B.,_{_ 

ETERS 
XW, 
XWt 
SYN 
SYN 



fil^GCO 
FGR A 


TPREFT 
{BU,18 
»|13 



Go.g 

80VE ROUTINE 

,TPPC,TPPREF 
), YClJCX 



PE000194 
PE000195 
PE000196 
PE000197 
PE000198 
PE0C0199 



231134. OC 
231135.00 
231134-00+ 

000035. CC+ 



CCCOOC.00+ COO 
232234.00+ 000 
+OOC0OOC0 
+0OCO0OCC 



000000 COGOOO 

000025 232231 

BU,22 ,10 

BU, ICC, 10 



-FOR JOB COUNTER 

-FOR PPREF TABLE INDEX 



4I*_0OCC36^Oi3+_ 
46* 000001.61+ 
4S« 020376. CC + 



_+_o_o_co.qoco 

+GCGC0000 
+00C000CC 



8UjlC0_f_10_ 



SYN 
SYN 
SYN 



t.YJCX + 
(BU,1) 
,YTRT+ 



,1.49 
.32 



PiQOp2po 

PE000201 
PE000202 



BU,01 ,10 
BUflCClO 



'MSI 



c 



TIME CLOCK 0C0540A1 



PUNIC IIDIIKCP 



CARD ID QACOOOOl 



DIST. OF 3/01 



3/01 



PAGE NUMBER 269 



LINE 



LOCATION 



BINARY OUTPUT 



NAME 



STATEMENT 



LOCATION 



1« 
i* 

2* 

A* 231136. CO 



- JOB CONTROLf PHASE 4, -OVERLAPPED 
SLC,$ 



QAOOOOOl 
QA000002 
QA000003 

QA000004 



5* 
~IV 

J« 

i* 

1C» 



CNQP 

~00(BU,12,3), (8)C4Cl 
DR(8U,33),(n 

tXT(o,ia) 

B,YCANO 
DR(BU),C2) 



QA000005_ 
"QA000006 
QA000007 
QA000G08 
QA000008 
QAOG0009 



231136.00 
231136.14 

231136.55 
231137.00 



0401 YJC4TT 



C0CCC0.41 



0OCCC2.00 



04632C3 



11* 
12» 
13* 
14« 
15» 
It* 



020000.00+ 
030000.00+ 



_+_o_cccqcoc 

+00000000 

231151.43 

CCGC00.34 
231164.00 



NULL 

null' 



044000.06 
044000.23 



Y_P_P_M_EH SYN ».(.§) 20000. 

YFAX SYN, (8)30000. -UPPER END OF JC4 WHILE IN CORE 
- SPECIAL PACKAGE TO PULL MCP PROGRAMS FROM THE DISK. 
YMPFCH SClfYFHFWA 

LFJBU,36),.2a($l) 

KF(eU,36),YMPSAV 



QAOOOOIO 

QAOOOOll' 

QA000012 

QA000013 

QA000014 

QA000015 



231141 

231141. 

231142 



00 
40 
40 



50 
81 

80 



70 

10 



IT* 
lg» 
IS* 
2C» 
21* 
22* 



231143j 
231144. 
231145. 
231145, 
231146, 
231147, 



3A 

40 
00 
40 
00 

CO 



231164.00 
000000.02 
231156.03 
231156.36 
231150.14 
00CC40. 10 
CCC1C2.40 



80 
31 
00 
C2 
80 
00 
80 



044000. 2C CO 



STLeU,36j, Y M P S A V_ 

LV,$1,C{$1) 

SVA,$1,YFHBR 

BAE.YFHBR 

SF(!3U,36),YFHTA 

8,DMCP 



QA000016 
'QAOOOOl? 
QA000018 
QA000019 
QA000020 
QA000021 



044000.12 FO 



YFDO 



22* 
'24* 
25* 
26* 
2i* 
26* 



231147, 
23115C" 
231150, 
231151, 
231151, 
231152, 



40 

oc" 

14 

00 
40 

00 



{AX 
DR{ 
,0 
tO 

,0 



ETCH 

)DC(BU,12,6),22X" 
BU,52),f I) 



GAq00022 

QA000023' 

QA000024 

QA000G25 

QA000026 

QA000027 



000000. 
000000. 
CCOCOO. 
COCCOO. 



64 

00 80 

00 80 

CO 80 



YFHTA 
YFHFWA 



2i* 
3C» 
31* 
32* 

32* 
34* 



231152 
231153 
231153 
231154 
231154 
231155 



.40 

;oo' 

,40 
.00 
.40 
.00 



_C_0_G_G_0_0_. 
231153. 
OOCOOO. 
OOCCOO. 
234212. 
234214. 



C_0_ 
"20 
30 
03 
43 
22 



80 
CO 
00 
01 
30 
00 



»_o_ 

BEW 
NOP 
LVI 
SV, 
Z,C 



QA0q0028 

QA000029' 

QA000030 

QA000031 

QA000032 

QA000033 



f $ 

f 1»0 
l.XNFOST 

B_UFF 

FOT 



231155, 
231156^ 
231157, 
231160. 
231161, 
231162, 
231163" 
231164^ 



40 

00' 

00 

00 

00 

CO 

cc' 

00" 



2^4220. 

231156. 
231165.00 
231166.00 
231167.00 

_2_3_liJ_C_«_0_0 
231171.00" 

CCOOOO.OO" 



22 00 
10 CO 
+ 000 
+ 000 
+ COO 

+ ceo 

+ 
+ 



B,$ 
XWt 
XN» 
XH, 
XWt 



QAqqqq34 

"QA000035" 
QA000036 
QA000037 
QA000038 
QA000039 



36* 
37* 
36* 
3S* 
4C* 



234424 
234424 
234424 

C2C000 



occcco 
occcoo 

000000 

pcccoc_ 

Q.Q.0 _2 34424 qccc CO " 
000 000000 ocoooo " 

0471611000 



YFHBR 

YXWDMP 

YXWCMO 

YXWDB 

YXWEJM 



yDMPTA,YMP8UF,0,0 
YCMOTA,YMPBUF,0,C 
YDBTA»YMPBUF,C,0 
YECJTAfYPPMEM 



41_» 
42* 
43* 
44* 
4i* 
46* 



YXWRLD 
YMPSAV 
YCMPTA 



YCMCTA 



^W._YRLTA,YMP6UF 

XW,G 

EXT{0,27) 

BE,AWDUMP 

{AX)DD<8U,36,6)f $OUMP X 

EXT{0,27) 



QAq0004q 
"QA000041' 
QA000042 
QA000042 
QA000043 
QA000044 



231165.00 
231165.34 



47* 
'46* 
4S* 
SC* 
51* 
52* 



231166^00 
231166.34 

231167.00 
231167.34 



04711C60C0 



BE^JCQMC 

"(AX)0D(BU,36,6),SC0MD X 
EXT(0,27) 
BE,YDBBEG 

( AX)DD{BU,48t6),$DUFP X 
EXTtO,27) 



QAqoqq44 

"QA000045 
0A000046 
QA000046 
QA000047 
QA000048 



0471C50000 



YC6TA 



YfcOJTA 



53* 
54* 
55* 
5i* 



231170.00 
231170.34 

231171. OC 



0040000000 



BE^YPPMEM 

"{AX)DDIBU,36,6),$E0J 
EXT(0,27) 
BE.YRESLl 



QA000q48 
~QA000049 
QA000050. 
OA000050 



YRLTA 



0472544000 



'Nai 



1 IME CLOCK CCC54CA1 



PUMD IICIINCP 



CARD ID GA000051 



DIST. CF 3/Cl 



3/01 



PAGE NUMBER 270 



LJNE 



LOCATION 



BINARY OUTPUT 



NANE 



STATEMENT 



LOCATION 



231171 



1* 
2« 

2* 



231171.34 
231172.00 



231202.50 00 



231172 
231173 
231173 
231174 
231175 
231176 
231176 



.4_C_ 

• cc_ 

.40 
.40 
.40 
.00 
.40 



_231172.C5 

_co_cccg^i4 

215CC1.10 
215CC1.11 
231177. C3 
231177.37 

23C566.C4 



80 
80 
3 
01 

CO 



{AXi)DD(BU,36,6),L0ADERX 
Y PR B,YPRSPL -CONSOLE MESS. 
AND ONLINE, NOP, 2. 
LVE,2,YPR 



PRINT, NOP = BYPASS, N0P,1, 
- ON/OFFLINE AND BYPASS. 



= BYPASS 



QA0G0051 
QA000052 
QA000053 
QA000054 



_5« 

~t* 
£» 

1C« 



BRlCJ[$21 

BZB,SYSHCD,YPRSPL 

8e,SYSM0D.l,YPRSPL 

SV,1,YPRCNV 

LVI,il5,$+l. 

BD,_SA81GS 



QA0ppp55_ 

0A000056 

QA000057 

QA000058 

QA000059 

QA000060 



231202.74 00 
231202.74 02 



11* 
12* 
13* 
14« 
15* 
16* 



231177 
231177 
2312CC 
2312CC 
231201 
231201 



•po_ 

.40 
.CO 
.40 
.00 

.40 



_C_C_CG_CC._ 

CCCICC 

2312C5. 

C0C04 

00004 

23120 



00 + 



YPRCNV 



VF,C 

CF,64 

VF.YPRCMM 

Bfc,tMCP 

,$CCMM 

t.YPHCMH 



QA00gp6l 
QA000062 
QA000063 
QA000064 
QA000065 
QA000066 



00+ 

O.CO 00 
3.40 80 
5. CO 80 



11* 
IE* 
19* 
2C* 
21* 
22* 



23_12C2 
2312C2 
231203 
231203 
231204 
231204 
231205 



•_c_c___ 

.40 
.00 
.40 
.CO 

.40 

.00 * 



_c_o_gci 

224C5 
22404 

OOGCC 
COOOl 
CJDJDJLO 
COCCI 



0._CG_80 
2. CO 80 
6.44 00 
C.CC 81 
O.CO 80 

o_._co _oq 

O.CO 



SIC,ZS 
BD,ZSP 
,0($1) 
,8. 
_BEtC__ 



QAgppp67_ 

QA000068 

QA000069 

0A00006g 

QA000070 

QA000071 



YPRSPL 



YJPR_REJ_ 

yP3Cm__ 



PLP9 
LPR 



23* 

25* 
26* 
21* 

26* 



__OR_Z(_N) 
« «» »«« « « 

UNCGDE 

TI,3,$ 
LVE,$1 



,(81 ,__. 



QApppg72 

QA000073 
0A000074 
QA000075 
QA000076 

QA000077 



•««»•* tt******************************** 



231215. 
231216^. 
231216. 



00 
40 



000033.00 
00_0_C_0_1_-_13_ 
OOOCCO.GO 



80 

BE 
80 



231363.06 AC 



YUNCOD 



SUBROUTINE TO DECIPHER SYSTEM CARDS 



11,YUXSAV 
3,1.32($14) 



-SAVE UNOICIES 

-GET LOCATION OF HOLLERITH 



Vit 
3C» 

31 • 

32* 

33* 
3^» 



014000.20 50 



L<_8y,_l 
KFKBU 
BZAEZ, 
SV,$13 
L V , $ 1 3 
LVI,$1 



2)»C.Ci$13J 

,12), (2)1000100000 

YUER 

,YUECS 

, 1.0('$14) 

5t.*tl«Q 

6 



_-CAAQ- A^lQ. _IEST_fcr a 

be 

-IF NOT A B GIVE ERROR RETURN 
-LOCATION OF CARD TO EDIT CALLING 
-DISP. TO $13 
-CONVERT CARS TO 6-BIYT BCD 



QAOoog/a 

'QA0000 79' 
QA000080 
QA000081 
QA000082 
QA000083 



231217. 
231220. 
231221. 
231221. 

231222. 



40 
40 
CO 
40 
CC 



420CC0.CG 
231350.36 
231223.33 
000001.32 
231223.37 



80 
C4 
30 
3E 
01 



414000.23 10 



3 5_* _231222.4C 2 3 C 6 2 2_._0A CO 

36* 231223. CC CC00CC.00+ 
37* 231223.40 CCG12C 
3£» 231224.00 231366.00+ 
39* 231224.40 231225.77 CI 
4C» 231225. CC 230672.04 CO 



„B_Q_»_SCA 
VF , . 
CF,80 
VF,YUC 
LVI,$1 
BD,SBR 



qAOogg84 

QA000085 
QA000086 
QA000087 
QA000088 
QA0000B9 



YUECS 



BFl 

5, $+1.0 

K8 



-BREAK CARD INTO FIELDS 



^l_»_231225.4g 2_3_1 3_6A._6_6_+_ _ 

42* 231226.00 CCC065 
43* 231226.40 231376.00+ 
44* 231227.00 CCC0C1.00+ 
45* 231227.40 CCCC01.33 
4«» 231230.00 « 231230.40 



VF,YyC 
CF,53, 
VF, YUC 
VF,1. 
LVI,$1 
BE, $+. 



BF1+.54 

8F2 

3,1.0 
32 



QAoggggg 

"QA000091' 
QA000092 
CA000093 
QA000094 
QA000095 



01 
00 



YUSBBC 
YlPLl 



-ERROR RETURN- VALID ONLY FOR 



47* 

48* 
49* 



_ _4.Q. B _C A R g _ S g _ F A K E_ C_I S P 0_SJ T I C N 
-NORMAL RETURN TEST FIRST 
-FIELD IN CARD 



QAggggg6 

QA000097 
QA000098 



23123C.4C 
231231.40 



231376.00 80 
231414.00 80 



060000.20 
060000.21 



50 
10 



L{BU,48), YUCBF2 
K(BU,48),YTYPMK($13) 



'Hai 



TIME CLOCK CCC54C41 PUNID 


IIDUMCP 




CARD 


ID GAOOOIOO CIST. OF 3/Cl 


3/01 PAGE NUMBER 271 




LINE LOCATION 


BINARY OUTPUT 




NAME 


STATEMENT 


LOCATION 231232 




1* 
2* 

2* 
<« 


231232.40 
231233.00 

231233.4G 


C0CCC1.33 
231236.36 

231242.32 


04 
C4 

C6 








- 


KVIf$13,l.O 
8ZAEZ,YMKEAR 

BXEZ, YJCBC 


-TEST DISPOSITION 
-IF FIRST FIELD IS NOT CORRECT, 
FURTHER TESTING IS REQUIRED 
-DISP. WAS JOB 


QAOOOIOO 
QAOOOlOl 
QA000102 

QA000103 


5* 


231234. OC 


231243.72 


46 










BXLZ,YTCPGO 


-CARD WAS T.O.P. - GO TYPE 


QA000104 


7* 

€» 
S* 

IC* 


231234.40 
231235. CO 
231235.40 
231236.00 
231236,40 


C0CC02.33 
231303.32 
231326.50 
231343.72 
231350.32 


04 
C6 
CO 
C2 
42 








YWKEAR 


KVI,$13,2.0 

BXEZ,YLINC 

B.YIODC 

BXE,YJOC£R 

BXLtYUER 


-TEST DISPOSITION FURTHER 
-CARD WAS A LIH. 
-CARD HAS AN ICO. 


QA000105 
QA000106 
QA000107 
QA000108 

QA000109 


11* 


231237. CO 


000002.33 


04 










KVI,$13,2.0 


-DISP. 2.0 OR 4.0 


QAOOOllO 


12* 
13* 
14* 
15* 
16* 


231237.40 
231240.00 
231241.00 
231241.40 


231350.32 
231417.00 
231336.36 
231350.10 


C6 
80 
C6 
00 


060000 


.21 


10 




BXEZ.YUER 
K(BU,48),YRELWK 
BAEZtYREELC 
B,YUER 


-DISPOSITION WAS LIM- TO ERROR RETURN 
-TESTR FOR REEL CARD 


QAOOOUl 
QA000112 
QA000113 
QA000114 
QA000115 


17* 














— «*«•«•«««»«•»««««*«•«««««««««*«»«•»»««»»««««»•«»«««««»••«*««»*»««»««»« 


QA000116 


16* 
IS* 
2C» 
21* 
22* 


231242.00 
231242.40 

231243.00 


COCCOl.32 
231352.72 
231350.10 


9E 
G6 
GO 








SERVICE ROUTINES TO EXTRACT INFORWATICN FROf SYSTEN CARDS. 

YJCBC KV,$13,1.C($14) 
BXEZ,YNCRR 
B,YU£R 


QA000117 
QA000118 
QA000119 
QA000120 
GA000121 


21* 


231243.40 * 


000034.22 


CO 








YTOPGO 


Z,$12 


-GO - SET COUNT FIELD TO PROPER 


QA000122 


21* 
25* 
26* 
27* 
2i* 


231244. CO 
231244.40 
231245.40 
231246.40 
231247. CO 


C0CC04.31 
231377.00 
231413.00 
231261.36 

231421.00 


02 
80 
80 
C2 

80 


060000. 
060000, 

060000. 


.20 
,21 

.21 


50 
10 

10 




LCI, $12, (2)00100 

L(BU,48J,YUCBF2+1.0 

K(BU,48),YG0MK 

BAE,YBSSGO 

K{BU,48),YC0MMK 


-VALUE + GO TO NORMAL RETURN 


QA000123 
QA000124 
QA000125 
0A000126 
QA000127 


2S* 


231250.00 


231267.76 


C2 










BAE.YTOPCH 




QA000128 


3C» 
31* 
32* 

33* 

34* 


231250.40 
231251.40 
231252.00 
231253.00 
231253.40 


231422.00 
231270.76 
231424.00 
231350,36 
215001.10 


80 
C2 
80 
CO 

80 


060000. 
060000. 
231350, 


.21 

.21 

34 


10 
10 
OC 




K(eU,48J,YCNGHK 

BAE,YTOPCG 

K{BU,48),YUPDAT 

BZAE,YUER 

BZB,SYSMOD,YU£R 




aA000129 
QA000130 
QA000131 
QA000132 
QA000133 


35* 


231254.40 


215001. C3 


80 


001000. 


36 


FO 




CM1111,SC0RG 




QA000134 


36* 
37* 
3fi* 
3S* 
4C* 


231255.40 
231256.00 
231256. 4C 
231257.00 « 
231257.40 


C0CC42.33 
215005.33 
215012,32 
231426.73 
CO 003 5. 22 


01 
30 
30 
30 

00 










LVI,$13,(8)42. 

SV,13,SBAPP 

LV,$13,SRO0F 

SV,$13,YLOL2 

Z,$13 




QAG00135 
QA000136 
QA000137 
QA000138 
QAOOOlJg 


4]* 


231260.00 


231426.33 


30 










SV,*13,YL0L1 




QA000140 


42* 
43* 
4^* 
45* 
4£* 


231260.40 
231261.00 
231261.40 
231262.00 
231262.40 


020202.50 
231227.36 
C0CC02.37 
231352.73 
231400.00 


00 
50 
OA 
40 

80 


060000. 


20 


50 


YBSSGC 


8,WJC4G2 

LC,15,YLS88C 

KCI,15,2 

BZXH,YNCRR 

L(BU,48»,YUCBF2+2. 


-INTERPRET GO, AS CMPILGO,... 


QA000141 
QA000142 
QA000143 
QA000144 

QA000145 


47* 


231263.40 


231424.60 


80 


060000, 


23 


10 




KF(BU,48),YFCRTR 


-AND FORTRAN AS BSS 


0A000146 


46* 
49* 
5C» 


231264.40 
231265.00 
231266.00 


231270.76 
232542.00 
231400. CO 


CO 
80 
80 


060000. 
060000, 


C6 
12 


7C 

FO 




BZAE.YTOPCG 

LF(BU,48),ABSSI0 

SF(BU,48),YUCBF2+2. 




QA000147 
QA000148 
QA000149 







*Nai 



C 



TIME CLOCK 00C5ACA1 



PUNIC IIDIIWCP 



CARD IC GACOOISI 



DIST. OF 3/Cl 



3/01 



PAGE NUMBER 272 



LINE 



LOCAl ICN 



BINARY OUTPUT 



NAHE 



STATEMENT 



LOCATION 



231267 



1* 231267.00 

2* 231267.40 

3* 231270.00 

^« 231270.40 



231270.50 CO 
000023.31 02 
231271.10 CO 

000013.31 02 



B,YTOPCG 
YTOPCM LCI, $12, {2)10011 

BrYT0PCG+.32 
YTOPCG LCI, $12, (2)01011 



QA000151 
QA000152 
QA000153 
OA000154 



.^?_23_1271.00 ^231227.36 50 LC, $1 5, YUSB8C 



QA000155 



f » 

f* 

1C» 



231271.40 
231272.00 
231272.40 
231273.40 
231274.40 



CCCC03.37 
231352.73 
231401.00 
021060.61 
231276.36 



OA 
40 
80 
80 
CO 



060000.20 
060000.21 



50 
10 



KCI,15,3 

bzxh,ync'rr 
l{bu,48j,yucbf2+3.0 

K(8U,48),YNLST 
3ZAE,$+1.32 



QA000156 
QA000157 
QA000158 
0A000159 
QA000160 



11» 231275.00 



_C.O_CC34._54_8C__ggiOpO.CC_FC ^CM0C00{eyil_)j$124_._4A GA0gpl61_ 



12* 

u* 

14* 
15* 
l€* 



231276. CO 
231276.40 
231277.00 
231300.00 
231301.00 



000004.37 
231352.73 
231402.00 
021C62.00 
231352.76 



OA 
40 
80 
80 
CO 



060000.20 
060000.21 



50 
10 



KCI,15,4 
BZXF, YNCRR 
L(BU,48),YUCBF2+4, 
K(BU,48),YN0PUN 
BZAEiYNORR 



aA000162 
QA000163 
QA000164 
QA000165 
QA000166 



11* 

ie» 

19« 
2C» 
21» 
22* 



23_13C_1 
231302 
231303 
231303 
231304 
231305 



._4_0_ 

.40 

.00 

.40 

.40 

.40 



_C_0_CC_34._ 
231352. 
231361. 
120000, 
COOCOO. 
231307. 



55_ao 

50 CO 
30 10 
00 80 
06 8C 
34 C4 



0010 go. C_ f CMOCOQiBy, l J jJ_1_2A-A5 

B,YNCRR 
LX,$12, 
LI(BU,6 
CTOllOI 
AZRZZt$ 



QAoggi6_7_ 

GA000168 
QA000169 
OA000170 
QA000l7i 
QA000172 



406000.20 50 
106000.15 70 



YLIMC 
YLL2 



YUCX12 

), (2)001010 

V4l)(BU,6),.6($12) 

+ 1.32 



•LIM CARD- CONVERT BCD ZEROS 
-TO TRUE ZEROS 

-IS THIS BYT€ A BCD ZERO 

-JJL _NO_I _IE S I _NEXI_BYTE 

-IF SO, REPLACE BY TRUE ZERO 



2l» 

2=» 
26« 
27* 

2£« 



231306 
231307 
231307 
231310 
231311 
231312 



•CC 
.00 
.40 
.00 
.00 
.00 



J_7_7_7_7_7_. 
231304. 

231304. 
231400. 
000034. 
231377. 



12 _8C 
70 4C 
63 40 
00 80 
34 80 
CO 80 



006000. CC FC 



_C MOC (. 6 y , 6i _, r_« 6J _$_1_2J_ _ 
CBR,$12,YLL2 
8ZXF,YLL2 

LF(EU,36,6),YUCBF2+2.0 
SF(EU, 18, 3), $12. 28 
LF(BU,36,6),YUC8F2+1.0 



QA00gi73 
QA0C0174 
QA000175 
QA000176 
QA000177 
0A00017B 



044600.06 70 
022300,12 FC 
044600. C6_7C_ 
022300.12 FO 



2ii 
3C» 
3]» 
32* 
33* 
34* 



231313 
231314 
231314 
231315 
231316 
231317 



•PP 
.00 
.40 
.40 
.00 
.00 



_C0_QC_3_4. 
231317. 
000041. 
000011. 
000034. 
215020. 



0_Q.„8_0 
34 CO 
CO 80 
30 BO 
34 80 
70 90 



_SF<_By,_l 
8ZRZ,$+ 
LUBU, 1 
V+,$12, 
M+(BU, 1 

_KJ/,_$12,_ 



8»31,$12 

3.0 

8), (8)41. ,46 

$R 

8), $12. 28, 46 

STERHI 



QA00017? 
^QAOOOlbO 
QA000181 
QA000182 
QA000183 
QA000184 



422027.20 50 
022027.20 90 



3_t_* 
36* 
37* 
3£» 
3S» 
4C« 



231317 
231320 
231320 
231321 
231321 
231322 



.00 
.40 
.00 
.40 » 

.00 



23_1_3_2_2_ 
215C12< 
231350. 
215012. 
231324, 
215C00, 



A2__42_ 
31 90 
33 42 
26 30 
50 00 
31 90 



_8AL»_YUC 
KC,$12, 
BXH,YUE 
LV,$11, 
B,YUCLL 
KC,$12, 



LLC__ 

SRCOF 

R 

SROOF 

H 

SMCP 



_QAqgoi85 
QAOOoiad' 

QA000187 
QA000188 
QA000189 

QA000190 



YUCLLC 



42* 
43* 
44* 
45* 
46* 



231322 
231323 
231323 
231324 
231324 
231325 



•^0 
.00 
.40 
.00 
.40 
.00 



_2A13_5_Q-' 
C0CC41. 
231350, 
215C00. 
215225, 
CCCC34. 



33_42 

31 C4 

32 42 

26 30 

27 30 
31 90 



BXHlYUE 
KVI,$12 
BXL,YUE 
LV,$11, 
SV,$11, 
KC,$12, 



R 

,33.0 

R 

SMCP 

SMAXUB 

$12 

ER 



QAggoi9i 

QA000192 
0A000193 
QA000194 
QA000195 
QA00Oig6 



YUCLLH 



-IS_LCWER_ G R EAT E_R 

"THAN yPPER_L_I MIT 

-LIMITS OK - TC NORMAL R£TUR~N 
-CONVERT I-C REFERENCE 
■NUMBER AND ABSOLUTE EXIT 



47* 

48* 
49* 
5C« 



231325 
2 31326 
231326 
231327 



'^0_ 
.00 
.40 
.00 



J_3_l_3_5_g, 
231352, 
231360, 
120000, 



33_4g 
50 CO 
30 10 

CC 80 



8ZXH,_Yy 
B.YNORR 
LX,$12, 
LI{BU,6 



QA0ggi97 
QA6o0198 
QA000199 
QA000200 



YICDC 



406000.20 50 



YIDX12 

), (2)001010 



'Kai 



TIME CLOCK CC054C41 PUNID IIDIIMCP 



CARD ID GA0002C2 



DIST. CF 3/Cl 



3/01 



PAGE NUMBER 273 



' ( 
z 

£ 

9 
9 

' ( 



LINE. _ LOG AJJ_G_N_ ^If^ARY CUTPUT I__AA_ME STATtMEp~"^3~"^2"IIIIIIIIIIIIir"" LOCATTON" 

YICDTL 



231330 



I* 
2* 

2« 

_ -* 

1* 
f 

9* 
1C» 
1J» 
12* 
13* 
14» 
15* 
1^? 
11* 

ie» 
i?» 

2C* 
21* 
22* 



231330 

231331 

231331 

2 31332 

231333 

23133A 

231335 

231336 

231336 

231337 

231340" 

231341 

231342 

231343 

231343 

23i344 

231344 

231345 

231346 

231346 

231347 

2 3135G 



.00 
.00 
.40 

_._C_0_ 

.00 

.00 

.00 

.40 

.40 

Jo_o_ 

.00 
,00 
.00 
.40 

.00 
.00 
.40 
.40 

.CO 



GOOCOO 

231332 

777777 

_2_31330 

2313 73 
00CC34 
C0CC34 
231227 
000033 

_0_0_CG02 

2314 23 

coccoo 

000033 
231352 
231227 
C_C_CCC1 
_2_3_l_35q 
231363 
000002 
231376 
000002 
231363 



.C6 ac 

.74 C4 
.72 8C 

^30 4C 
•64 8C" 
.64 80' 
.00 80 
.30 50 
.00 80 
.37 BE 
.00 80" 
.GC 8F~ 
.CO 80 
.5C CO 
.36 50 
?L32_gE_ 
.32 CO 
.00 80 
.37 BE 
.00 80 
.50 OE 
.CO 80 



106000.15 70 

006000. GC FO 

p 7 46 y. C 6~ 'fC^ 
014330.12 FO 
022300.12 FO 

231363.06 EC 

00000 0~.C2~'A~F~ 
000001. "16 AF 
231363. C6 EC 



000033. G6 AO" 
000000.36 2F 
000033.06 AO 



CT0110IV+I)(BU,6),.6($12) 

BZRZZ.YIOCB 

CMO000CBU,6),-.6($12) 

-X_IG:CB CBR|^$l2,YI0pTL 

LF£By,6C,6),YUTp_E " 

SF(EU, 12,3),$12+.52t48 

SF{eU,18,3),$12 
YREELC LC,$12,YUSB8C 

S*^API,3,$11,YLXSAV 

LVE^$l5,2.0j$14) 

li'_l»YBLWC4t0^0($15) 

TI, 7,0.0($15),1.C($15) 

SWAPI,3,$ll,YUXSAV 

BtYNORR -IN 

YJCCER LC,$15,YUS88C 

K\/^$13, i.0_(_$14) 

BZXEi^YUER 

TI,3,YUXSAV,$11 

LVE,$15,2.0($14) 

T,$15,YUC8F2,0.0($15) 

B,2.32C$14) 
YUER TI,3,YUXSAV,$11 



-FUELDS ON lOD CARD TO BINARY 



-PUT IN $12 



-LOAD COUNT WITH = OF FIELDS 



BREAKDOVvNf AND RETURN 



QA000202 

QA000203 

QA000204 

Q A 00 020 5 

QA000206_ 

QA000207 

QA000208 

QA000209 

QA000210 

OA00021_l 

QA000212_ 

QA0002i3 

QA000214 

QA000215 

QA000216 

.CA000217 
QA000218 

~QA000219 
QA000220 
QA000221 
QA000222 
0A000223 



( 
-( 
( 
( 
( 
( 
( 
( 
( 
( 
( 

c 
c 
c 
c 

c 

c 
c 

i. 



2d* 
24* 
25* 
26* 
2?» 
2|» 
2i* 
3C» 
31* 
35* 
33 » 

~3 5» 



231351 
231351 
231352 



.00 

^40' 

.00 



CG_C_C0_2_. 
COCCOO, 
0OOC02< 



3 7 BE 
22 CF 
50 OE 



_LVE,_$15,2.0($14_) 
Z~ , . ( $ 1 5 J 
B,2.32( $14) 



QA000224 

QA000225' 

QA000226 

QA000227 

QA000228 

QA000229 

QA000230" 

"0A000231" 
QA000232 
QA000233 
QA000234 
QAqq02 35 

"QA0002 36" 



— »«•••• 



231352.40" 

231353.00 

231354.00 

231355.00 

231355.40 

231356.00" 



— ««»««««««»«««« 



COCCOO. 31 
231426.71 
231363.00 
000G02.37 
231227.36 



IE 

80 
80 

BE 
50 



R § ly 6N S , _ ^^ ASK S , JAHPOR AR Y _STqR AGE _ FOR UNCOCE . 



001000. CC 
000033. C6 



FO 
AC 



231357.71 42 



YNORR SX,$12,C.0($14) 

CW0C00{BU,1»,YTBIT 
TIt3,YUXSAV,$ll 
LVE,$15,2.0($14) 

^Lj: »J_l 5 , Y U SB8C 

BXVZ,t+l."32 



-PUT INFORMATION IN CALLING 

-SEQUENCE 

-IF BETA SUB I ISNCN ZERO, 

rJ3_ANSM_lL _B RCK E N OUT 

-CARD TC REQUESTED AREA 



20 
19 
18 
17 
U 
IS 
14 
13 
12 

n 

10 
9 
8 
7 
6 
S 
4 
3 
2 
1 



36* 231356.40 231376. GC 80 000000.36 2F" 

37» 231357.40 000003.10 OE 

3f* 231360.00 231373.64+ 000 000012 OCCOOO 

3S* 231361.00 231377.00+ 000 00C006 231362 

-1^*_231362^CC__ 2314CC.00+ 111 C00006 CCCGCC 



T,$15,YUCfiF2,0.0($15) 
B,3.0($14) -RETURN 

YIDX12 XW,YUT0E,10,0 
YUCX12 XW,YUC8F2+1.0,6,$+1.0 
XW,YUCBF2+2.0,6,C,7 



-INDEX WORDS FOR ABOVE ROUTINE 



QA000237 
QA000238 
QA000239 
QA000240 
QA000241 



41» 231363.00 » 
231366.00 
231376.00 
231413.00 



^ » 
A2* 
43* 
4^« 
45* 
4£* 



_PP_G_C_OA'_G_Q. 
GOCCIO.CO 
C00C15.C0 



YUXSAV_ 
YUCBFl 
YUCBF2 
YGOMK 



DRZn 

DRZ(! 

DRZII 

{AX) I 

CNOP 

(AX)DDCBU,48,6),TYPE 



fly,_642,(3) 
BU,64),{8) 
BU,64),C13) 
iD0(BU,48,6),G0 



qAqoo242 

QA000243 
QA000244 
QA000245 
QA000246 
QA000247 



231414^00 YTYPMK 



X 

X 



46* 
4S* 
5C« 



CNOP 
(AX) 
CNOP 
(AX) 



GAqqq248 

"0A000249' 
QA000250 
QA000251 



231415. CO 
231416.00 



DD(BU,48,6),J0B X 
DD(BU,48,6),LIM X 



'wai 



TIME CLOCK CCC54C41 



PLNID IIDIIHCP 



CARD IC C:a000253 



CIST, OF 3/Cl 



3/01 



PAGE NUMBER 274 



LINE 



LUCATICN 



BINARY OUTPUT 



NAME 



STATEMENT 



LOCATION 



J» 

2» 231417.00 

2* 

A* 231420.00 



CNOP 
YRELMK (AX)DC(BU,48f6),REEL X 
CNOP 
(AX)DD{BU,48,6),I00 X 



QA000253 
QA000254 
QA000255 
QA000256 



CNOP 



QA000257 



t* 231421. CO 
1* 

fe» 231422. CO 
S* 
1C» 231423.00 



YCOMMK (AX)CO(EU, 48, 6), COMPILE X 

CNOP 
YCNGMK (AX)D0(BU,48,6),C0MPILGCX 

CNOP 
YBLWD4 { AX)CC{BU,48,63, X 



QA000258 
QA000259 
QA000260 
QA000261 
QA000262 



11* 
12* 
13» 
14* 
15* 
16* 



CNOP 

(AX)DD(BU,48,6) .UPDATE 

|AX)0DiBU,48,6),F0RTRAN 

SYN,YUCBFl+.372 

DR{N),{1) 

DR(fiU),{l) 



QAp0p263 
QA000264 
QA000265 
QA000266 
QA000267 
QA000268 



231424.00 
231424.60 
2 31373.64+ 
231426.00 ♦ 
231427.00 



+000000CC 
COOCOl.CC 
COCCOl.OO 



BU,1CC,1C 



YUPDAT 
YFCRTR 
Y UTOE 
YLLSAV 
YDFCS 



-LOCATION OF REF = AND TOE 
-TO SAVE LOADER LIMITS 



11? 
1£* 
IS* 
2C« 
21* 
22* 



23_1430_.0_0__»_ 
231443.00 
231462.00 » 
231501.00 
231501.01 



_C_0_CC_1.3._pO 
000017,00 
000017.00 



____YJ_C_LL _ 
\iiJCRZ 
YBCBU 
YSSPBT 
YECJS 



ORZlNliillJ 

DRZ(U),15 
OR(BU), C15J 
00(BU,1),{2)0 
0D(BU,1),(2}0 
SET fcOJ SiilTCH 



QA0pp269_ 

QA000270 

QA000271 

QA000272 

QA000273 

QA0002 74 



-FOR JOB CARD, DECODED 



TO NORMAL OR ABNORMAL, AND FINISH UP LAST JOB.— 



23* 
24* 

25* 
26* 
2'i* 
2f* 



LOGt^pUMP (lF_GP__)_,AiNp RESTORE__TABLES 



QA00p275 
"QA000276' 
QA000277 
0A000278 
0A000279 
QA000280 



231501, 
231502. 
231503, 
231503, 



40 
CO 
CO 
40 



231140 
231426 
000040 
C0CG41 



,75 80 

.31 80 

.10 00 

.GO 80 



YC4N0 



2 31504.34 00 



LV£,U4,YJC4TT + 2.32 
BZB, YLLSAV. 25, $ + 2.0 
8,DMCP 
,DRET 



-IF INITIAL ENTRY TO LOADER IS ON 
-THIS ECJ IS SPURIOUS. 



2i« 
3C* 
31* 
32* 
33* 
34* 



231504. 
231504, 
231505, 
231505, 
231506. 
231506. 



CO 
40 
00 
40 
00 
40 



_2J._5Cp_5 
231515" 
215C05 
000001 

coocoo 

231514 



•A2_ _5 
.30 42 
.02 30 
.03 05 
.04 31 
.71 42 



ACf_l._SMAXRN 

BXCZ,YWAITS+.32 
LV, 1,SBAPP 
V+I, 1,1.0 
LV,2,0($1) 
BXVZ,YWAITS 



QA000281 
QA000282 
QA000283 
QA000284 
QA000285 
QA0002a6 



-T/0 INSURE THAT P.P, I-O ACTIVITY IS DEAD 



YWAITL 



3f_* 
36* 
37* 
3€» 
39 » 
4C» 



231507, 

231507 

231510 

231510, 

231511, 

231512, 



QP 

40 

00 
40 

40 

00 



GG_Cj:_CJ) 
215C02 
OOCCOO 
000000 
OOCCOO 
COOCOO 



•_C_6__32_ 
,06 80 
.06 B2 
.33 83 
.44 32 
.04 83 



J-_V »_3 ,_p( $ 2 1 

V+,3,SCHANS 

V+,3,0($2) 

BZB,SMULTI($3),YWAITI 

LV,2,.32($2) 

V+,2,0{$3) 



QAPPP28/ 
QA000288 
QA000289 
QA000290 
QA000291 
QA000292 



231513.74 00 



42* 
43* 
44* 
45* 
4f ♦ 



231512, 
231513, 
231514. 
231515, 
231515, 
231516. 



40 » 

40 

00 

40 

00 



_oo_o_o_o_o 
ooocoo' 

231506 
C0CIC4 
231521 

231501 



•Al_a2 

.32 83 

.03 48 

.35 04 

.72 CO 

.01 80 



231514^74_C_2_ 
231506.34 02 



001000.36 FO 



_BB._SSEL1$21,YWAJTS_ 
88, SCH0P($3), YWAITL 
C8+,l, YWAITL 
KVI,$14,CABE0J 
BZXE,YC483 
CM1111,YE0JS 



QA000293 

QA000294' 

QA000295 

QA0G0296 

QA000297 

QA000298 



YWAITI 
YWAITS 



46* 
4S* 
5C* 
51* 
52* 



231517, 

231517 

231520, 

231520, 

231521. 

231522, 



co_ 

40 

00 
40 
40 
00 



_C_0_C_C_4C 
GOOIGO 
231430 
215001 
231162 
231141 



?.IQ_GP 
.00 CO 
.00 80 
.06 80 
.02 10 
.10 CO 



BtPMCP 

BE.CCUMP 

,YECLL 

CMOOOO{BU,1),SPINCL 

LX,$1,YXWEJM 

BlYMPFCH 



-D y !*f ? _ i ? _ A 8 N P R ^^ AL_ j^ jy. 

- OF A GO JOB L eCJ 



QA0pp299 
QA6o0300 
QA000301 
QA000302 
QA000303 
QA000304 



001000.00 FO 



YC4B3 



*Nai 



C 



TIME CLOCK 0CC54C41 



PUNID IIDIIWCP 



CARD ID CDCOCCCl 



DIST. OF 3/Cl 



3/01 



PAGE NUMBER 275 



' r 

z 
z 

" ( 

s 

9 

^ ( 

8 

6 

0, ( 

tl 

e, ( 

SI 

9. ( 

Zl 



.Lll^E LGCATICN BINARY OUTPUT NAME STATEMENT LCCATIGN 



231522 



1» 231522.40 » 
2* 



SLC,$ 
PRND 



QDOOOOOl 
QD000002 



Q0000003 






I/O ASSIGNHENT — DECODE 



Q0000004 
0D000005 



£» 



CD000006 






THE DECODE PROGRAM LINKAGE FORMAT 



QD000007 
QD000008 



S» 



QD000009 



IC* 
11* 



LVI,$15,X 



QDOOOOIO 
QDOOOOll 



.12 » - 8,L0ECC0 



QD000012 



12* 

14* 



VF,A 
CF,B 



QD000013 
QD000014 



15* 


— 


VF,C 


QD000015 


U* 
17* 


— 


8EW,$ ERROR RETURN 
BEW,$ NORMAL RETURN 


Q0000016 
QDOOOOIT 


It* 


— 




CD000018 


n* 

2C* 


— ■ 


LET A = FWA OF THE BREAK DOWN AREA 
LET B = THE MODE 


QD000019 
Q0000020 


21* 


— 


ZERO = OVERLAP MODE 


QDG00021 


22* 

23* 


— ' 


NOT ZERO = NOT OVERLAP MODE 
LET C = THE RETURN DISPOSITIONS 


QD000022 
CD000023 


24» 


— 


SEE THE DISTRIBUTED WRITE - UP 


QD000024 









*Nai 



TIME CLOCK CC054CAI 



PUN ID IIDIIMCP 



CARD ID GD000026 



DIST. OF 3/Cl 



3/01 



PAGE NUMBER 276 



:rb^lSlE LCCAJICN BINARY CyjPU J NAJIE SJATEMENJ ]rQC;AT_I_0_N_ 






PRNS 



RESERVATICNSt TABLES AND COUNTERS 



QD000026 
QD000027 
QD000028 

QD000029 



5« C0CC00.6A+ +CCCOCOCO BU,1A ,10 L IREF SYN ^ BU , 12 ) , . 52 -P.P. REFERENCE_ NUHBE_R_ 



QD000030 



1* 
t* 

IC» 



TABLE INDICES FOR REFILL USE 



231523.00 
231524_.C0_ 
231525. CO 



C2I1C6< 

A2J_l_ll_< 

C21136. 



00 + 

00 + 



000 

COO 
000 



000002 
C00024 
C00024 



231523 

23_1_5_2_4_ 

231525 



L PPURF 



XW,TPURF 

XW.TUIOR 



T,TUPPCf$ 

0,TUIQC,$ 



■NOT OVERLAP 
lNCT_OV£RLAP 
-NOT OVERLAP 



PP REF. TBL. 
i / G_ R E C_.„ TBL. 
FIRST REEL TBL. 



QD000031 
QD000032 
QD000033 
QD000034 
00000035 



11* 
12* 
12* 
14* 
15* 
16* 



XWtlUFRE 
Xi/V,TPREF 
XWfTIORE 
XW.TFSTR 
XW,LSYMU 
XWfLSYMC 



iIUFRCjJ 

T,TPPC,$ 

Q,TIOC,$ 

E,TFRC,« 

,32~2,$ 

»16r2_f_$__ 



QD00gg36 
Q0000037 
QD000038 
QD000039 
QD000040 
GD000041 



231526.00 
231527.00 
231530.00 
231531.00 
231532.00 



232234. 
232307. 
232430. 
231564. 
231624. 



00 + 
00 + 
00 + 
00 + 
00 + 



ceo 
coo 

COO 
000 

ceo 



CC0025 
000120 
000062 
000036 

C00016 



231526 
231527 
231530 
231531 
231532 



LPPREF 
LIOTBX 
LFSTRX 
L SYMUX 
L SYMCX 



-SYHBOLIC TAPE INDEX REFILL 

■ SYMBOL IC _CH ANNEL_ _I NP_E_X_ _R_E_F I L L 

-NON-TAPE _ I NDEX_REF_ILL 

-THE TYPE CODE INDEX 



le* 

19* 
2C« 
21* 
22* 



23_153_3_._QC_ 
231534.00 



2315 3 5_.Cp_*_ 

231536.00 

231537. CO 
231540.00 
231541. CO 
231542.00 
231543.CC__^ 
231544. CC 



231667 



00 1 
00 + 



oco 

COO 



000016 
000011 



23_153_3_ 
231534 



occppp 

231526 
231527 
231530 
231531 
231532 
231533 
CCCCOO 



L XTYPE 



XWlLNTPU 
XW.LDISK 



ii6r2_»A 

,9,$ 



00000042 
QD000043 
Q0000044 
Q0000045 
Q0000046 
QC000047 



CP_CpjDC_.jD_C_+_ 

_2A2_2JA- 00 + 
2323C7.0C+ 
23243C.CC+- 
231564.00+ 
231624.00+ 

_2 316 4A._C0A 
CCCOCC.CC+ 



o_cq gocoog 

cog 000025 

ceo C0C120 

COO 000062 
00 C00P36 
OOO C00016 

ccc cgcgi6 
COO cooooo 



L TY 



SWAP AREA FOR EIGHT MCP-DECOOE INDICES. 



XW 



22* 
2^» 
25* 
26* 
27* 
2fc» 



AW f_lP R E FT, I PPC J LPPREF 
XW,TICREC,TIOC,LICTBX 
XW,TFSTRE,TFRC, LFSTRX 
XW,LSYMU,32-2fLSYMUX 
XW,LSYMC,16-2,LSYMCX 
XW»_LNTPy, 16-2,LNTPUX 
XW 



00000048 
QD000049 
QDOC0050 
Q0000051 
QD000052 
OD000053 



2i« 
3C* 
31* 
32* 
33* 
3A* 



00000054 
"^00000055" 
QD000056 
QD000057 
Q000005B 
QD000059 



OOC023.00+ 

pccc24.gg+ 

0CC025.0C+ 



+0CCC0000 

+PPPPP_o_Q.c_ 

+CCC0OOC0 



BU.ICCIO 
BIJ,ICC_,J.C 

By,icc_,ip 



TABLE INDICES 

L ICDX SYN,$3 

_L _X_P_P_ _ _ _ _S_XLN »_* ^ 

L XIO SYN,$5 



■INDEX FOR GETTING 100 IMAGE 
-P.P. REFERENCE TABLE INDEX 



3f„» 
36* 
37* 
36* 
39* 
4C» 



- i .0 . AE_QAE_ S_I _14.BL£ .INDEX 
-FIRST REEL NUMBER TABLE INDEX 
-SYMBOLIC TAPE UNIT TABLE INDEX 
-SYMBOLIC CHANNEL TABLE INDEX 
-NON-TAPE TABLE INDEX 
-WORKING INDEX 



QD000060 
Q0000061 
Q0000062 
Q0000063 
Q0000064 
0D000065 



CCC026.CC+ 
000027.00+ 
C0CC30.0C+ 
0OCO31.00+ 

0GC032.eC+ 



+C0COCCGC 
+C0COOO00 
+0CCOOOC0 
+-0CC0OOO0 

+0CC00CCC 



BU,ICC,1C 
BU,1C0,10 
BU,100,10 
BU,1CC,10 
8U,1C0, 10 



L XFR 

L XSU 

L XSC 

L XNT 

L WORKX 



SYN,$6 
SYN,$7 
SYN,$8 
SYN,$9 
SYN,$1C 



42* 
42* 
44* 
45* 
4f • 



00000066 

00000067' 

QD000068 

0D000069 

QD000070 

GD000071 



231545. CC 
231545.31 
231545.^0 



CC00CC.C6+ 

COOC00.07 
" COCCOO.ll 



COUNTERS AND BITS 

L N06 VF,,06 

L TAPEC DRZ{BU,7),( 1) 

L lOSCR DRZ(BU,9),{ 1) 



-FOR IX BUMMPING 
-TAPE REEL COUNTER 
lODSQ COUNTER 



_4£* 

48* 
4S* 
5C« 
51* 
52* 



23154_5_._5J 
231545.52 
231545.53 
231545.62 
231545.63 
231545.73 



_1_ _ _L__ JJJiB_ _ _ _0 D LBU ,1),1 

C L NTE DD{BU,1),0 

L COUNT DRZ(BU,7),(1) 
L GVBir DDCeU,l),0 

L BL2CR (AXJDC(BU,8,8),CX 
L INFAD DD{eU,l),0 



A LNAL.BIT 

■NCN-TAPE BIT 

-COUNT OF RLSYMS 
-OVERLAPPED JOB BIT 
-BCO-aZERC 

-INFINITE-DISK ADDRESS 



QDoggg72 

QD000073 
Q0000074 
QD000075 
QD000076 
QD000077 



0C0CC0.07 



'Nfll 



TIME CLOCK CCC54C41 



PUNID IIDIIKCP 



CARD IC GD000079 



DIST. OF 3/01 



3/01 



PAGE NUMBER 277 



LINE 



LOCATION 



BINARY OUTPUT 



NAHE 



STATEMENT 



LOCATION 



231546 



I* 231546.00 CCOOOC.OO+ COO 000000 OCGCCC L SAVE XW -TO SAVE LXNT INDEX QDOO00?9 

2* 231547.00 0C0OCC.0O+ COO 000000 OCCCCO L SAVEY XW,0 00000080 

2* 231550.00 CCC0CC.0O+ 000 COCOOO OCOOCC L SAVEZ XW,C , QD000081 

_^?_231551.CG C_CCCCC.CC+ CGO COOOOO GCCCCG _L__PU^ XW Qp000082 

5 » 23 15 52. CO A3A5 6C^qC+ GOO 000104 23155 2 L CLEAR XWj^LRLC T, 4^^ ?99PPP§3 

€• - QDC00084 

7* 231553.00 232234.00+ OCO COCOOO OCCCCO LASTPP XW,TPR£FT QD000085 

t* 231554. CO 001 L CT DD( EU, 8 ) , 1 , 2 , 3, 4, 5,6 , 7, 8 , 9, 10, 11 , 12, 13f 14,15, 16 C0000086 

c* 231554.10 002 QD000086 

1C» 231554^20 0C3 CC000086 

11»_231554.3C 0C4 CQPPPOfci^ 

12* 231554. 4C 005 GD000086 

13* 231554.50 006 QD000086 

14* 231554.60 007 QD000086 

15» 231554.70 010 QD000086 

16* 23i5 55j.CC OJJL QD000086 

11» 231555. IG " 012 0Q000086 

!£• 231555.20 013 QD000086 

1S» 231555.30 014 QD000086 

2C» 231555. 4C 015 QD000086 

21» 231555.50 016 00000086 

22* 23 1555. 6G OU QD000086 

22* 2 3 15 5 5^ 70 " __ 020 '__'_ ^ QQP90p§6 

2A* 231556. CC 021 CD( BU , 8 ) , 17, 18 , 19 , 2C ,21 ,22, 23 , 24 , 25 ,26,27,28 ,29 , 30 ,31 QD000087 

25* 231556.10 022 QD000087 

26* 231556.20 023 QD000087 

21* 231556.30 024 QD0p0087 

2e* 2315 56.4C 025 Qpobo087 

2i*_2 31556.5C 026 ~ 3 ^PPPPP§I 

3C« 231556.60 " 027 ' - - - QD000087 

3J» 231556.70 030 QD000087 

32* 231557.00 031 00000087 

33* 231557.10 032 QD000087 

34* 231557.20 033 00000087 

35* 2 31557.30 034 " ~ " ^^0000 87 

36* 231557. 4C " 035" QD000087 

37* 231557.50 036 QD000087 

3S» 231557.60 037 Q0000087 

39* ■ : • QD000088 

4C* 1 - INIERNALCECCCE TABLES QD000089 

4i_* _^ -_ -~-j"j"j^"i~~ """" ~~~Trrrrrrrrrr"rr~"_TTrL~_~^^ ^Ppo oo9o 

42* ~ CNOP ~ QD000091 

43* 231560. CC » 0CCC04.C0 L RLCT ORZ { BU,64) , ( 4 )- THE RLSYW COUNT TABLE €0000092 

44* 231564.00 00CC4C.C0 L SYMU DRZ{BU),<32) -SVHBOLIC UNIT TABLE Q0000093 

45* 00CC00.61+ +OGCOOOCO 8U,01 ,10 L RLBIT SYN { BU, 1 ) ,0. 49 -THE REEL ENTERED BIT Q0000094 

i^*_?31624_.C0 C0C_C2q.Cq J-_AX_1C ___DRZ<_BU2, ( 16j "At^BOLIC CHANNEL TABLE 9990pp95 

47* 23 1644. CC GGC:^C2q^Cq L NTPU DRZ ^ BUl , ( 16J -NON TAPE TABLE QpOpPP?6" 

48* 0CCC00.00+ +0CG00077 8U,01 ,10 L ZBIT SYN(BU,1>,63 -INFINITY BIT 0000009?" 



^Hai 



C 



TIME CLGCK 0C054CA1 



PUMC IIDIINCP 



CARD IC iDOOOOgg 



DIST. OF 3/Cl 



3/01 



PAGE NUMBER 278 



LINE LOCATICN 



BINARY CUTPUT NAHE • STATEMENT LOCATICN 



1* 
2* 

2» 



SteAP AREAS FOR THE 3 INTERNAL INDEXES FOR NOT OVERLAP USE 



231664. CC C0CC03.CC L N0SA9 



_DRZlByi64_)ji3_) 

TYPESYMBOLS" ANF C 0~C~£~S" 



QD000099 
QDOOOIOO 
QOOOOlOl 
QD000102 



9 COO 010 3 
QC000104 
QD000105 
QD000106 
QD000107 
QD000108 



1C» 



231667. CC 
23167C,CC 



01 

"cY 



L DISK 
L TRACK 



{AYJDO 
(8)DD< 
(AY)DD 



{BUt6C,6) 

BU,4J,1 

(EU,60,6) 



fCISK 
, TRACK 



Y 
Y 



II* 
12» 
\l* 
14* 
15* 

16* 



2 3167p_.7_4_ 
231671. CC 
231671.74 
231672.00 
231672.74 
231673. CC 



18)_CC1 
( AY)DD 
{8)C0I 
(AY HDD 
{8)CD( 
{AY)OD 



BU,4),1__ 

{BU,6C»6) 

BU,4J,2 

CBU,60,6I 

BU,4),3 

i8yj6Gj_6J 



QQQogipg 
'qdoooho 

QDOOOm 
QD000112 
QD000113 

GD000114 



02 
C3 



.CONSOLE 
,READER 



Y 
Y 

Y 



II? 
1€» 
IS* 
2C* 
21* 
22* 



23i67_3_._7_4_ 

231674.00 

231674.74 

231675. OC 

231675.74 

231676.00 



C_4_ 

05 

06 



LSICQi 
{ AY JDD 
{8)C0I 
{AY)DD 
{8)DD{ 
(AY )DC 



BL,4Jj4__ 

teU,60f6) 

BU,4J,5 

{BU,60,6) 

By,4),6 

{BU,60,6) 



QCpppii5 

QD0001I6 
QD000117 
QOOOOlia 
QD000119 
QD000120 



, PRINTER 
.IQS 



Y 
Y 
Y 



23* 
2<* 
25* 
26* 
21* 
2£» 



231676^74_ 
231677. CC 
231677.74 



G7_ 
10 



L8LCD{_By,41,7 

(AY)DD(BU,6C,6),TAP£ 
(8)CD{BU,4),10 



QDpogi2i 

QD000122 
QD000123 
QD000124 
Q0000125 
QD000126 



L TAPE 



lOD AND REEL COMPARISONS 



2i* 

3G« 
31* 
32* 

32* 
34* 



QDC00127 
~QD00012B' 
QD000129 
Q0000130 
QD000131 
QC000132 



231700. CO 
231701.00 
231702.00 » 



L ICC ( AY)DD{BU,64,6), lOD 

CNOP 
L REEL (AY)DD(BU,64,6),REEL 

CNOP 
L BLANK ( AY)0D18U,48,6), 



Y 
Y 



Y _-AQ. D_ _BL A N K S 

DISPATCHER" ENTRY" T0~ ~D~EC 0"D~E~ 



35_t 
36* 
37* 
3£* 
39* 
4C* 



00000133 
"0D000134 
QD000135 
Q0000136 
Q0000137 
0D000138 



231703.00 
231704.00 
231704.40 



231535, 

_c_c_c_c_c_o_. 

COCGOO. 



CO 80 
06_3F 
46 5F 



000023.20 EO 



L DECOD 



SWAPI,8,LTY,LI00X 
LV»_LI0DX,C.gt$l5) 
LC,LIODX,0.32{$15) 



-SAVE INDEXES 

-„GET FWA CGNJENTS_. 

-CHECK FOR NOT OVERLAP MODE 



42* 

42* 
44* 
45* 
46* 



GQQQQ13? 
QD000140 
QD000141 
Q0000142 
QD000143 
QDd00144 



231705.00 
231705.40 
231706.40 
231707.40 
23171C.40 



231711.70 42 

231545.62 80 231711.74 OE 
C0CC24.C0 80 231664. C6 EO 
231523.00 80 000024.06 AO 
COCGOO. 22 C4 



EXCZ, LOVER 
BB1,L0VBIT, LOVER 
SHAPI,3,LXPP,LN0SAV 
TI,3,LPPURF,LXPP 
Z,0.0(LXPP) 



-IF OVERLAP MODE 

-CHECK AND SET FOR NOT OVERLAP CASE 
-SAVE THE OVERLAP INDEXES 
-AND INITIALIZE FOR NOT OVERLAP 
-ZERO FIRST PPREF ENTRY. 



41* 
46* 
4S* 
5C* 
51* 
52* 



231711_.CC_ 

231711.40 

231712.40 

231713.40 

231714. CC 

231715.00 



0_G_G_CCl!.22_C4 

OCCCGl.CO 83 0C0000.2C 50 
231545.51 80 231715.74 02 
232126.34 C6 

OOCCCl.Ol 83 231750.74 02 
232103.50 CO 



ZLl'OUXPPi ._ 

L(8U,64),1.0CLI0CX),C.C 
8B,LFINB,LINIT 
BRZZ.LFINAL 
BB,1.1(LI0DX),LI0DRN 
BfLREELR 



QD00pl45 
QC600146 
Q0000147 
GD000148 
0D000149 
QD000150 



L CVER 



LFWA 



-BRANCH ON FINAL BIT 1 
-BRANCH ON ZERO FWA 

-TEST FOR I OR R 



'Hai 



TIME CLOCK CCC54C41 PUNID IIDIIMCP CARD ID CD000152 OIST. OF 3/Cl 3/01 PAGE NUMBER 279 

Q^iIIlLOCAjlWIIIIIIIIIIIII[NARY[GyTPUJ~~^ 

■J, __ ^_ _ . Q0000152 

2* - INITIALIZATION ROUTINE QD000153 

2, . ■ „ ^— QD000154 

i_* -_ QD000155_ 

_f »_2 317_1_5.30 » ^C_CCGC1^C0 83 030000.20 50 ^L JNIT L I^BU , 2A j , 1. C (L lOCX j"^ ^ QC000156 

i* 231716.40 231547.13 10 " SX , LX 10, LSAVEY -SAVE THE ICREQ INDEX QD000157 

i* 231717. CO 231550.15 10 SX , LXFR, LSAVEZ -SAVE THE FREEL TABLE INDEX QD000158 

£» 231717.40 231721.34 C2 BRZ , L IN ITA + 1. -IF REJ END COHBC QD000159 

S* 231720.00 231545.51 80 001000.00 FO L INITA CMOCOOC BU, II ,LF1NB,C.0 -FINAL BIT TO 0. QD000160 

1C»_23 172 1.00 ^2_11545._73_80_ 001000.CC_ FO ^^^COC ,L INFAD ^^ZJERq_THE INF DISK 9Q00?1^^ 

11« 231722.00 ^23154 5.5 3 80 007000. CO FO CMOGOO , LCOUNT _~_ -:^ERORLSYMNO_._ COUNT. QD000162 

12* 231723.00 231552.24 10 " " LX , LWORKX , LCLEAR -CLEAR RLSYH COUNT TABLE 00000163^ 

12» 231723.40 CCCCC0.22 OA Z , .0{ LWORKX )- SYMBOLIC CHANNEL AND UNIT TABLES QD000164 

14» 231724.00 231723.65 4C CBR+, LWORKX, $-.32- AND THE NON TAPE TABLES Q0000165 

I5» 231724.40 C00C24.24 10 LX, LWORKX, LXPP -LOCK AT THE NEXT PP REF SLOT WITHOUT QD000166 

U* 231725.C_0 ^C0CCq2.2 5_0 7 VtLQR iLWORKXj 2»_0 J-D£_S_TROYING THE LXPP INDEX. QQ000167 

1?« 231725.40 ^CCCCCq.^4 SA OCIOCC.20 50 L lI J???? aWORKX J "AS JHE NEXT PP REF TBL SLOT AVA ILA_B_LE 999??168_ 

ie» 231726.40 231732.74 C4 8ZRZZ,LINITB - YES STEP DOWN. QD000169 

19* 231727. CC COCCOO.CG 8A 022000. 2C 50 L , TCRREFC LWORKX I -IS THE NEXT PP REF TBL SLOT AVAILABLE Q0000170 

2C« 231730. CO 231732.74 C6 BRZZ,LINITB - YES STEP DOWN. QD000171 

21* 231730.40 C0CC01.37 02 LCI, $15, 1.0 -NO — ERROR FLAG 1. QD000172 

2 2*_2317 31_.00_» _2A1_5A5_._51 80 001000.36 FC ^Q.*^ U?:116yi IJ » tfii^Bj 0.0 _-S_ET_f I_NAL BIT TO 1. 00000173 

2 3* 23 1732^ GG 232222. 5C CO B,\ERR4 ~ "_ QD000174" 

24* 231732. 4G CCGCC0.22 04 L INIT8 ~Z,0.0(LXPP) -CLEAR SLCT. " QD000175 

25* 231733.00 777777.00 83 000001.02 A4 $TI , I ,-1.0< L lOOX J , l.OC LXPP » -STORE PP ID QD000176 

2€* 231734.00 CCC000.47 84 001000.36 FQ CMl 1 1 1 ( BU, 1 1 , TLPPENCIXPP ) Q0000177 

27* 231735.00 OOOCOl.GO 83 030000.20 50 L ( BU, 24) , l.OtL lODX) -LOOK FOR REJ END COMBO QD000178 

2f* 231736^ CC „2 3_2„12A' JA A2 8RZ,LFINAL rJ_JJLAQ. QQ???!?? 

2S* 231736^40 JA\7A0_«A0._80__030000.21 10 ^^ ( BU ,24 ) , L lOD .-lAJ.HAAlASIA^RD AN IQD QD000180 

3C» 231737.40 231741.36 C2 BAE,LINfiB -YES " QD000181 

31* 231740. CO 0OCG10.37 02 LCI, $15, 8.0 -NO SEND ERROR FLAG Q0000182 

32* 231740.40 232200.10 00 B,L£RROR QD000183 

33* 231741.00 231545.62 80 231744.34 02 L INBB BB, L0V8IT,L INITC- .32 -IF NOT OVERLAP MODE C00001B»» 

31*_23i742.co CAGACA*AQ_ A5__ Aooooo. 20_ 50 A^A^ »A'ibA*?lt?i9JiPj'P "A^ A^REti_s lot avail aala* QDOOoi^? 

3 5* 2 317^3.00 A^AT^A-AIA^ " ^3AZA»A111I^ _-_ __AAS--."~SIEP_DOWN. I__AD0001§6 

'36* 231743.40 231757. 5C GO B,L10FUL - NO TO SPECIAL ROUTINE. QD000187" 

37* 231744.00 G0CC00.22 05 Z,0.0(LXIO) QDOOOISS 

36* 231744.40 * C0CGC0.13 34 LINITC SV, LX 10 , 0.0( LXPP ) -PUT CRREF IN PPREF SLCT. G0000189 

3?* 231745.00 231545.40 80 011000.00 FO CMOOOO ( BU, 9 ) ,L lOSCR ,0 .0 -SET lODSG COUNTER TO 1. QD000190 

4C* 231746.00 A3A5A5_-AQ. A^ __QUPPP» 22_ ^P Itl^AU »_?1».L lOSCR C0000191 

41* 231747.00 A3A5A5_»A1 A0__QC7000.C0 FG CMOCOO, LTAPEC _-SAL A^A^ AQ^N A JP_ ZERO C0000192' 

42* 23175C.CC 231714.10 00 " B,LFWA -BRANCH TO TEST FWA. QD000ig3" 

42* - ' QD000194 

44* —— QD000195 

45* - lOD CARD ROUTINE fiDOO0l96 

4f* -_ ji-TT.~~T~~~~""~rrrrrrrrrrrrrT"""_~Ji~ T""TrTrrr 9999?i ?7_ 

41* -_ QC0G019B 

4fi* 231750.40 CCCCC0.64 84 014000.22 BO L ICDRN M + 1 ,T lOCCT ( LXPP ) -STEP lOD COUNTER QD000199 

4^* 231751.40 C00C00.64 83 014000.20 50 L , L IREFi L lODX ) , .0 -CCKPARE FOR LARGEST QD000200 

5C« 231752.40 000000.50 84 014000.21 10 K, TLREFN ( LXPP ) - PP REFERENCE NUMBER QD000201 

51# 231753.40 231756.36 46 8ALZ,LI0CA -THIS NO. IS LOW. ...STEP DOWN. 0D000202 

52?_231754_.00 CCCCCg.50 84 pJ.4ppp.2C CO ST, TLREFN jLXPP) "H L^li* • • r BEfL^CA BA AHAS_ AU.^AEA__ ^_QD0002PA 

5 3«_2317 5A»AC 231545.62_8g__23176p_._74_ 02 BBlLQVB IT » LJPP_1-_C_._3_2_ QQQ002 04 

5<» 231756. GO COGCOO.GC 85 000000.20 50 L ICDA L ( BU , 64 ) , 0. ( LXIC ) , CO -IS lOREQ SLOT AVAILABLE. QD000205 

55* 231757.00 231761.34 C6 BRZZ,LIGC1 - YES STEP DOWN. Q0000206 

56* 231757.40 00CG02.37 02 L lOFUL LCI, $15, 2.0 -NO — ERROR FLAG 2. Q0000207 

_ . _ . _ ^ ^ ^ _____ 



UME CLOCK CCC54C41 PUNID 


IICIIMCP ( 


:arc 


IC 


GD000208 OIST. OF 3/Cl 


3/01 PAGE NUMBER 280 




LINE LCCATICN 


BINARY CUTPUT 






NAME 


STATEMENT 


LOCATION 231760 




1* 
2* 

A» 


231760.00 ♦ 
231760.40 
231761. CG 
231762. CO 


232222.50 
C0CCC0.22 
000002.00 
231677. CO 


CO 
05 
83 
80 


060000.20 

060000.21 


50 
10 


L 


1001 


B,LERR4 

Z,0.0{LXIO} 

L { BU, 48 ),2.0{LI0DX 1,0.0 

K(BU,48),LTAPE,0.0 


-IS TYPE TAPE. 


QD000208 
QD000209 
QD000210 
QD000211 


5* 


231763.00 


232026.36 


C6 










BAEZ.LIOCTP 


YES -TO TAPE SECTION. 


QD000212 


6* 
7* 

a* 
s» 

IC* 


231763.40 
231764.40 
231765.00 
231766.00 
231767.00 


231545.52 
231534.24 

COCC02.00 

ooccoo.co 

. 231771.36 


80 
10 
83 
8A 
C2 


001000.36 

060000.20 
060000.21 


FC 

50 
10 


L 


TYPR 


CK1111(BU,1),LNTB,C.0 

LX,LWORKX,LXTYPE 

LIBU,48),2.0CLI0DX} 

K(BU,48),.0<LW0RKX) 

BAE,LCOCE 


NO SET NCN-TAPE BIT TO I. 

-DECODE TYPE AND ENTER IN 
-10 REQUEST SLOT 

-TYPE FOUND 


QD000213 
Q0000214 
Q0000215 
QD000216 
QD000217 


11* 


231767.40 


231765.25 


48 










CB+,LWORKX,LTYPR 


-NO TRY AGAIN 


QD0C02ia 


12* 
13* 
14* 
15* 
16* 


231770.00 
231770.40 
231771.00 
231771.40 
231772.40 


G0CC06.37 
232200.10 
231533.22 
000000.00 
231777.74 


02 
00 
10 
89 
C6 


060000.20 


50 


I 
L 


CODE 
COPNT 


LCI, $15, 6.0 

B.LERRCR 

LX,LXNT,LNTPUX 

L(BU,48J,0.0(LXNT),0.0 

BRZZtLICC2 


-NO TYPE MATCHED 
-WITH ERROR FLAG OF 6 
-IS THIS CHANNEL IN THE 

NON-TAPE TABLE. 
NO STEP DOWN. 


QD000219 
QD000220 
QD000221 
QD000222 

QD000223 


17* 


231773.00 * 


C0CG04.C0 


83 


060000.21 


10 






K(BU,48),4.0{LIODX),0.0 




Q0000224 


1£* 
IS* 
2C* 
21* 
22* 


231774.00 
231774.40 
231775.40 
231776.40 
231777. CO 


231777.36 
000000.60 
C0CG00.74 
232011.36 
231771.63 


CO 
89 
SA 
C2 
48 


004000.06 
004000.23 


70 
10 


L 


NCNCH 


BZAEtLNONCH 

LF{BU,4),.48(LXNT) 

KF(eU,4),.60{LWaRKX) 

8AE,LNCN 

CB+,LXNT,LOCPNT 


-NO EQUAL 

-EQUAL CHAN FOUND CHECK EQUIP TYPE 

-IF EQUIP IS SAME AND CHAN SAME CCNT. 
-TRY AGAIN 


Q0000225 
Q0000226 
QD00022T 
QD000228 
0D000229 


22* 


231777.40 


C0CCC4.00 


83 


000000. C2 


Ag 


L 


1002 


TI,1,4.G(LI0DX) ,0.0(LXNT) -PLT CHANNEL IN NON-TAPE TABLE. 


QD000230 


24* 
2E* 
26* 
27* 

2e* 


232000.40 
232001.40 
232002.40 
232003.40 
232004.40 


231545.31 
CCCG00.74 
000000.60 
C0CC00.C3 
000000.34 


80 
8A 
89 
85 
84 


007000.22 
004000. 20 
004000.12 
004000.20 
010000.22 


BO 
50 
FO 
DO 
BO 


L 


FOUND 


M+1,LTAPEC 

L{BU,4),.60CL«QRKX» 

SF(BU,4),.48(LXNT) 

ST(BU,4l,TTYPEaXI0) 

M+1,TUNCT(LXPP) 


-STEP REEL COUNTER 
-GET TYPE 
-AND PLACE IN CHANNEL TABLE 

-STEP UNIT COUNT 


QD000231 
QD000232 
QD000233 
QD000234 

QD000235 


29* 


232005.40 


231545. 4G 


80 


011000. 2C 


50 






L(8U,9),LIOSCR,0.C 


■ENTER lODSQ IN IQREQ. SLOT. 


CD000236 


3C» 
31* 
32* 
33* 
34* 


232006.40 » 

232007.40 

232010.40 


00CCC0.23 
231545.40 
00CC01.13 


85 
80 
07 


011000.20 
011000.22 


DO 
BO 


— 




ST(EU,9),TI0DSQ(LXI0) 

M+1(BU,9),LI0SCR 

V+ICR,LXIG,1.0 


•STEP lOOSQ. 

•StEP lOREQ- INDEX. 


QD000237 
QD000238 
Q0000239 
QD000240 
00000241 


35* 












- 




DISK - TRACK CHECK 


ROUTINE 


QC000242 


36* 
37* 
3£* 
3S* 
4C» 


232011.00 
232012-00 
232013.00 
232013.40 


000002. CO 
231667.00 
232015.36 
231670. CO 


83 
80 
C6 
80 


060000.06 
060000.23 

060000.23 


70 

10 

10 


L 


NON 


LF(BU,48),2.C(LICDX) 
KF(8U,48),LDiSK 
BAEZ,LNEW 
KFCBU,48),LTRACK 


-IS TYPE DISK OR TRACK. 
DISK BRANCH. 


Q0000243 
Q0000244 
Q0000245 
QD000246 
QD000247 


41* 


232014.40 


232176.76 


C4 










BZAEZ,LNORM 


- NON DISK OR TRACK 


QD000248 


42* 
43* 
44* 
45* 
46* 


232015.00 
232016.00 
232017.00 
232017.40 
232020.00 


00CCC5.C0 
231702. CO 
232024.36 
000023.24 
C0CC10.25 


83 
80 
C6 
30 
02 


060000. 2C 
060600.23 


50 
10 


L 


NEW 


L(BU,48),5.C{LI0DX) 

KF,LBLANK 

BAEZ, LCSKC 

LV,LW0RKX,LI0DX 

LCI,LWCRKX,8 


-IS NUMBER FIELD BLANK 

-YES 

-IS THE NUMBER FIELD ZERO 


0D000249 
Q0000250 
Q0000251 
Q0000252 
QC000253 


47* 


232020.40 


231545.65 


80 


006000.06 


70 






LF(EUt6),LBLZCR+.2 




QD000254 


4£» 
4S« 
5C« 
51* 
52* 


232021.40 
232022.40 * 
232023.00 
232023.40 
232024. CO 


C0CC05.C0 
232176.76 
231545.24 
232021.64 
000000.77 


aA 

C4 

80 
48 
89 


006600.23 
232176.74 


IC 
OC 


LCSKC 
L DSKD 


KF{RU,6,6),5.{LWCRKX) 

BZAEZ,LN0RM 

V+,LWCRKX,LN06 

CB,LWORKX,LDSKC 

BZB1,LZBITJLXNT),LNGRM 


-A NON ZERO ENTRY 
-STEP TO NEXT CHAR 

-IF NO OTHER INF REQUESETD 


QD000255 
Q0000256 
QD000257 
QC00025B 
QD000259 






















■ 





^nai 



TIME CLOCK, 00054041 PUNIC 


IIDUMCP < 


:ard 


ID 


CD0CO261 DIST. OF 3/01 


3/01 PAGE NUMBER 281 




LINE LGCATICM 


BINARY CUTPUT 






NAMfc 


STATEMENT 


LOCATION 232025 




1* 
2* 

2* 
^* 


232025.00 
232025.40 


000007.37 
232200.10 


02 

00 






— 




LCI, $15, 7.0 
B,LERROR 


-NO — ERROR FLAG 7. 


QD000261 
QD000262 
QD000263 
QD000264 


f * 












- 




TAPE IOC ROUTINE 




GD000265 


1* 
IC* 


232026.00 
232027.00 
232027.40 
23203C.4C 


231545.52 
231531.16 

CCCCOO.GO 
232033.74 


80 
10 
87 

C6 


001000.00 
060000.20 


FO 
50 


L 
L 


IGOTP 
CCPSU 


CMOCOO(BU,1),LNTB,0.0 
LX,LXSU,LSYMUX 
L(eU,48),0.0(LXSU),C.C 
BRZZ,LI0D3 


-SET NON-TAPE BIT TO 0. 
-IS THIS UNIT IN THE 
TAPE TABLE. 
NO STEP DOWN. 


QD0G0266 
QD000267 
QD000268 
Q0000269 
QD000270 


11* 


232031.00 


C0CC05.C0 


83 


060000.21 


10 






K{8U,48),5.0{LIODX>,C.O 




QD000271 


12* 
13* 
14* 
1£» 


232032.00 
232032.40 
232033.00 
232033.40 
232034.40 


232073.76 
232027.57 
232033.04 
C0C005.G0 
231545.31 


C6 
48 
00 
83 

80 


000000.02 
0C7000.2C 


A7 

50 


L 
L 


ETA 
IGD3 


BAEZ.LSET 

CB+,LXSy,LOOPSU 

BD,$ 

TI,1,5.C{LIODX),O.OCLXSU} 

L,LTAP£C 


YES STEP DOWN. 

-TRY AGAIN ON A NON-ZERO CT 
-INTERNAL UNIT TABLE EXCEEDED 
-ENTER UNIT IN TAPE TABLE. 
-ENTER THE TAPE REEL COUNT 


QD000272 
QD000273 
0D000274 
QD000275 
CD000276 


1?* 


232035.40 » 


C0CC0C.62 


87 


007000. 2C 


DO 






ST(BU,7),.50aXSL) 


-IN THE TAPE UNIT TABLE 


QD00027/ 


1£« 

19* 
2C* 
21* 

22* 


232036.40 
232037.40 
232040.40 
232041.40 
232042.00 


231545. 31 
231677.74 
CC0C00.C3 
231532.20 

000000.00 


80 
80 
85 
10 
88 


007000.22 
004000.20 
004000.20 

060000.20 


BO 
50 
DO 

50 


L 


GCPSC 


M+1,LTAPEC 

LCBL, 4), LTAPE+. 60,0.0 

ST{ EU,4),TTYP£(LXI0) 

LX,LXSC,LSYMCX 

L{BL,48),C.0(LXSC),C.C 


-AND BUyP BY ONE 

-STORE TAPE TYPE IN 
IQREQ SLOT 

-IS CHANNEL IN SYMBOLIC 
CHANNEL TABLE. 


QD000278 
0D000279 
Q0000280 
Q0000281 
0D000282 


23* 


232043.00 


232046.34 


C6 










BRZZ,LI0D4 


NG STEP DOWN. 


QD000283 


2i* 
2b* 
2b* 
21* 
2£» 


232043.40 
232044.40 
232045.00 
232045.40 

232046.00 


000004. CO 
232047.36 
232042.21 
232045.44 

000004.00 


83 
C6 
48 

00 
83 


060000.21 
000000.02 


10 
A8 


L 


IG04 


K{BU,48),4.0{LIOCX),C.O 

BAEZ.LCHAN 

CB+,LXSC,LOOPSC 

80,$ 

TI, 1,4.C{LI0DX),C.C{LXSCI 


YES— — STEP DOWN. 
-TRY AGAIN ON NON-ZERO COUNT. 
-INTERNAL CHANNEL TABLE EXCEEDED 
-ENTER CHANNEL IN TABLE. 


QD000284 
QD000285 
QD000286 
QD000287 
QD000288 


29* 


232047.00 


231624.21 


CD 






L 


CHAN 


V-I,LXSC,LSYMC 


-COMPUTE WHERE IN TABLE 


QD0002B9 


3C» 
31* 
32* 

33* 
34* 


232047.40 
232050.00 
232051.00 « 
232052.00 
232053. CO 


C0CG11.21 
000000.71 
000004.00 
231702.00 
232063.36 


30 
87 
83 
80 
C4 


007027.20 
060000.20 
060000.21 


00 
50 
10 






SV,LXSC,$R 

ST(BU,7),0.57{LXSUI,46 

L(BU,48),4.0(LIODX) 

K{8U,48I,LBLANK 

8ZAEZ,LENTER 


-CHAN NAME WITH THE UNIT NAME 
-IS CHANNEL SYMBOL BLANK 

NO STEP DOWN. 


QC000290 
Q0000291 
Q0000292 
QD000293 

QC000294 


35* 


232053.40 


000000.13 


85 


007000.00 


FO 






CM0G00(BU,7),TRLSYM{LXI0) 




QD000295 


36* 
37* 
3€* 
3S* 
4G« 


232054.40 
232055.40 
232056.00 
232057.00 
232060.00 


000000.60 
231624.21 
000000.00 
000000.00 
231702.00 


87 
05 
88 
87 
80 


001000.36 

000000.00 
060000.06 
060000.23 


FO 

FO 
70 

10 






CMl nil BU,1), 0.48 (LXSU) 
V+I,LXSC,LSYMC 
CMOOOO{BU,64),0.0{LXSC) 
LF{BU,48),0.OfLXSU) -SEE 

KF{BU,48),LELANK 


-SET THE UNIT SLOT TO NULL CHAN 
-RESTORE THE CHAN IX 
-CLEAR A BLANK FROM THE CHAN TBL 
IF UNIT FIELD WAS BLANK 


QD000296 
QD000297 
QD000298 
QD000299 
QD00030G 


41* 


232061.00 


232004.76 


CO 










BZAE,LFCUND -IF NOT CONTINUE 


QD00030i 


42* 
43* 
44* 
45* 
46* 


232061.40 
232062.40 
232063.00 
232063.40 
232064.40 * 


000000.00 
232004.50 
000C01.21 
000030.13 
COCCOO. 13 


87 
CO 
05 
80 
35 


060000.00 

007000.20 
007000.20 


FO 

50 

CO 


L 


ENTER 


CMOOOO{8U,48),0.0(LXSU) - 

B.LFOUNC 

V+I,LXSC,1.0 

L(BIJ,7),LXSC + .11,0.0 

ST{BU,7),TRLSYM(LXI0) 


-CLEAR THE UNIT NAME 

-BRANCH 
-INCREASE BY ONE FOR RLSYM 


QD000302 
QD000303 
QD000304 
QD000305 
QD000306 


47* 


232065.40 


000032.22 


00 










Z,LW0RKX 


-STORE RLSYM SHIFTED 3 BITS 


QD000307 


48* 
49 » 
5C* 


232066.00 
232067.00 
232070.00 


000032.16 
231557.70 
231545.53 


80 
8A 
80 


007000. 2C 
010000.22 
007000.23 


DO 
80 
10 






ST(BU,7),LWORKX+.14,C.0 - FOR SUBSEQUENT SORT. 
M+l(BU,8),LRLCT-.8{LWORKX) -ADD ONE TO PROPER COUNT. 
KF{BU,7),LCCUNT -DONT SAVE IF COUNT IS LARGER 


QD00030a 
QD000309 
QD000310 







'Kfll 



TIME CLOCK CCC54C41 PUMD 


IIDIIFCP 


:ard 


ID 


GD000312 CIST. OF 3/Cl 3/01 PAGE NUMBER 282 




LINE LOCATICN 


BINARY GUTPUT 






NAME 


STATEMENT LOCATION 232071 




1* 
2* 

3* 


232071. CC 
232071.40 
232072.40 
232073.00 


232072.77 
231545.53 
231623.21 

232004.50 


40 
80 
05 

00 


007000.20 


DO 


L 


JOE 


BZAH.LJOE -THEN RLSYM 

ST(8U,7},LC0UNT 

V+I,LXSC,LSYMC-1. -RESTORE THE CHANNEL INDEX 

BtLFOUNC -BRANCH 


QD000312 
QD000313 
Q0000314 

QD000315 


5 » 


232073.40 


C0CC04.00 


83 


060000.06 


70 


LSET 


LF(ieU,48),4.0(LI0DX) -IS THE CARD CHANNEL NULL 


QD000316 


(:* 
1* 
€* 
^« 

IC* 


232074.40 
232075.40 
232076.00 
232076.40 

232077.00 


231702.00 
232076.76 
232176.74 
231532.20 
000000.71 


80 
CO 
CO 
10 
87 


060000.23 
007027.20 


10 

50 


L 


SETA 


KF(RU,48),LBLANK 

BZAE,LSETA -IF NOT NULL CONTINUE LOOKING 
BZRZ.LNORM -YES A NULL CHANNEL 
LX,LXSC,LSYMCX -IS CHANNEL IN THE SYMBOLIC 
L(BU,7) ,0.57{LXSU),46 -MOVE INDEX DIRECTLY TO THE 


QD000317 
QD000318 
Q0000319 
QD000320 
tiD000321 


u* 


232100.00 


000011.20 


BO 










V+,LXSC,$R -ASSOCIATED CHAN SLOT 


QD000322 


12* 
13* 
14* 
15* 


232100.40 * 
232101.40 
232102.40 
232103.00 


GOOCOO.OO 
000004.00 
232176.76 
232032.50 


88 
83 
C6 
00 


060000.20 
060000.21 


50 
10 






L{BU,48),C.0(LXSC) ,0.0 - CHANNEL TABLE. 
K{BU,48),4.0(L10DX),0-0 

BAEZ.LNCRM - YES NORMAL RETURN. 

B.LETA 


QD000323 
Q0000324 
QD000325 
Q0000326 
QD000327 


17* 












— 






QD0C0328 






ie» 

1G« 

2C» 
21* 

22* 


232103.40 
232104.40 


231545.52 

000005.37 


80 
02 


232105.74 


00 


L 




THE REEL CARD ROUTINE 


gD00032g 
QD000330 
QD000331 
QD000332 
QD000333 


REELR 


BZB,LNTB,LRE£L1 -BRANCH IF NON-TAPE BIT 0. 
LCI, $15, 5.0 -BIT ONE ~ ERROR FLAG 5. 


23* 


232105. CO 


23'2200. 10 


00 










B,LERROR -BRANCH TG ERROR ROUTINE. 


QD000334 


24* 
25* 
26* 
21* 
2£» 


232105.40 

232106.40 
232107.40 
232110.40 


00CC00.61 

000002.00 
231702.00 
232176.76 


87 

83 
80 
C6 


232176.74 

060000.06 
060600.21 


OE 

70 
10 


L 


REELl 


BBl,LRLeiT{LXSy),LNCRM -BRANCH ON REEL BIT ONE 

IF ZERO MAKE IT A ONE 
LF(BU,48),2.0(LIGDXI -TEST FOR BLANK FREEL SYMBOLIC 
K,LBLANK 
BAEZ,LNCRM -NORMAL RETURN IF BLANK. 


QD000335 
Q0000336 
QD000337 
QD000338 
QD000339 


29* 


232111-00 


231545.62 


80 


232114.74 


02 






BB,LCVeiT,LRE£L2-0.32 


QD000340 


3C» 
31* 
32* 

33* 
34* 


232112.00 
232113.00 
232113.40 
232114.00 * 
232114.40 


COOCOO.CO 
232115.34 
C0CC03.37 
232222.50 

C0CGC0.22 


86 
C6 
02 
CO 
06 


000000.20 


50 






L(BU,64),0.0(LXFR),C.C -IS FREEL SLOT AVAILABLE. 

BRZZ,LREEL2 - YES STEP DOWN. 

LCI, $15, 3.0 '^ -NO ERROR FLAG SI 3. 

B,LERR4 

Z,0.0(LXFR) 


QD000341 
QD000342 
Q0000343 
QD000344 
QD000345 


35* 


232115.00 


C0CCC2.G0 


83 


000000.02 


A6 


L 


REEL2 


TI,1,2.0( LIO0X),0.0(LXFR) -STORE FREEL SYMBOL IN SLOT. 


QC000346 


36* 
31* 
3€» 

3S* 
4C« 


232116.00 
232116.40 
232117.40 
232120.00 

232120.40 


000000.24 
000000.62 
232123.34 
000011.24 
C0CC01.25 


34 
87 
C2 

50 

05 


007027.20 


50 


L 


REl 


LV,LWORKX,0.0(LXPP) -FOR COMPUTING THE CORRECT 
LIBU,7),.50CLXSUJ,46 -I/O REQUEST TABLE ADDRESS 
BRZ,LRE3 -FOR FREEL ADDRESS INSERTION 
LC,LWORKX,$R 
V+I,LW0RKX,1.0 


QD000347 
QD000348 
00000149 
Q0000350 
QD000351 


41* 


232121.00 


000000.22 


8A 


232122.74 


00 






BZB,TLAST(LW0RKX),LRE2 -CHECK FCR LAST +1 ENTRY PT WITHIN TBL 


QD000352 


42* 
43* 
44* 
45* 
46* 


232122.00 
232122.40 
232123,00 
232124.00 
232125.00 


232307.25 
232120.64 
000026.00 
C0C000.34 
000001.15 


01 
48 

80 
8A 
07 


022000.20 
022000-20 


50 
DO 


L RE2 

L RE3 


LVI,LWORKX,TIOREQ 

CB,LWCRKX,LRE1 

L(BU,18),LXFR - STORE THE FREEL ADDRESS 

ST<BU,18),TFREEL(LWCRKX) - IN IGREG SLOT 

V+ICR,LXFR,1.C -STEP FREEL INDEX. 


QD000353 
QD000354 
QD000355 
QD000356 
QD000357 


47* 


232125.40 


232176.50 


CO 










B,LNORM -NORMAL RETURN. 


QD000358 






'■ ^ '• ■ " ■ . • ' •■•.■'■• 



'wai 



TIME CLOCK CCC54C41 PUNID 


IICIIKCP 




CARD 


ID 


CD000360 CIST. OF 3/Cl 


3/01 PAGE NUMBER 283 




LINE LOCATICN 


BINARY OUTPUT 






NAME 


STATEMENT 


LOCATION 




1» 














.,„ , 








QD000360 








2* 

■7 « 














— 




FINAL ROUTINE 


. 


QD000361 
QD000362 
























i» 














- 








QC0C0363 


I* 


232126. CO 


777777.00 


33 


OCOOCl 


.02 


A4 


L 


FINAL 


$TI,l,-l.oaiODX),l.C(LXPP) 


-STORE PP IC 


QD000364 


t* 


232127. CO • 


231545.51 


30 


232132 


.34 


CC 






BZB1,LFINB,LFIN2-1. 


-IS FINAL BIT 1. 


Q0000365 


1* 














- 




IF 1, GO ON... .IF C, MAKE 


IT 1 AND BRANCH. 


QD000366 


i* 


23213C.C0 


00CC00.13 


34 












SV,LXIO,0.0(LXPP) 


-STORE CRREF. 


QD000367 


c» 


232130.40 


C0CC00.32 


3F 


232200 


,34 


02 






BB,C.26{$15),LERR0R 


-BRANCH ON REJECT END COMBO. 


QD000368 


IC* 


232131.40 


232170. IC 


CO 












B,LFIN3 


-BRANCH TC STEP PPREF TABLE. 


QD000369 


11» 


232132. CC 


000000.32 


8F 


232200 


.34 


02 






8B,C.26l$15),LERR0R 


-BRANCH ON REJECT END COMBO. 


QD000370 


12* 


232133.00 


C0CCC0.64 


84 


014000 


.20 


50 


L 


FIN2 


LjTIODCTlLXPP) -IS 


LARGEST PP REFERENCE NO. 


0D000371 


12* 


232134.00 


C0CC00.5O 


84 


014000 


.21 


10 






K,TLREFN(LXPP) 


LARGER THAN THE lODCT 


QD000372 


14* 


232135.00 


232136.76 


46 












BALZ,LFINI 


YES... .STEP DOWN. 


QD00O373 


15* 


232135.40 


COOflOO.50 


84 


014000 


.20 


CO 






ST,TLREFN(LXPP) 


NO.... REPLACE BY lODCT 


QD000374 


le* 














- 








0C000375 


17* 














- 




SORT lOREQ TABLE ENTRIES FOR THIS PROBLEM 


QD000376 


16* 














- 




PROGRAM BY UN IT-PER-CHANNEL SIZE. 


QD000377 


19* 














- 








QD000378 


2C* 


232136.40 


231551.23 


10 








L 


FINI 


SX,LXNT,LPUT 


-ENTER SORT SAVE LXNT INDEX. 


QD000379 


21* 


232137.00 


G0CC32.22 


00 












Z.LWORKX 


-ZERO 2 INDICES. 


Q0000380 


22* 


232137.40 


C0CC23.22 


CO 












Z,LICCX 




GD000381 


23* 


232140. CC 


C0CC00.24 


34 












LV,LWORKX,O.C(LXPP) 


-PUT CRREF IN XA VF. 


QD000382 


2<» 


23214C.40 


231545.53 


80 


007027. 


.20 


50 






L(BU,7),LC0UNT,46 


-LCAD RLSYM NO. COUNT. 


Q0000383 


25* 


232141.40 


232167.74 


06 












BRZZ,LSK IP 


-NO RLSYMS — —SKIP SORT. 


Q0000384 


26* 


232142.00 


COOOll.24 


50 












LC,LWORKX,$R 


-PUT COUNT INTO XA CF. 


QD000385 


2<» 


232142. 4C 


231546.25 


50 












SC,LWORKX,LSAVE 




00000386 


2f * 


232143. CO * 


231546.06 


50 








L 


SEARA 


LC,LIODX,LSAVE 


-OUTER LOCP LOAD XB CF. 


QC000387 


2S* 


232143.40 


231560.07 


01 












LVI,LIODX,LRLCT 


-INITIALIZE XB AND XC VF. 


GD000388 


3C* 


232144. CC 


231560.23 


Gl 












LVI,LXNT,LRLCT 




QD000389 ^ 


31* 


232144.40 


COOCCO.IC 


83 


110027. 


.20 


50 






L(V + lHBy,8),C.8<LI0DX),46 


-ENTER FIRST RLCT. 


QD000390 


32* 


232145.40 


OCCCOO.IO 


83 


110027. 


.23 


10 


L 


SEARB 


KF(V+I)CBUf8),0.8{LI0DX),46 


- -INNER LOOP COMPARE. 


QD00039I 


33* 


232146.40 


232150.76 


44 












BZALZ,LSEARC 


-ACC. NOT LOW — —STEP DOWN. 


QD000392 


3^» 


232147. CC 


777777.70 


83 


010027. 


.2C 


5C 






$L(PU,8),-0.a(LICDX),46 


-ACC LOW— SWITCH RLCT 


0D000393 


35* 


232150.00 


232147.23 


BO 












LVE,LXNT,$-1. 


-PUT PROPER ADDRESS IN XC VF. 


QD000394 


36* 


232150.40 


232145.46 


48 








L 


SEARC 


CB,LIODX,LSEARB 


-LOOP BACK ON NON ZERO CF. 


0D0C0395 


37* 


232151.00 


00C011.C6 


50 












LC,LIODXt$R 


-LOAD XB CF. 


QD000396 


3e* 


232151.40 


COOCOO.CC 


89 


010000. 


CC 


FO 






CM0C00(BU,8),0.0{LXNT),C.0 


-ZERO PROPER RLCT SLOT. 


00000397 


3S* 


232152.40 


231560.23 


OD 












V-I,LXNT,LRLCT 


-READY XC FOR RLSYM SEARCH. 


QD000398 


4C* 


232153.00 


C0CC32.C6 


30 












LV,LICCX,LWORKX 


-LOAD XB VF. 


QD000399 


41* 


232153.40 


231554.00 


89 


010000. 


2C 


50 






L{8U,8),LCT{LXNT),0.0 


-LCAD HIGH RLSYM. 


GD000400 


42* 


232154.40 


COCGOO. 22 


83 


232157. 


74 


GO 


L 


SEARD 


BZB,TLAST{LIODX),LSEARF -IS 


THIS END OF TABLE 


QD000401 


43* 


232155.40 


232307.07 


01 












LVI,LIODX,TIOREQ 


YES ... INITIALIZE 


QD000402 


44* 


232156.00 


0CCCC0.62 


5F 










" 


LC,LXNT,.32($15) -CHECK 


MODE 


QD000403 


45* 


232156.40 * 


232157.70 


42 












BXCZ,LSEARF -OVERLAP NODE 


QD000404 


46* 


232157.00 


C21111.C7 


01 












LVI,LICCX,TUIORQ -IF 


NOT OVERLAP MODE 


QD000405 


47* 


232157.40 


000000.13 


83 


007000. 


23 


10 


L 


SEARF 


KFlBg,7),.ll{LI0CX) 


NO. ...INNER SEARCH LOCP. 


QD000406 


4€* 


232160.40 


232162.36 


C6 












BAEZ,LS£ARE 


-FOUND STEP DOWN. 


Q0000407 


4S* 


232161.00 


00CGG1.07 


C5 












V+I,LI00X,1.0 


-NOT FOUND STEP XB VF. 


QD000408 


5C* 


232161. 4C 


232154.50 


CO 












BjLSEARD 


-GO BACK AND TRY AGAIN. 


QD0004C9 


51* 


232162.00 


OOOGOO.CO 


8 A 


000000. 


02 


E3 


L 


SEARE 


SWAPI,l,0.0{LWORKXj,0.0iLI0DX) -SWAP lOREG SLOTS. 


QD000410 


52* 


232163.00 


C0CC01.25 


05 












V+I,LW0RKX,1.0 


-STEP XA VF. 


QC000411 


53* 


232163.40 


COOOOO. 22 


8A 


232166. 


74 


CC 






BZB,TLAST{LWORKX),LSEARG -IS 


THIS END OF lOREQ TABLE 


QD000412 


54* 


232164.40 


232307.25 


01 












LVI,LVvCRKX,TIOREG 


YES. ..INITIALIZE 


QD00C413 


55* 


232165. CC 


000CC0.62 


5F 












LC,LXNT,.32{$15) -CHECK 1 


^ODE 


QD000414 


56* 


232165.40 


232166.70 


42 












BXCZtLSEARG -IF 


OVERLAP 


QD000415 



^wai 



TIME CLOCK CCC54C41 PUNID 


llDll^'>CP ( 


:ard 


IC 


{;dooo416 cist, of 3/Cl 


3/01 PAGE NUMBER 284 




LJNE LOCATION 


BINARY OUTPUT 






NAME 


STATEMENT 


LOCATION 232166 




1* 
2* 
2* 
<* 


232166.00 
232166. 4C 
232167. CO 
232167.40 


021111.25 
232154.47 
232143.24 
231551.22 


01 
48 
48 

10 






L 

L 


SEARG 
SKIP 


LVI,LWORKX,TUICRQ 
CB+,LIODX,LSEARD 
C8,LW0RKX,LSEARA 
LX.LXNT.LPUT 


-IF NOT OVERLAP MOAO 

LOOP BACK ON NON-ZERO CF. 
-END OF SWAP AND SORT. 
-RESTORE LXNT INDEX. 


QD000416 
00000417 
QD000418 

QD000419 


5* 


23217C.00 


C0CC0O.46 


84 


002000.00 


FO 


LFIN3 


CH0C00{BU,2),TASGNPiLXPP) 


-RESET BOTH ASSIGN AND LAST PP BITS 


QD00042Q 


i* 
t* 
€* 

9» 

1C» 


232171. CO 
232172.00 • 
232172.40 
232173.00 
232174.00 


231545.62 
231553.11 
CCCC02.11 
CCCCC0.47 
231545.62 


80 
10 
07 
84 

80 


232172.74 

001000.36 
232176.74 


02 

FO 

04 


Z 


LDCDl 


BB,L OVBIT.Z LDCCl 
SXtLXPP.LASTPP 
V+ICR,LXPP,2.0 
CMlllUBUtl),TLPPEN{LXPP) 

BZBZ,LOVBIT,LNORM 


-SAVE ADR. OF LAST PP ENTERED 
-STEP PP REF INDEX 
-TURN ON LPPEN BIT 
-IF OVERLAP MODE 


0D000421 
QD000422 
QD000423 
QD000424 

QD000425 


11* 


232175.00 


231664.00 


80 


000024.06 


EC 






SWAPI,3,LN0SAVfLXPP 


-RESET INDEXES TO OVERLAP MODE 


QD0C0426 


12* 
13* 
1^» 
15* 
1£» 


232176.00 
232176.40 


232^76.50 

231535.00 


00 
80 


000023.20 


eo 


L 




B.LNORM 


-NORMAL RETURN. 


CD000427 
QD000428 
QD000429 
QD000430 

QD000431 




NORMAL RETURN ROUTINE 


NORM 


SWAPI,8,LTY,LI0DX 


-SfeAP 8 INDICES. 


17* 


232177.40 


000002.10 


OF 










B,2.0($15) 


-DISPATCHER NORMAL RETURN. 


QD000432 


16* 
19* 
2C» 
21* 
22* 


232200.00 
232201.00 


231545.51 
231546.23 


80 
10 


001000.36 


FO 


L 








QD000433 
QD000434 
Q0000435 
QD000436 
QD00C437 




ERROR RETURN ROUTINE 


ERROR 


CM1111(BU,IJ,LFINB,C.C 
SX,LXNT,LSAVE 


-SET FINAL BIT TO 1. 
-SAVE INDEX. 


22* 


232201.40 


000000.24 


14 










LX,LWCRKX,O.G(LXPP) 


-SET lOREG AND FREEL SLOTS FOR H 


QD000438 


2<« 
25* 
26* 
27* 
26* 


232202.00 
232202.40 
232203.40 
232204.00 

232204.40 


232212.31 
G00C00.34 
232212.34 
000011.24 

C0CC0O.22 


46 
84 
06 
50 
lA 


010027.20 


50 


L 


ERRA 


BXVZ2,LERR2 

L,TUNCT{LXPP),46 

8RZZ,LERR2 

LCLWORKXtSR 

LX,LXNT,0.0<LWORKX) 


THIS PROGRAM TO ZERO. 


Q0000439 
QD000440 
Q0000441 
QD000442 
GD000443 


29* 


232205.00 * 


C0CC00.22 


8A 


232206.74 


oc 






BZB,TLAST{LW0RKX),LERR3 


-END OF lOREQ TABLE 


GD000444 


3C» 
31* 
32* 

32* 
3^* 


232206.00 
232206.40 
232207.00 
232207.40 
232210.00 


232307.25 
232210.30 
000031.23 
000000.22 
COCCCO. 22 


01 
46 
50 
09 

OA 






L 
L 


ERR3 
ERRl 


LVI,LWORKX,TIOREC 

8XCZZ,LERR1 

SC,LXNT,LXNT 

Z,0.0{LXNTI 

Z,0.0(LWORKX) 


-ZERO FREEL SLOT. 
-ZERO lOREQ SLOT. 


QD000445 
QDO00446 
' Q0000447 
QD000448 
QD000449 


35* 


232210.40 


232204.65 


48 










CB+,LWORKX,L£RRA 


-BACK ON NON-ZERO COUNT. 


Q00C0450 


36* 
37* 

3e* 

39* 
4C* 


232211.00 
232211.40 
232212.00 
232212.40 
232213.40 


231547.12 
231550.14 
000000.22 
CCCC00.45 

C0GC00.47 


10 
10 
04 
84 
84 


001000.36 
001000. CC 


FO 
FO 


L 


ERR 2 


LX,LXI0,LSAVEY 

LX,LXFR,LSAVEZ 

Z,0.0{LXPPJ 

CMllll(8y,lJ,TRJECT{LXPP) 

CMOCOO,TLPPEN{LXPP) 


-RESET THE lOREC INDEX 
-RELOAD THE FREEL TABLE INDEX 

-ZERO PPREF SLOT. 

-SET THE REJECT BIT 
-RESET THIS LPPEN BIT 


QD000451 
QD000452 
Q0000453 
QD000454 
QD000455 


41* 


232214.40 


000011.37 


50 










SC,15,$R 


-ERROR FLAG TO ACC 


QD000456 


42* 
42* 
44* 
45* 

4£« 


232215.00 
232216.00 
232216.40 
232217.00 
232220.00 


231545.62 
231553.11 

000002.11 
000000.47 
231546.22 


80 
10 
07 
84 
10 


232216.74 

001000.36 


02 
FO 


Z 


LDCD2 


88, L OVBIT.Z LDCD2 

SX,LXPP,LASTPP 

V+ICR,LXPP,2.C 

CM1111,TLPPEN(LXPP) 

LX,LXNT,LSAV£ 


-SAVE ADR. OF LAST PP ENTERED 
-STEP PP REF INDEX 
-SET THE NEXT LPPEN BIT 
-RESTORE INDEX. 


QD000457 
QD000458 
QD000459 
Q0000460 
QD000461 


4]* 


232220.40 * 


231545.62 


80 


232222.74 


04 






8ZBZ,L0VBIT,LERR4 


-IF OVERLAP MODE 


QD000462 


48* 
49* 
5C* 
51* 


232221.40 
232222.40 
232223.40 
232224.00 


231664.00 
231535.00 
C0CG01.37 
000001.50 


80 
80 
5F 
OF 


000024. C6 
000023.20 


EC 

EO 


L 


ERR4 


SWAPI,3,LN0SAV,LXPP 
SWAPI,8,LTY,LI0DX 
SC,$15,1.0{S15) 
B,1.32($15) 


-RESET INDEXES TO OVERLAP MODE 
-SWAP 8 INDEXES 
-SAVE THE ERROR FLAG 

-DISPATCHER ERROR RETURN. 


QD000463 
Q0000464 
QD000465 
QD000466 







'wai 



IIME CLOCK 0C054041 


PUNID IICIIHCP 


CARD ID 


QEOOOOCl DIST. OF 3/Cl 


3/01 PAGE NUMBER 285 


:: ■ 


LINE LOCATICN 


BINARY CUTPUT 




NAME STATEMENT 


LOCATION 232224 




1» 232224.40 « 
1* 






SLC,$ 
PRNC 




QEOOOOOl 
QE000002 


3 * 




- 






QE000003 


5« 




- 






QE000004 
QE000005 


I/O ASSIGNMENT 


ASSIGN 


t» 




- 






QE000006 






1 • 

e* 




- 






QE000007 
QE000008 






s* 




- 


THE ASSIGN PROGRAM 


LINKAGE FORMAT 


0E000009 


ic» 
ii» 




- 






QEGOOOIO 
QEOOOOll 






Ik* 




~ 




LVI,$15,Y 


OE000012 


12« 
14* 




- 


Y 


B.TASIGN 
XWfA,6*0»C 


QE000013 
QE000014 


15» 




- 




BEV»,$ RETURN LOCATION 


QE0C00I5 


11* 




- 




LET A = STATUS OF MACHINE 


QE000016 
QEOOOOl? 


1£» 




- 




ZERO = NO MACHINE CONF. CHANGE 


QE0000I8 


IS* 
2C« 




- 




NOT ZERO = MACHINE CONF. CHANGE 
LET B = EXIT DISPOSITION 


OE000019 
QE000020 


21» 




- 




LET = TYPE OF ENTRY 


QE00002I 


22* 

21* 




- 




ZERO = NORMAL ENTRY 

NOT ZERO = SPECIAL ENTRY INO STA- 


0E000022 
QE000023 


24» 




, - 




TUS REPORT UPON EXIT) 


06000024 


2£» 
26 • 




- 




LET C = MODE 

ZERO = OVERLAP MODE 


QE000025 
QE000026 


27* 




- 




NOT ZERO = NOT OVERLAP MODE 


CE000027 


,"''■■' ' ^ 



*Nai 



TIME CLOCK CCCS^CAl 



PUNID IICIIHCP 



CARU IC QE0C0029 



DIST. OF 3/Cl 



3/01 



PAGE NUMBER 286 



Al^i tpCAJICN ^^ BINARY CUTPUT NAME STATEMENT LCCATICN 



1« 



QE000029 
QE000030 



* _-_ SYN CARDS FGR THE LENGTHS OF THE THREE TABLES QE000031 



4* 

5« 



QE000032 
QE000033 



.1*_QCGCCG_.CC_+ ^tOCC00025 NULL, JfPJi SYN, 21 -THE NUMBER OF JOBS ON THE SCAN AND READ TAPE PLUS 1 0E000034 



1» OCCCCC.OO+ 
e» OOCOCC.CO+ 



+0CC00120 


NULL 


TICC 


SYN, 80 


+0CC00062 


NULL 


T FRC 


SYN, 50 



-THE FIRST REEL TABLE LENGHT 



QE000035 
QE000036 



S» 



QE000037 



IC* G0CCCC.C0+ 
11* OGC0C0.00+ 



+OO0CCOC2 
+00000024 



NULL 
NULL 



T UPPC SYN, 2 
T UICC SYN, 20 



-NOT OVERLAP PP REF TABLE LENGTH 
-NOT OVERLAP I/O REG TABLE LENGTH 



QE000038 
QE000039 



.li*_Q0ccgc_.cc+_ 

12« 
14« 



+00C00024 



NULL 



T UFRC ^S_YN,2C -NOT OVERLAPFIRST REEL TABLE LENGHT 



QE000040 
QE00004i 
QE000042 



—NOTE— THE TPPC COUNT MUST BE HALF OF THE ACTUAL TABLE LENGTH 
W H fCH^IS'THE" actual' N~U~M"B~E~R~ oT JOBS THE " f A B L E " C A N~ AC C C MrooXfE." 



151 
If 



QE00g043 
QE000044 



'Nai 



TIME CLOCK CCC54C41 



PUNID UCllMCP 



CARD ID CE000046 



DIST. OF 3/Cl 



3/01 



PAGE NUMBER 287 



LINE 



LGCATICN 



BINARY OUTPUT 



NAME 



STATEMENT 



LOCATION 



1» 
2« 

2* 
4« 



PRNS 



CONSTANTS TO BE USED THRU OUT ASSIGN PROGRAM 



QE000046 
QE000047 
QE000048 
0E000049 



0E00OO5O 



1C» 



232224.40 
232225.00 



CCC0C0.OO+ 
GC00CC.C0+ 



T NEXT 
T I PL 



VF, 
VF,C.C 



-THE AODR OF THE NEXT PP TO BE RUN 
-CHAN ADDRESSES FOR IPL 



THE FORMAT OF THE TEMP CHAN WORD 



CE0000S.1 
QE000052 
QE000053 
QE000054 

QE000055 



11» 



QE000056 



12* 
12* 
1^» 
15* 
It* 



021102.00+ 
021102.31+ 

232226.00 
232227.00 



+0CC000C0 
+0CC00CC0 

232234.00+ ( 



BU,22 ,10 T CTACH SYN { BU, 18 ) , TCTEMP + 0. 

BU,07 ,10 T CTSCH SYNI RU, 7 ) , TC rEMP + 0.25 

000025 232231 TSAV XW , TPREFT, TPPC, TPPREF 

CCGOOO T LUCT DD(BU,18),0 



-ABSOLUTE 
■SYMBOLIC 



CHANNEL NUMBER 
CHANNEL NUMBER 



-LARGEST UNIT COUNT ON ONE CHANNEL 



0E000057 
QE000058 
QEO0O059 
QE000060 
QE000061 



11* 232227.22 



000 T LCHCT DD{EU,7),0 



-TAPE CHAN COUNT FOR ENTIRE SYST CONF. 



QE000062 



ie» 

19* 
2C* 
21* 
22* 



232227 
232227 
232227 
232227 
232227 



.31 
.32 
.33 
.34 

.35 



1 T ONE OD(eu,l),l 

T MODE D0(EU,iJ,C 

T INDA DD{8U,1),C 

T INC8 OD{eU,l),0 

T INDC OD(eU,l),C 



-CONSTANT OF ONE 

-SINGLE OR FULL NOT-CVERLAP MODE 
-SAME CHANNEL ALLOWED INDICATOR 
-THE SPLIT CHANNEL INDICATOR 
-UNIT FCUND — MULTI-UNIT CHECK 



QE000063 
QE000064 
QE000065 
QE000066 
QE000067 



23* 
2<» 
25* 
2€* 
21* 
2i* 



232227 
232227 
232227 
232227 
232227 
232227 



.36 

^37" 

.40 

.41 

.42 

.43 





O" 











T INDD 



DD(EU, 1),C 

0D"{BU,1),C" 

0D(BU,1J,C 

DD(BU,1),0 

DD(BU,l),C 

DD(BU,1),C 



rAX.PA%S__CPTl_MISED REELMTINGS OE000068 

-THE ADVANCE AND SAVE INDEX IND 0E000069' 

-MORE MULTI-UNITS AVAILABLE QE000070 

THE ODD-BALL SITUATION QE000071 

-TO PREVENT A LOOP IN SECTION ELEVEN QE000072 
-LOOP PREVENTER NUMBER 2 QE000073 



T 
T 
T 

T 
T 



INDE 
INDZ 
INDX 
LOOP 
LOOPl 



•FOR 



21* 

"3C» 

31* 

32* 

33* 
34* 



CCCC32 
00G032 
000031 
000021 
000022 
00C024 



.CC_+ 
.00+"" 
.00 + 
.00 + 
.00 + 
.00 + 



+ G_C_C_C_0_0_C_0 
+OCCCOOCC 
+OOCOOOCO 
+0CCCOO0O 
+00000000 
+OCCOO0CC 



BU,1C0 
BU,1CC 
BU,ICC 
BUtlCO 
BUrlOO 
BU,1C0 



»1P 
,10 

,10 

,10 

»io 

,10 



T C TV, X 
T "XI 

X2 

XI BR 

X3 

IXA 



SYN, 
"SYN, 
SYN, 
SYN, 
SYN, 
SYN, 



TXl 

$10 

$9 

$1 

$2 

$4 



-ENTRY _CONTROL _WORD I NDE X 

-TEMPORARY INDEX 

-THE SCAN CONTROL INDEX 

-FOR SUB-ROUTINE BRANCHING 

-COUNTER 

-I/O REG. LOCATOR INDEX 



QE000074 
"QE000075~ 
QE000076 
QE000077 
QE000078 
QE000079 



T 

T 
T 

T 



3f ♦ 
36* 
37* 
36* 
3S» 
40* 



000025- 
0CCC23^ 
000032, 
000030. 
000022. 
00C025. 



00 + 
C0+" 
00 + 
00 + 
00+ 
00 + 



+o_oj;jK)_o_c_o_ 

+CCCOCOCO 
+00000000 
+OCCO00CC 
+OOCOOCCO 
+CCCCCOCO 



BU, ICC 
BU.IOC 
BU,100 
BU,1GC 
BU,1C0 
BU.ICC 



,10 
,10 
,10 
.10 
,10 



T 

T 
T 
T 
T 
T 



IXB 
IXE 
IXF 
IXG 
IXH 
IXI 



_S_Y_N, 
SYN,' 
SYN, 
SYN, 
SYN, 
SYN, 



$5_ 

$3 

TXl 

$8 

TX3 

TIXB 



r_W_UJ-JJ ~JJNJ I STAT _TBL£SCAN J_N D E X QE 000080 

-PP REF. WORD LOCATOR INDEX QEOOOOai" 

-MACH CONF CHANGE — CHAN. SCAN IX QE000082 
-MACH CONF CHANGE — UNIT SCAN QE000083 

-MACH CONF CHANGE ~ PP REF TBL SCAN QE000084 
-MACH CONF CHANGE — I/O TBLE SCAN IX QE000085 



41* 
42* 
43* 
44* 
45* 



000026, 
000027" 
000032, 
000033, 
000030, 



00 + 
CC+" 
CC + 
00 + 
00 + 



ACCcooooo 
+ooccoocc 
+oocoooco 
+occccoco 

+00C00000 



BUjlCC 
BU,10G 
BU,100 
8U,1CC 
BU.ICC 



,10 
,10 
.10 

,10 



J IX J 
T IXD 
T IXK 
TIXL 
T IXM 



_SYN,_ 
SYN, 
SYN, 
SYN, 
SYN, 



$6 

$7 

TXl 

$11 

TIXG 



_-UN IT _T_B L£ AD DR • _ A ND UNIT COUNT 

-CHANNEL ADDRESS 

-LIKE CHANNEL SEARCH INDEX 
I/O TABLE SCAN INDEX 

-NOT OVERLAP SCANNER INDEX 



QEq000§6 
"QE000087" 
QE000088 
QE000089 
QE000090 



*wai 



C 



TIME CLOCK CCC54C^1 



PUNIC IIDIIMCP 



CARC in CE000092 



DIST. CF 3/CI 



3/01 



PAGE NUMBER 288 



LINE 



LCCATICN 



BINARY CUTPUT 



NAME 



STATEMENT 



LOCATION 



l» 
2» 

3* 

4» 



SYN CARDS FOR THE PP REFERENCE TABLE 



GE000092 
QE000093 
OE000094 

QE000095 



;» 23223C.0C C21IC6.00+ CCO 000002 232230 T PPURF XW, TPURFTj, TUPPC_,_$ -CONSIAPsT IX FOR JHE NOT OVERLAP TBL 



QE000096 



d» 232231. CC 232234.00+ CCO 000025 232231 T PPREF 

i» 232232.00 232234.00+ 000 000025 232231 T PPRUN 

£• 232233.00 CCC0CC.C0+ 000 COGOOO OOOOOC 

9* 232234,00 232307.00+ CCO COIIOO OOOOOC T PREFT 

1C» 232235. GC » 00CC25.CC 



XW,TPREFT,TPPC,$ 

XW,TPREFT,TPPC,TPPREF 

XW 

XW,TIORECfOf { .39J9 

DRZL8y,64iiCTPPC) 



-CONSTANT IX FOR THE PP REF T8L QE000097 

-THE NEXT JOB TO BE RUN POINTER QE000098 

-A BLANK WORD MUST PRECEED THE PP REF QE000099 

-INITIAL ENTRY WITHIN THE PP REF TBL QEOOOIOO 

-THE PP REFERENCE TABLE QEOOOIOl 



IL?_?32262_.G_0 
12* 000000.00+ 
13* 000000.34+ 
14» 000000,44+ 
15* O0CG00.45+ 
ie» 0CC000.46+ 



C_0CC25._Cq 
+OGCOOOCO 
+O00000G0 
+OOCOOOCO 
+CCC000CO 
+CCCCOOCO 



DR4LBy,64],(TPPC) 

SYN(BU, 18), 0.0 

SYNCBU,C8),0,28 

SYN{BU,l),0.36 

SyN{BU,l),0.37 

SYNlBy,l),0.38 



■ THE _P P _Re F E RE NC E_ T A B L E_ _S_E_C_C_ND_ _H_A L F 

■THE CROSS REFERENCE ADDRESS 

•I/O REQUEST COUNT 

■JOB PROCESSED BIT 

■JOB REJECTED BIT 

■JOB ASSIGNED BIT 



QE00plp2 
QE000103 
QE000104 
0E000105 
QE000106 
QE000107 



BU,22 
BU,IC 
BU,OI 
BU,Ol 
BUjOl 



.10 
,10 
,10 
tlO 

,10 



T 
T 
T 

T 
T 



CRREF 
UNCI 
JBPRO 
RJECT 

ASGNP 



12* 

1£* 
19» 
2C» 
21* 
22» 



pGCC0C_.4J+_ 
0CC00C.5G+ 
0CCG00.64+ 
000001,00+ 



AO_.ccpoogc 

+0CC00CCO 
+CCCOO0O0 
+00000000 



BU_,pl__,_10_ 
BU,14 ,10 
BU,14 ,10 
BU,60 ,06 



J__LP_PEN 
T LREFN 
T IGDCT 
T PNAME 



SYNCBU, l),0.3g 



-LAST ENTRY BIT 



QEpooipa 

QE000109 
QEOOOliO 
QEOOOlll 
QE000112 
QE000113 



SYN(BU, 12), 0.40 
SYN(8U,12),0.52 
SYN(BU,48,6I,1.0 



-IF GO TYPE PP - THE LARGEST REF NO. 
-THE NUMBER OF lODS PER PP 
-NAME OF PP 8 BCD-6 CHAR 



SYN CARDS FOR THE I/O REQUEST TABLE 



23* 
2A* 
25* 
26* 
27* 
2£« 



QEQQQii^ 

QE000115 
QE000116 
QE000117 
QE000118 
QEOOOlig 



232307. CO 000120. CO 
232427.00 CCC00C.40+ 

0CC00C.00+ +CCGOOOCC 



By, 01 
By. 01 

BU.Ol 
BU,04 
BU,03 
BU,07 
BU,01 



_._1P 
,10 

,10 

,10 

,IC 

J 10 



T ICREG 

J ASG.N 1_ 
J_ 14_N C B T 

T PRINT 

T TYPE 

T ABSUN 

T RLSYM 

T LAST 



CNOP 

DRZ(BU,e4),{TI0C) 
VF,C.32 
SYN(BU,1),0.00 



-I/C REQUEST TABLE 

■00 NOT REMOVE - MARKS LAST WORD 

■I/O ASSIGNED INDICATOR 



2S* 
3C* 
31* 
32* 
33* 
34* 



QQCOGGj. 
OCCCOC. 
OOCGOG. 
000000. 
OOOOOC. 
OOCOCC. 



02 + 

03 + 
07+ 
13 + 
22 + 



+ 0CJK}C_G_0G_ 
+0CC00000 
+0CC0O0C0 
+0CC00000 
+0CCC0CC0 
+0GCCGC00 



SYN<_8y, U.p.Cl 
SYNfBU, 1),0.02 
SyN{BU,4),0.03 
SYN(BU,3),0,07 
SYN{BU,7),0.11 
S_YN{BU, 1 WO. 18 



-_N_0_T__0_VERLAP BIT 

-I/O REC PRINTED TO OPERATOR BIT 

-TYPE OF REQUEST 

-UNIT NUMBER 

-THE SYMBOLIC CHANNEL 

-LAST WORD OF THE I/O 



QE00012P 
~QE00012l" 
QE000122 
QE000123 
QE000124 
QE000125 



NUMBER 
REQ TABLE 



_35_« 
36* 
37* 
3£» 
3S* 
4C» 



CCCCCC. 
OGCCOO. 
OOOCOO. 



23 + 
34 + 
56+ 



_+g_c_ClP_o_QP_Q. 
+ooggooco 

+00000000 



BUf 11__»IP_ 
BU,22 ,10 
BU, 22 ,10 



J_ J_CC_S_Q_ _ _S_Y_N C_B y ,_9NQ-1? 
T FREEL SYN(BU,18),0.28 
T ABSCH SYN(BU, 18),C.46 



■_I_QP_ _S_£_Q.M.E„NC E _Ny MB E R „ A S RECEIVED^ 

-THE FIRST REEL ADDRESS 

•THE ABSOLUTE CHANNEL ADDRESS 



Q£p00126 
QE000127 
QE000128 
QE000129 
QE000130 
QE000131 



SYN CARDS FOR THE FIRST REEL NUMBER TABLE 



42* 
43» 
44* 
45* 



QE00gi32 
0EC00133 
QE000134 
QE000135 
QE000136 



232427.40 
23243C.GC * 
OOCOCC. GC+ 



CCCCG0.30 GO 

CGCC62.CC 

+OCCOOGCC 



BU,60 ,10 



CNOP 
T FSTRE DRZ{8U,64),ITFRC) 
T REELN SYN(BU,48),C.C0 



-THE FIRST REEL TABLE 

-A REEL NUMBER FOR A GIVEN UNIT 



'Kfll 



TIME CLOCK OCCS^O-iil 



PLNID IIDIIHCP 



CARD ID Qe000138 



DIST. OF 3/Cl 



3/01 



PAGE NUMBER 289 



LINE 



LOCATIGN 



BINARY OUTPUT 



NAME 



STATEMENT 



LOCATION 



2» 

3* 



SYN CARDS FOR THE CHANNEL/UNIT STATUS TABLE 



QE000138 
QE000139 
QE000140 
QE00014i 



2I5CC2.CC+ 



+OCCOOOCO 



BU,1C0,10 



T CHSXW SYNtSXCFAN 



INDEX WORD FDR CHAN STAT TBL 



QE000142 



e* OCCCCC.CO+ 

1* O0OCCO.33+ 

E« 0GCCP0.3I+ 

?• 00GC0C.33+ 

1C» 0CCCCC.3^+ 



+CCCCOOCO 
+OCCOOOCO 
+OOCOOOCC 
+OOCOOOGO 
+CCCCOCCC 



BU,22 
BU,OI 
BU,01 
BU,OI 
BU»OI 



,10 
,10 
,10 
,10 
,10 



T UNTBA SYNIBU, ie),C.O 

T MULTI SYNtBU,l),0.27 

T CHAVL SYNieU, 1),0.25 

T FDISP SYN(BU,1),0.27 

T UNAVL SYNIBU, 1),0.28 



■THE UNIT TABLE ADDRESS 

-THE MULTI -CHANNEL BIT 

■THE CHANNEL AVAILABLE BIT 

•THE KINO OF REEL MOUNTED ON UNIT 

■THE UNIT AVAILABLE BIT 



QE000143 
QE000144 
QE000145 
QE000146 
QE000147 



1 1 * _ P 5 C 000.35 + 
12* O0CCCC.4C+ 
13» 00C00C.474- 
0QCC00.50+ 
0CC000.64+ 
00CCCG.73+ 



+_c_ccqoqcG 

+0CCCGGCC 
■^00CC00C0 
+0CCCO0CO 
+OCGOOOGC 
+OCGOOOGC 



BUjOi 

Bu,or 

BU,01 
8U,01 
BU,04 
BU.OA 



,10 

,10 
,10 
,10 
,10 
,10 



T UNASG 



SYNLBU,n,0.29 
"SYNIBU, 1),0.32" 
SYNtBU, I), 0.39 
SYN(BU, 1),0.40 
SYN(BU,4),0.52 
SY!M{BU,4),0.5g 



ll*ll_yNn_A§§iGNEp BIT 

■THE OWNERSHIP LEVEL INDICATOR 

-THE MULTI UNIT SELECT BIT 

■THE VERIFY BIT 

-TYPE OF UNIT REQUESTED 

-NUMBER OF UNITS TO A GIVEN CHANNEL 



QE000148 
"QE000149' 
QE000150 
QE000151 
QE000152 
QEG00153 



14» 



T 
T 

T 
T 

T 



CHGWN 

SEL 

VER 

EQUIP 

UNITK 



11* 

ie» 

2C* 
21* 

22» 



GpCG00.76+ 
CCC00C.77+ 



+o_cc_qqqqo 

+CGC0O0O0 



BUjOl ,10 
BU,01 ,10 



J__UNRES 
T CVRES 



SYN[8U, lj,0.62 
"SYNIBU, 1),0.63 



-'IQT OVERLAP RESERVEp_ BIT 
"-THE OVERLAP RESERVED BIT 



Q £000154 
"QE000155" 
QE000156 
OE000157 
0E000158 
QE000159 



SYN CARDS FOR THE VALID CHECK TABLE 



23» 

25* 
26* 
21* 

2fc» 



QE000160 
"0EC0G161" 
0E000162 
QE000163 
QE000164 
QE000165 



232512. CO 

000000.10+ 
000000. 1C+ 
00G0CG.1G+ 



OC0O0C.OO+ 
+OCCCOOOO 
+00G0O0C0 

+00CG00CC 



NULL 
NULL 

NULL 



T VALVF VFtC.O 

T TYBC SYN, 0.8 

T MACBC SYN, 0.8 

T REQBC SYN, 0.8 



-TO PREVENT A DOUBLE VALIDITY CHECK 
-THE TYPE CODE BIT COUNT 
-THE MACHINE CONF COUNT BIT COUNT 
■THE REQUEST COUNT BIT COUNT 



2i»_ogcccc.cq+ 

"3C» 00CG00.10 + 
31* 000000.20+ 



_+o_cccp_o.qq 

+CCCG00C0 
+00C0OOCG 



BU,1C__,10 J TYAD SYN_t_By,8],C.C 

BU,10 ,10 T MCAO SYNIBU,8),TTYAD+C.8 

BU,1C ,10 T RCAD SYNJ BU, 8 ) , THCAD+C.8 



■ADDRESS F TH E T Y P E C ODE 
■MACHINE CONF COUNT ADDRESS 
-THE REQUEST COUNT ADDRESS 



Q£0q0166 

"QE000167" 

QE000168 



'Nai 



TIME CLOCK GOCS^C^l 



PUMD 11D11^«CP 



CARD ID CE000170 



CIST. OF 3/Cl 



3/01 



PAGE NUMBER 290 



LINE 



LOCATION 



BINARY OUTPUT 



NAME 



STATEMENT 



LOCATION 



1* 
2* 

2 » 



REQUEST VALIDITY CHECK TABLE 



QE000I70 
0E000171 
QE000172 
QE000173 



5« 

t* 

IC* 



2 3 2 51 2_. AC 
232513. CO 
232513.10 
232513.20 
232513. 3C 
232513.40 



00CC00.30 CO 



CNOP 

{8)C0{BU,8), 1,1, C 



{8)CD{BU,8),2,0,G 



QEggpi74_ 

'QE000175 
QE000175 
QE000175 
QE000176 
QE000176 



001 T DISK 

001 

OCO 

002 

000 



-TYPE CODE, HACH CCNF, REQ CNT- DISK 



-SAME AS ABOVE - CONSOLE 



11? 
12* 
12» 
14* 
15» 
16« 



232513_._5_C_ 

232513.60 

232513.70 

232514.00 

232514.10 

232514.20 



_PC0_ 

003 

000 

000 

004 

OCO 



QiQgpl76 

GEOO0177 
QE000177 
QE000177 
QE0C0178 
QE00017B 



{8)CC(BU,8),3,0,C 



(8)D0<BU,8},4,0,C 



-SAKE AS ABOVE - CARD READER 



-SAME AS ABOVE - PUNCH 



n* 

lfc« 
1^» 
2C» 
21» 
22* 



2325 
2325 
2325 
2325 
2 325 
2325 



13_._3_C_ 

14.40 

14.50 

14.60 

14.70 

15.00 



opo_ 

005 
OCO 
000 
006 
000 



QEpppije 

QE000179 
GE000179 
QE000179 
QE000180 

QE000180 



(8)CD{BU,8),5,0,C 



{8)CD(BU,8),6,0,C 



-SAME AS ABOVE - PRINTER 



-SAME AS ABOVE - IQS 



23* 
24* 
25* 
26* 
27* 
2£* 



2325 
2325 
2325 
2325 
2325 
2325 
2325 



i5j,iP 
15.20 
15.30 
15.40 
15.50 
i5j!6C 
15.70 



pop 

007 
000 
000 
010 

999. 

000 



QEpppisp 

QE000181" 
QE000181 
QE000181 
QE000182 

QE0001B2 



18)C0(BU,8J,7,0,C 



(8)C0{BUt8», 10,0,0 



-SAME AS ABOVE - EXTRA 



-SAME AS ABOVE - TAPE 



2At 
3C« 
31* 
32* 
33* 
34* 



«Epppl82 
QE000183 
QE000184 
QE000185 
QE000186 
QE000187 



THE MULTI-UNIT COUNT TABLE ~ SORTED 



3b» 
36* 
37* 
3t* 
3S» 



232516. CC__ 
232517.00 
232520.00 
232521.00 
232522.00 * 



2 3_2_5_2_2_._0_C_+_ _C_C Q. .00000 _ C Cpp 
232520.00+ OCO 000002 OCCCOO 
232522. CC+ OCO COCOOO 000000 
23256'2.00- OCO GOOOOO 000000 
- C0CC20.CC 



J„ }'PCJA _ AW »_IC H c yc lQiP 

T YSCAN XW,TFCI-SC,2,0 

T FCHSC XW,TChCUC,O,0 

T RCHSC XWf-TCHCUC-32. 0,0,0 

T ChCUC DRZ{BU,32),{32) 



-CONSTANT TO THE BEGINNjNG C F CNT J B^L Q £0 188 

-LOCATOR FOR THE TWO SCANS QE000189 

-FORWARD SCAN QE000190 

-THE REVERSE SCAN QE000191 

-MULTI CHANNEL UNIT COUNT QE000192 



'Hai 



IIME CLOCK CCC5 


4041 PUNID IIDIIFCP 


CARD 


ID GE000194 CIST. CF 3/01 3/01 PAGE NUMBER 291 


- 


LINE LGCATICN 


BINARY 


CUTPUT 


NAi^^e 


STATEMENT LOCATION 




1« 
2* 

2* 

A* 










- 




QE000194 
QE000195 
QE000196 
QE000197 


- 


SYN CARDS FOR THE MULTI-UNIT COUNT TABLE 






5* 










- 


• 


GE000198 


i* 
1* 
t* 
c* 
1C» 


OCCCCC.CC+ 
00CCCC.24+ 
232542.00 
232543.00 * 
232543.01+ 


+0CCCC000 
+O0COOOC0 

OOCCOl.CO 
+0CCC00CO 


BL 
BL 

N 


f22 ,10 
,04 ,10 

,100,04 


T CHADC 
T CHCNT 
ABSSIO 
ALL 
ATCRDI 


SYNCBU, 18),C.G -MULTI-UNIT CHAN ADDRESS 

SYN{BU,4),0.20 -NUMBER OF UNITS ON CHANNEL 

{A«>DD{8U,48,6),BSS * 

DRZCN),1 

SYN, ALL. 1 -T CARD INDICATOR 


0E000199 
QE0a0200 
QFOOOOOl 
QF000002 
QF000003 


11* 


232543.02+ 


+OCCCOOCO 


N 


, ICC, 04 


ASTCRD 


SYN, ALL. 2 -SUPER T CARD INDICATOR 


QF000004 


12* 
12* 
14* 
15* 
16* 


232543.04+ 
232543.05+ 
232543.06+ 
232543.07+ 

232543.10+ 


+CCCCOOCG 
+OOCCCCCC 
+OCCOOCCO 
+CCC0OCCO 
+CCCCOOCC 


N 
N 

N 
N 
N 


,100,04 
,100,04 
,100,04 
, ICO, 04 
,100,04 


AHFWDI 
AOIGNI 
APCRDI 
ASETZI 
ACCRDl 


SYN, ALL. 4 -PARTIAL WCRD INDICATOR 

SYN, ALL. 5 -IGNORE CORRECTIONS ON CARD 

SYN, ALL. 6 -P CARD INDICATOR 

SYN, ALL. 7 -ZEROING INDICATOR 

SYN, ALL. 8 


QFQ00005 
QF000006 
QF000007 
QF000008 
QF000009 


17* 


232543.11+ 


+OCCCOOCC 


N 


,100,04 


AFPCl 


SYN, ALL. 9 -FORTRAN PROGRAM CARD INDICATOR 


QFOOOOIO 
OFOCOOll 
QF000012 
QF000013 
QF000014 
QF000015 


IS* 
2C» 
2]* 
22* 


232543.12+ 
232543.13+ 
232543.17+ 
232544. CO 
232544.40 


+O0C0OCCC 
+OCCCOOCC 
+OCCOOOCC 
0C00C0.01+ 
CCC0GC.03+ 


N 
N 
N 


,100,04 
, ICO, 04 
,100,04 


ARBCDI 

ARBCRi 

ANUBIT 

APTl 

APT3 


SYN, ALL. IC -BINARY DATA CARD INDICATOR 

SYN, ALL. 11 -RELOCATE RIGHTMOST 18 BITS AS COMMON 

SYN, ALL. 15 

VF,.l 

VF,.3 


23* 


232545.00 


CCC0CC-14+ 






ACPT12 


VF, .12 


QF000016 


2^« 

25* 

2e* 

21* 
2£* 


232545,40 
232546. CO 
232546.40 
232547.00 
232547.40 


CCC0CC.30+ 
0G00C2.5C+ 
CCC000.37+ 
CCC0C0.00+ 

CC0OCC.OO+ 






ACPT24 

APT168 

ABT31 

ARCCCT 

ACNT 


VF, .24 

VF,2.40 

VF,0.31 

VF,C 

VF,C -USED IN ASETZ TO SAVE NO. WDS. TO BE LOADED 


QF000017 
QF000018 
QF000019 
QF000020 . 
QF00002i 


2S« 


232547.71 








ALB 


{A*)DD(BU,12,6),LB* 


QF0C0022 1 


3C« 
31* 
32* 
3 3* 
3<» 


232550.05 
232550.65 
232551.00 ♦ 
231462.00+ 
232552.00 


OCGC00.07 
COCGOl.CC 
+00000000 
OOCCOl.CO 


BU 


,100,10 


AThSTA 

ARELOB 

AADD 

ALDBF 

ALCCTR 


(A*)0D(BU,48,6), ))))))))♦ 

DRZCBU,7),l 

DRZ(N),1 -USED IN ACCTAL ROUTINE 

SYN,Y8C6U 

DRZ(N),1 -BINARY LOCATION COUNTER 


QF000023 
QF000024 
QF000025 
OF000026 
QF000027 


35* 


232552.40+ 


+0CC0O000 


N 


,100,04 


ALDTC 


SYN,ALDCTR.32 -OCTAL LOCATION COUNTER 


QF000028 


36* 
37* 
38* 
3S» 
4C» 


232553.00 
232553.40 
232554.00 
232554.40 


C00CC0.4C 
000000.40 
C00C00.40 
000000.14 






ALGWWD DRZ{BU,32),1 -PROGRAM LOW BOUND 

AHGHWD DRZ{BU,32),1 -PROGRAM HIGH BOUND 

AHIWC 0RZCBU,32),1 -HIGHEST LOC.OCCUPIED BY PROGRAM 

ASECID 0RZ<BU,12),1 -SEQUENCE COUNTER 


QF000029 
QF000030 
QF000031 
QF000032 
QF000033 


41* 










— «»»«««* RESUME LOAD PSEUOO OP. »»«»««»«»»«»♦•««»»»«»#»»»»«•♦«»««««« 


QF000034 


42* 
43* 
44* 
45* 
46* 


232554.54 * 

232555.00 
232555.06 » 


C0CCC0.47 




04 


SLC,$ 
CNOP 
YRLTT DD{eU,6),(8)C4 

DRZ<BU,39),{1) 


QF000035 
QF000036 
QF000037 
QF000038 
QF000039 


47* 












EXT(0,18) 


QF000040 


4€* 
4S» 
5C* 
51* 


232555.55 
232556.00 » 
232560.00 
232560.40 


CC0CC2.C0 
231163.02 10 
231141.10 CO 




0465340 


YRESLD 


B,YRESLC 
DR{fiU),(2) 
LX,$1,YXWRLD 
B,YMPFCh 


QF000040 
QF000041 
QF000042 
QF000043 







'Kfll 



c 



TIME CLOCK C0O5^C41 



PUNID IIDIIMCP 



CARD ID GGOOOOOl 



DIST. OF 3/Cl 



3/01 



PAGE NUMBER 292 



LJNE 



LOCATIGN BINARY CUTPUT NAME STATEMENT LOCATION 



2* 

2* 
A* 



»*»*♦«»«** THE DEBUGGER PACKAGE »*••«»««»•*« 



QGOOOOOl 
06000002 
QG000003 
QG000004 



_ ^ ? _ ? 3 2 5 6_1_._C C _♦_ 

!• 00CCGC.54+ 

£» 00C0OO.55+ 

S« 0CC0G0.56+ 

1C« 0CCGC0.57+ 



SLC|^$ 

-SYN LIST 
SYN,0.44 
SYN, 0.45 
SYN, 0.46 
_SYN».Q.4 7 



Q GO pop 05 
QG000006 
QG000007 
QGOOOOOa 
QG000009 
OGOOOOIO 



+CCGOO0CG 
+OCCOOCCO 
+OGC000CC 
+OCCC00C0 



NULL 
NULL 
NULL 
NULL 



G CELK 
P CLK 
P DUMK 
PHCK 



-» DELETE ^ 
-» CLEAR » 

-DUMP KEY 

-HOLD KEY 



lL*_0CCCCC_._6_C_+_ 
12* 0CC00G.20+ 
13* CCCCG2.2C+ 
14» 00CCC2. PU- 
IS* OCCC02.13+ 
le* 00GOO2.I4+ 



AO_CCCGgCG 
+0CCOO0C0 
+OOGOOOCO 
+OOCOOOCO 
+0CC0OOC0 
+0CC000CC 



NULL 
NULL 
NULL 
NULL 
NULL 
NULL 



_P__SJA _ 
PSICK 

P CKLS 

P EBKS 

P GAS 

P SSRS 



KEY 



SYNtQ.48 ^^START 

SYN, 0,16 -SET IC KEY 

SYN, 2. 16 -DISPLAY CN KEY LIGHTS SWITCH 

SYN, 2. 17 -ENTER FROM BINARY KEYS SWITCH 

SYN, 2. 11 -OCTAL ADDRESS SWITCH 

SYNt2.12 -SyPPRESS_SPEC. _RE_G_I_S_TEAS_ AHIIQH 



QGOpppll 
QG000012 
QG000013 
QG000014 
QG000015 
aG0000I6 



11*- Pp C 2_._I_5_+_ 
1£» 0CCCC2.16+ 
IS* 0GCC02.17+ 
2C» 00COO2.2C+ 
21» 00GCC2.21+ 
22* 00CCC2.22+ 



_+P_PG0.gpcc 

+OCC0O0CO 
+00COOOC0 
+OCCOOOCC 
+O000O0C0 
+0CC000C0 



NGLL 
NULL 
NULL 
NULL 
NULL 
NULL 



P FP_S_ SyNi_2.13 _-F P _FGRMA I _ SWITCH QGppppl7_ 

P OH SS SYN, 2.14 OCTAL HEX WITH SUPPRESSION OF MNEMCMCS SWITC QGOOOOlb 

P XWS SYN, 2. 15 -XW FORHT SWITCH Q6000019 

PHGLDS SYN, 2. 16 -HOLD LITE QG000020 

PINCS SYN, 2. 17 -INCOMPATIBLE COMBINATION LITE QG000021 

PIASS SYN, 2. 18 -INCORRECT ADORES S_SETTING_LJ_T_E 06000022 



23* 

2A* 232561. CC 
25* 232561. 4G 
26« 232562. CO 
27* 232562.40 
2£» 232563. CC 



_-_ D E eUGG E R _ C S_ FIX LP FOR _C_N_S_L_ 
B,DPCP 
,OR0S 
,PCDEF2 
,PCW1 
SIC, S PRIMR 



QG000023 
~QG000024 
QG000025 
QG000026 
CG000027 
QG00002B 



CCCC40.1C 
OOCGOl.Cl 
G0CG12.C0 
232645.00 
215571. CC 



CO 
80 
80 

ao 

80 



p ceo 



-READ CNSL 

-RESULTS IN A FAKE READ IN ACTUAT 



2i»_232563^4C 
3C« 232564.00 
31* 232564.40 
3i* 232565. GC 
32* 232565. 4C 



_2J_5_5_70_._G 4 CO 
CGC116.C0 80 
232565.00 CO 
C0CC4C.10 CC 
GGCC41.C0 80 



8D,__S PRIME 

, S CCT 
BE, $ +.32 
B,DMCP 
,DRET 



QGp0002? 
"QG000030" 
QG000031 
QG000032 
OG000033 



- ENABLE AFTER PRIMIMG 



*HHI 



TIME CLCCK 00C5AC41 PUNID IIDIIMCP CARD ID GG000035 CIST. OF 3/CI 3/01 PAGE NUMBER 293 

UNE~~^LCCATrcXIIIIIIIIIIir6INARY"CUTP^^ 

J, i. . OG000035 

2* - -DEBUGGER AND $HOLD QG0G0036 

2, . _ ■ _ ^ QG000037 

<» CNOP QG0000 38 

_^*_2 32 566.0C p4OCOOOGOC0000_0 P CB TT DD (^BU, 45 j , j 8 J C4C C]^^^^ 95pOOO_39 

i* EXT{0,18) " QG000040 

■?* 232566.55 0465366 6, P CB BEG QG000040 

i* 232567. CO » 0C0C02.C0 DRZ(BU),{2) QG000041 

c« CNOP QG000042 

ic» 2 32571.00 ^c_cccci.cq .PJ-JA* D«z<.f:^l»lli Q??9??53 

U»_2 32572.CC ^CCCCC]^«_CC Jl!-T>A D^^ll^llllj 95000044 

12« " " ~ -" -DISPLAY PPS INTRUCTION COUNTER CG0G0045 

13* 232573. CC 231161.02 10 PC8BEG LX,$1,YXV<CB QG000046 

14* 232573.40 231141.10 00 B,YMPFCH QG000047 

15» - GG000048 

!£• - -l^ISPLAYIC ROUTINE 9G0C0049 

l/» 232574. CC " A0_CC22. CO 80 022364.24 50 ^P 04 L (^Dt , 18, 3 ) , $2 , 104 J-__P.^I_V!0«^D ADDRESS IN JL,~ OFFSET 4_0_ 95900050 

1£» 232575.00 CCCC22.22 80 001061. C6 70 LF ( BU, 1) , $2. 18,-30 -HALF WORD POSITION " QG000051 

19* 232576. CC 50CCC0.CC 80 404062. C6 70 LF I ( BU, 4 ) , { 2 ) 101C,-28 -DECIMAL POINT QG000052 

2C« 232577. GO 232631.40 80 040060.12 FO SF ( BU, 32 ), PCNCUT+1 .32,-32 OG000053 

21* 232600. CO 232613. CO 80 232630. C2 AO T I , 1 , PNSL IN, PONOUT Q6000054 

22* 232601 .CO _c_9_9_Ci'^_9.'_l9.„99 ^B,Di»^cp __r_^J^?}-J^y_JJ'AJA ___^ 99999955 

23 » 2 3260 1.4C A^ C_C_C_1 .4 1_ 8 i_AAA __A99999§^ 

24* 232602. CO Cd"CC12.CC 80 , P C~DEF2 ~ ' " " QG000057 

25* 232602.40 232650.00 80 ,PCW5 - QG000058 

26* 232603. CO COCGCO.IC OC B, G. ($12) - LINK OUT QG000059 

2?» - GG000060 

2£* 2 32603^40 A09_cp_9.-_3 9.A9. 9.^1°^ 999999^1 

2s* 232604. CO ACA99A«A9.A9 AA^A 19^ _999999§? 

3C» 232604. 4C C00C00.3C CC " NCP " QG000062 

31* 215012. 4C-*' 400C000GC B ,31 ,01 PINVAD SYN, SHARK QG000063 

32* 2326C5.GC OG0016.4C+ 000 OOOOIO 232605 P Kl XW, 14.32, 8, PK 1 -VF OFFSET = 28 OG000064 

33* 2326C6.0C » CCC0C2.00+ 000 000002 232606 P K2 XW,2.0,2,PK2 QG000065 

34^* CNOP 999999^6 

35* 2 3260 7. CO AL9.52 11525 14001723 0400 P SET IA_A9.'_^Ut_64, 8), [8) U 9999999Z 

36* 23261C.CC 17646 31725040020241400 P DISKL DD{ BU , 64 , 8 ) , ( 8 ) 1764631725C40020241400 -DIS KL " QG000063 

31* 232611. CO 1764652165140013640400 P ENTBK DD( BU, 64, 8 ),{ 8 ) 1764652165140013640400, -ENT BK QG000069 

38* 232612.00 1764632524251300CCCCCO P DUMP 0D( EU ,64,8 ) , C 8 ) 1764632524251300CCC0O0 -DUMP QG000070 

IS* - -CNSL TEMPORARY BUFFERS QG000071 

4C^* 9fiOP»__9 999999/2 

ll_*_2326i3.oo * A9PAiA«A9. A1SLJA__ARZ_CBu,64),c 13) -ANAL_JAPAlA9FPi^_ 999999Z3 

42* 23263C.0C C00C15.CC PCNOUT CRZ ( BU, 64 ) , ( 13 ) -CNSL OUTPUT BUFFER QG000074 

42* - QG000075 

44* - -CNSL CONTROL WORDS QG000076 

45* 232645.00 232613.00+ 000 000015 232645 P CWl CW, PNSLIN, 13, $ -CNSL INPUT CW QG000077 

46* 2 32646. 00 A3A6.3A«A9t_999_99991A 23A6A6 9^lP9NCUT,13j$ _-CASL A9IPyj_9w .A^^^^^J^ 

ill_?3264 7_.cc _2A2_6A9.'-99t_999_99999A23A6AL___P__CAi__ Aw»_pongut,7,$ 9909997?" 

46* 23265C.00 23263C.00+ CCO CGC003 232650 P CW5 " CW, PGNGLT , 3 , $ QGOOOOSO 

45* 232651.00 232572.00+ CCO COOOOl OCCOOO PCW6 CW,PLTWA,1 - QGOOOOSl 

5C» 232652.00 232571.00+ CCO COCOOl OCCOOO PCW7 CW,PLTRA,1 - QG000082 



*Nai 



C 



TIME CLOCK C0C5 


4041 PUNID 


IIOIIMCP 




CARD 


ID QG000084 DIST. OF 3/Cl 3/01 PAGE NUWBER 294 


- 


lint LOCATION 


BINARY OUTPUT 




NAME 


STATEMENT LOCATION 




1» 
2* 

3* 
4* 


















QG000084 
QG000085 
QG000086 
QG000087 


- 


-CNSL I/O TABLES OF EXITS 




CNCP 


5* 


232653. CG « 


0O0CC2.CC 










P CB EX 


0RZ{BU,64),2 


QG000088 


e* 
1* 
i* 

c* 

IC* 


232655. CO 
232655.40 
232656.00 
232656.40 
232657.00 


232661.10 
C0CC00.30 
232660.10 
000C00.30 
232561.10 


00 
00 
CO 
00 

CO 










B.PER 

NOP 

B,P ENDl 

NOP -END EXCEPTION-ERASE FOR RD. 

B, P DBC 


0G000089 
QG000089 
QG000090 
QG000090 
0G00009i 


11* 


232657.40 


C0GCC0.30 


00 










NOP 


GG000091 


12* 
13* 
14* 
15* 


232660. CO 
232660. 4C 

232661.00 
232662.00 


C00040.1C 
CC0041.CC 

232670. CO 
232654.11 


GO 
80 

80 
80 


040000. 
232664. 


.20 
.34 


50 

CC 


PENDl 
PER 


B,DNCP 
,DRET 

-CNSL ERROR FIXLP WITHIN DEBUGGER 
L(BU,32),PUK1 - 
BZB,PCBEX-H.9,PERl 


00000092 
QG000093 
QG000094 
QG00D095 
QG000096 


17* 


232663. GO 


232670.40 


80 


040000, 


.20 


50 




L(BU, 32), PEPGKl 


0G000096 


It* 
19* 
2C» 
21* 
22* 


232664.00 
232665.00 
232665.40 
232666. CO 
232666.40 


232671.10 
CGCC40.10 
C0CC43.4C 
232671. CO 

00CC06.C0 


80 
00 
80 
80 
80 


040000, 


.20 


DO 


PERI 


ST(BU,32),PERMSG+.8 
B.Df'CP 

,DCCMM - 

fPERMSG 

,6.0 


QG000097 
QG000098 
QG000099 
QGOOOIOO 
QGOOOlOl 


22* 


232667.00 


C0CC40.10 


CO 










B,DfCP 


QG000102 


24* 
25* 
26* 
27* 
2t* 


232667. 4C 
232670. CC « 
232670.40 

232671. CC 


C0CC41.CC 


80 








PUKl 
PEPGKl 

PERMSG 


,DRET 
(IQS*)DD{BUJ, UK * - 
{IQS*)CC(BU},EPGK» 
CNOP 
( IQS»)CC{BU), XXXX ON CNSL-LAST FUNCTION PROBABLY » 


QG000103 
QG000104 
QG000105 
QG000106 

QG000107 


2S» 


232675. 5C 














(IQS«)DD(BU), INCORRECT * 


QG000108 


3C» 
31* 
32* 

33* 
34* 


232677.00 
232677.55 




040000000COCOCO 
0465604 


P CLO TT 


-«»4««««»«»»«««»«»H0LC SUBROUTINE****************************** 
CNOP 

DD(EU,45),18)040 GGC OOC COO COO - $HOLD TENTACLE TABLE 
EXTtO,18) 
Bt P hCLC 


QG000109 
QGOOOllO 
QCOOOlll 
QG000112 
QG000112 


35* 


23270C.00 » 


0GCCG2.C0 












DRZ(BU),(2) 


QG000113 


36* 
37* 
36* 
35* 
4C* 


232702. GO 
232703.00 
232704.00 
232704.40 
232705. 4C 


232677. C4 
232700. CO 
232706.34 
234663.40 
232713. 5C 


80 
80 
CO 
80 
CO 


232706. 
040000. 

232711. 


34 
07 

74 


00 
70 

02 


P FOLD 


BZB,P OLD TT+.04,P HOLOl -IS USER HOP (=0) 

CT0011{BU,32),POLDTT+1.C 

BZRZ,P HOLDl -NO-THEN PRIME 

BB,P HOLD B,P HCLD2 -IS HOLD BIT ON 

8,P H0LD3 -NG-OUT 


QG000114 
0G000115 
QG000116 
QG000117 
QG000118 


41* 


232706.00 


234663.40 


80 


001000. 


36 


FO 


P HCLDl 


CM1111(BU,1),P HOLD B -TURN HOLD BIT ON 


QG000119 


42* 
42* 
44* 
45* 
46* 


232707.00 
232710.00 
232710.40 
232711.00 
232711.40 


232632.20 
215361.04 
232711.71 
232574.10 
215571.00 


80 
30 
01 

CO 
80 


001000, 


36 


FO 


PHCLD2 


CM1111{BU,1),P0N0UT+PH0LDS 

LV,$2,SICBU 

LVI,$12,$+1.C 

B,PC4 

SICSPRIMR 


QG000120 
QG000121 
QG000122 
QG000123 
QG000124 


47* 


232712.00 


215570. C4 


00 










8D,SPRIME 


QG000125 


4£« 
4S* 
5C» 
51* 


232712.40 
232713.00 
232713.40 
232714.00 


CjCC101.4C 
232713.40 
CCCC40.10 
C0CO41.C0 


80 
00 
CO 
80 








PHCL03 


,DHCLD 
BE, $ + .32 
B.Df'CP 
,DRET 


QG000126 
QG000127 
QG000128 
QG000129 







'WSI 



C 



TIME CLOCK C005AC41 



LINE 



LOCATICN 



PUNID llDll^<CP 



BINARY CUTPUT 



CARD ID CHOOOOOl 



NAME 



OIST. OF 3/Cl 



STATEMENT 



3/01 



PAGE NUMBER 295 



LOCATION 



( ^ 



1» 










— 


•••«««•«»»«••«««««••«««««••*«««««••«••**«••«*»««««««««*««•«•»««••••••» 


QHOOOOOl 


2* 










- 




»»««««»««* THE SYSTEM 


COMMAND PACKAGE •**•••••••»• 


QH000002 


3* 










- 


«««•«««•«•««»««•«•«••••««•««•»»•»«•••»•••»«*«««•«••«««*««•««•«*««••»•« 


QH000003 


4* 


232714.40 » 












SLC»$ 




QH000004 


5* 










- 




»«**«CCMMAND PACKAGE 


TENTACLE***** 


QH000005 


£* 


232714. 4C 


000000.30 


00 








CNOP 




QH000006 


1* 


232715.00 






05 


J 


TENT 


DDCBU,4),5 


' -NUMBER OF PARAMETERS 


QH000007 


£» 


232715.04 













DOCBUf 15,0 


-USER BIT - .4 


QH000008 


S* 


232715.05 













OD{BU,l),0 


-ENTRY MODE NOT SAME .5 


QH000009 


IC« 


232715.06 













DD(BU,1),0 


-ENTRY MODE NOT DISABLED .6 


QHOOOOIO 


11» 


232715.07 













DD{8U,1),C 


-ENTRY MODE IS ENABLED 


QHOOOOll 


12* 


232715.10 













CC{EU,1),0 


-NOT USED .8 


GH000012 


13* 


232715.11 













DD{BU, 1),C 


-BUSY BIT - .9 


QH000013 


14« 


232715.12 













DD(BU,1),0 


-NOT USED .10 


QH000014 


15» 


232715.13 






2 






D0(BU,2),(2)10 


-FORM EFFECTIVE, NO RESTORE-SOURCE 


QH000015 


U* 
















-CODE .11 


QH000016 


17* 


232715.15 






2 






DD(BU,2),{2)1C 


-FORM EFFECTIVE, NO RESTORE-LOCATIGN .13 


QH000017 


ie» 


232715.17 






3 






0D(BU»2),{2)11 


-FORM EFFECRESTORE-NLMBER .15 


QH000018 


1S« 


232715.21 • 


000000.34 










DRZ{8U,2),<14) 


-14 VOID FIELDS .17 THRU .44 


QH00G019 


2C« 














EXTI0,18) 




QH000020 


21* 


232715.55 






0465644 






B.YXCOMD 




QH000020 


22* 


232716.00 


CCC0CC.00+ 










VF,C 


-LAST TENTACLE TABLE USED 


QH000021 


23» 


232716.40 


CCCOCC.OO+ 






J 


RETA 


VF,C 


-RETURN ADDRESS 


QH000022 


2A» 


232717.00 


GCOOCC.OO+ 










\/F,C 


-FkA OF PSEUDO OP LINKAGE 


QH000023 


25* 


232717.40 


COOCOQ.OO 


80 








fO 


-PSEUDO OP 


QH000024 


26* 


232720.00 


COCCCO.OO 


80 




J 


CODE 


tO 


-SOURCE CODE 


QH000025 


2?« 


232720.40 


COCCOO.CO 


80 




J 


FRST 


fO 


-LOCATION OF 1ST CHAR OF FIELD 


QH000026 


2f» 


232721.00 


COCCOO.CC 


80 




J 


SIZE 


.0 


-MESSAGE LENGTH 


QH000027 


2S» 


232721.40 


000000.00 


80 








.0 


-CONTENTS OF ERRCR SLOT 


QH00002a 


3C* 


232722.00 


231160.02 


10 




YXCOMD 


LX,1,Y Xh CMC 




QH000029 


31* 


232722.40 


231141.10 


CO 








B,Y MP FCH 




QH000030 


32» 










- 








QH000031 


33» 










- 




•♦•••OPERATOR CONSOLE 


FIXUP***** 


QH000032 


3<* 










- 








QH000033 


3.5 » 


232723.00 * 


00CCC2.CC 






JCFIX 


DRZ(N),{2) 




QH000034 


36* 


232725.00 


000040.10 


00 








8,$MCP 




QH000035 


37* 


232725.40 


000041.00 


80 








,$RET 




OH000035 


3€» 


232726.00 


232731.10 


00 








B.JCNCS 




QH000036 


3S# 


232726.40 


COCC00.3C 


CO 








NOP, 




QH000036 


AC* 


232727.00 


232731.10 


00 








B,JCNCS 




0H000037 


Al» 


232727.40 


000C00.30 


00 








NOP -CHANNEL SIGNAL 


QH000037 


A2* 


232730.00 


232733.10 


00 








B,J CNCS+2.0 




QH000038 


43* 


232730.40 


000000.30 


00 








NOP 




QH000038 


4.4* 


232731.00 


215C02.(* 


10 




J 


CNCS 


LX,l,SX CHAN 




QH000039 


45* 


232731.40 


215C06.02 


80 








V+,1,SYG0CH 




QH000040 


46* 


232732,00 


215CC6.C2 


80 








V+,1,SYC0CH 




QH000041 J 


47* 


232732.40 


C00C00.C2 


31 








LV,1,C.0($1) 


-GET UNIT STATUS ADDRESS 


QH000042 


4£* 


232733.00 


C0CCC0.57 


81 


001000.00 FO 






CMOOOCS CNS SG{$1) 




QH000043 


49* 


232734.00 


217G00.C3 


01 








LVI,JINXK,P MCP BF+3.0 


GH000044 


5C* 


232734.40 


232745.04 


10 








LX,JMKNT,J LMS6 




QH000045 


51* 


232735.00 


774000. CO 


80 


410000. C6 7C 






LFI(BU,8),{2>H111HC 


-END CHARACTER 


QH000046 


52* 


232736.00 


000000.10 


81 


110000.23 10 


J 


CLGK 


KF(V+I) {BU,8),.8(JINXK) 


QH000047 


53* 


232737.00 


232740.36 


C2 








8AE,J ENCC 




aH000048 


54* 


232737.40 


232736.05 


48 








C8+,JMKNT,J CLOK 




CH000049 


55* 


232740.00 * 


232743.05 


30 




J 


ENDC 


SV,J MKNT,J LINK 




QH000050 


5t* 


232740.40 


215571.00 


80 








SICS PRIM R 




QH000051 



'Nai 



C 



TIME CLOCK CC054C^1 



PUNID IIDIINCP 



CARD IC CH000052 



DIST. OF 3/01 



3/01 



PAGE NUMBER 296 



LINE 



LOG AT I CN 



BINARY CUTPUT 



NAME 



STATEMENT 



LOCATION 



232741 



1» 232741. OG 
2» 232741.40 
2« 232742.00 
A* 232742.40 



215570.04 00 
CCC120.C0 80 

CCCCC3 

217000.00+ 



BD,S PRIME 
,S COMD 
CF,3.G 
VF,P 



-SOURCE IS CONSOLE 



MCP BF+3.0 



OH000052 
QH000053 
QH000054 

QH000055 



232743. CO CCCOCC J LINK CF,0 



-FILLED IN ABOVE 



QH000056 



t* 232743.40 

1* 232744.00 

£* 232744.40 

c>» 232745.00 

IC* 0CCC21.C0+ 



00CC00.30 00 
000040.00 CO 
C0004l.CC 80 
O0000C.OC+, 000 
+0CCC0CCO 



000120 OCCOOO 
BU,100,10 



J LMSG 

J INXK 



NOP 

8E,C MCP 
,D RET 
XW, Of 80.0 
SYN,$1 



QH000057 
QH000058 
QH000059 
QH000060 
QH000061 



.ll»_QC0022_.00+ +OCCOOOGC BUj_lGC_,_lJ]_ J MKNT SYN,$2 



QH000062 



«KflI 





TIME CLOCK CCC5^C41 PUNID 


IIDIIHCP 


:ard 


ID 


GJOOOOOl DIST. OF 3/01 


3/01 PAGE NUMBER 297 


-'■ • 




LINE LOCATION 


BINARY OUTPUT 






NAME 


STATEMENT 


LOCATION 






1* 

3 * 
A* 












— 


THE SPECIAL ASSIGNMENT PACKAGE 
»«•»»»»»«»«»«««»«»»»»««»»««»»»»»«#*»»«»»»»«*«»•»«•»»•♦»*»«*♦«»«««* 


OJOOOOOl 
QJ000002 
QJ000003 
QJ000004 




5* 


232746. CO » 
















SLC,$ 




QJ000005 




I* 

1C» 


232746.00 


233077.40 


80 






Z 


ASN 


01 


CALLING LINKAGE 
SICZ COM 90 

SICZ COM 99 


B,Z ASN 01 VF,IOD NUMBER 


QJ000006 
QJ000007 
QJ000008 
QJ000009 
OJOOOOIO 




11* 


232746.40 


233067.50 


00 












B,Z CG^' 01 




QJOOOOll 




12* 
12* 
14* 
15» 
16* 


232747.00 
232750.00 
232751.00 
232752.00 
232752.40 


000000.31 
000000.34 
C0CC00.76 
232753.74 
215001.02 


82 
81 
81 
C2 

80 


233020.74 
233020.74 

002000.07 

001000.36 


02 
02 
70 

FG 








BBtS CH AVL($2),Z ASN 50 
BB,S UN AVLC$l),Z ASN 5C 
CT0Cll{BU,2),G.62{$n 
8RZ,Z ASN 04 
CKllUtS CNF CG 


-BRANCH IF CHAN NOT AVAILABLE 
-BRANCH IF UNIT NOT AVAILABLE 

-BRANCH IF NOT RESERVED 

-SET CONFIGURATION CHANGE BIT 


QJ000012 
QJ000013 
QJ000014 
QJ000015 
QJ000016 




17* 


232753.40 


000000.35 


81 


233020.74 


04 


Z 


ASN04 


BZBZ,S UNASG($l),Z ASN50 


-BR. IF ASSIGNED TO REASSIGN 


QJ000017 




1?» 
2C* 
21» 
22» 


232754.40 
232755.40 
232756.00 
232756.40 


000000.40 
CCCC00.C5 
000022.02 
0CCCG0.51 


81 
71 

90 

81 


001000.36 
010000.00 


FO 
FO 








CMlUlfS 0WNER($1) 

SR,2fS UN A AUl) 

KV,1,$2 

CM0C00{BU,8),S VER+.1{$1) 


-MAKE ASSIGNED IF UNASSIGNED 

-SET OV«NER TO MCP 

-PUT UNIT AREA ADDR. IN UST ENTRY 

-CLEAR TABLES 


QJ000018 
QJ000019 
QJ000020 
QJ000021 
QJ000022 




23* 


232757.40 


000000.71 


81 


007000.00 


FO 








CM0C0016U,7»,S RD($n 




QJ000023 




24* 
25* 

2e« 

27* 
2fc» 


232760.40 
232761.00 » 
232761.40 
232762.00 
232762.40 


232762.72 
233105.02 
233106.04 
232762.10 
CGCC00.63 


CO 
10 
10 
CO 
81 


001000.36 


FO 


Z 

z 

z 


COM 

COH 

ASN 


95 

90 

06 


BZXE,Z ASN 06 

LX,1,Z COM 98 

LX,2,Z COM 98+1.0 

B,$ 

CM1111,S MOUNT($n 


-IF UNEQUALrBR. FOR MULTI CHAN 
-RESTORE INDICES 

-RETURN SLOT 


QJ000024 
QJ000025 
QJ000026 
QJ000027 
QJ000028 




29* 


232763.40 


000000.65 


81 


001000.36 


FO 








CM1111(BU,1),S I MNT{$1) 




QJ000029 




3C« 
31* 
32» 

33» 
34« 


232764.40 
232765.40 
232766.40 
232767.40 
232770.00 


GOCC00.50 
000000.33 
000000.32 
00CC00.G3 
000022.05 


81 
81 
81 
09 
70 


001000.36 
001000.00 
001000.36 


FO 
FO 
FO 








CNllll.S VER{$1) 
CMOCOCS CISP0($1) 
CM1111,STATI($1) 
LVN If 1,0.0 
SR,2,$2 


-SET UNIT AREA ADDR INTO $2 VF 


QJ000030 
QJ000031 
QJ000032 
QJ000033 
QJ000034 




35* 


232770.40 


000007.43 


32 












SV,1,S FILE K{$2) 


-SET FILE COUNT TO -0 


GJ000035 


20 
19 
18 


36* 
37* 
3£* 
3S« 
4C* 


232771.00 
232771.40 
232772.40 
232773.40 
232774.40 * 


000012.22 
000012.02 
0^0000.01 
233013.07 
. 000000.57 


CO 
80 
82 
80 
82 


002000.36 
022000.20 
020000.24 
003000.20 


FO 

30 
00 
30 


ZASN52 




Z,$SB 

CMllll(BU,2),$SB+.2 
LCVIBU,18),.1{$2) 
STiDU,l6,8I,Z ASN 12-. 1 
LCV(BU,3),S UNIT N($2) 


-SET ZONE BITS FOR IQS STORE 
-GET CHANNEL NO. 

-STORE CHAN NUM IN MESSAGE 
-GET UNIT NUMBER 


QJ000036 
QJ000037 
QJ000038 
QJ000039 
0J000040 


17 


Al* 


232775.40 


233014.17 


80 


010000.24 


DO 








ST(DU,8»8),Z ASN 13-. 1 


-STORE UNIT NUMBER IN MESSAGE 


QJ000041 


16 

15 
M 
13 
12 


42* 
A2* 
A4* 
A5* 

4f » 


232776.40 
232777.40 

233000.40 
233001.40 
233002.00 


000001.34 
000001.40 
215001.10 
233017.74 
233016.04 


80 
82 
80 
C2 

30 


032000.20 
032000.20 
002000.07 


50 
DC 
70 








L{BU,26),$TC 
ST,S RMTC($2) 
CTOOlltSYSMOD 
BRZ.Z ASN 09 
LV,2,Z ASN 15 


-TEST MODE 
-LOAD OFFLINE 


QJ000042 
ej000043 
QJ000044 
QJ000045 
QJ000046 


11 


47* 


233002.40 


233007.05 


30 






Z 


ASN 


07 


SV,2,Z ASN 11 




QJ000047 


10 
9 
8 

7 
« 


4€» 


233003.00 


000C40. 10 


CO 












B,D MCP 




QJ0C0048 


5 




4 
3 
2 

1 






■ 





















■Nai 



TIME CLOCK 00C5ACAI 
"LlNE"~"LGCATrON 



PUNID llDliMCP CARD ID CJC00050 CIST. OF 3/Cl 
BfNARY"CUTPCT NA~PE STATEMENT 



3/01 



PAGE NUMBER 298 
L C A t1c¥ ~2"3Y0 d 3 



1« 233003.40 

2« 233004.00 

2» 233004.40 

4» 2330C5.CC 



000043.40 80 
233006.00+ 
CC0GC7 

232761. IC CO 



,D COMM 
VF,Z ASN 10 
OF t 7.0 

B,Z CCN 95 



QJ000050 
QJ000Q51 
QJ000052 

QJ000053 



2 3 3005 
233CC6 
233007 
233013 
233014 
233015 



•50 
.CO 
.00 
.10 
.20 
.40 



C0GC00.30 CO 



CNOP 

( IQS»)DC(BU), 
(1QS»)DD(8UJ, 
{IQS«)DC(BU), 
CIQS*)DD(BU), 
CNOP 



QJ00Cp54 
QJ000055 
QJ000056 
QJ000057 
QJ000058 
QJ000059 



1* 

e» 

10* 



Z ASN 10 

Z ASN 11 

Z ASN 12 

Z ASN 13 



mgunt • 
line hode 

, UNIT » 



MCP TAPE ON CHANNEL • 



_C_CCC00._30_C0 

"c~o~ccdd73o"co 



11? 

12* 
12» 
14* 
15* 
16* 



2330_16 
233C16 
233017 
233017 
233020 
233020 



.po_ 

.40 
.00 
.40 
.00 
.40 



_Z_ AS_N _l_5_{_tQS*)DDCByjj FF » 

CNOP 
Z ASN 16 ( IQS*)DDCBU), ON* 
Z ASN 09 LV,2,Z ASN 16 

B,Z ASN 07 
_Z_A_S_N 5 0___IIl8i.|3_iZ A SjM gjL 



Qjogopsp 

'QJ000061" 
QJ000062 
QJ000063 
QJ000064 
QJ000065 



233017.04 
233002.50 
000023. CO 



30 
CO 

80 



233034. 2C AC 



11? 
1€» 
IS* 
2C» 
21* 
22* 



233P2_I 
233C22 
233022 
233023 
233024 
233C24 



•3_0_ 
.CO 
.40 
.40 

.CO 

.40 



_0_Q.CG22._2g 
C0CC21.14 
235127.63 
235143.40 
235071.10 
233103.31 



30 
30 
80 
80 
00 
42 



LVs.8i|2 

LV,6,$1 

CM0C0C(BU»lJfZ 
SICZ SCAN 9 
B,Z CH SCN 
BXVZ,Z COM 19 



-TP 1= I _CH AN_ STATU_S_ _ApDAEAS_ 

-SET SWITCH 

-BR. IF NO REPLACEMENT FOUND 



QJGPPP66 
QJ000067 
QJ000068 
QJ000069 
QJ000069 
QJ000070 



001000. CO FC 



LCD LP+.19 



Z ASN 51 



23* 
2^» 
25* 
26* 
27* 
26* 



233025, 
233026, 
233027, 
233027. 
233030. 
233030, 



PC 
CO 
CO 
40 
00 
40 



2_1JAC^L.„G2 
235127.63 
000022.05 
C0CC00.O7 
000000.51 
000C31.C2 



80 
80 
70 
12 
32 
30 



ppiopg.36 FC 

001000.36 FO 



_C«llll»S CNF CG 

CM1111(BU,1),Z LCD LP+.19 
SR,2,$2 

SX,ZCHNNN,SCHANN{$2J 
SV,ZUNTN«,SUNITN{$2} 
LV»_ltl? 



QJOOOpn 
'QJ000072' 
QJ000073 
QJ000074 
QJ000075 
QJ000076 



-RESET SWITCH FOR REASSIGN 

•GET GRIG UNIT AREA ADDRESS 

-NEW CHANNEL NUMBER 

-NEW UNIT NUMBER 

:^G E T NEW _IJ N I T _ S J A J U_S_ A CClR.EAS 

-SET UAA INTO NEW UST 



2ii 

3C» 
31* 
32* 

33* 
34* 



233031. 
233031, 
233032, 
233033. 
233034. 



CO 
40 
40 
40 
00 



_C_0_0_C_C_C_._C_5_ 
CCCC00.65 
233C34.00 
232772. 5C 
CCCCIO.CO 



31_ 
81 
80 
00 



SV,_2,_p.Ci|lj 

CMllU.S I MNT{$1) 
TI,8,ZASN99,$3 
B,Z ASN 52 
Z ASN 99 DRZ(N),{8) 



QJOpppJ/ 
"QJ000078" 
QJ000079 
QJ000080 
QJ000081 
QJ000082 



001000.36 
000023.20 



FO 
AC 



-INDEX STORAGE 



_3?_* 
36* 
37* 
3£» 
39* 
4C» 



fHE~SPEClAUb"lSA~S~STG¥ 'pTCKAGE 

CALLING LINKAGE 

SICZ COM 90 B,Z DSN 01 VF.IOD NUMBER 



QJ000083 
~QJ000084' 
QJ0000B5 
QJ000086 
QJ000087 
QJ000088 



Alt 
42* 

42* 
44* 
45* 
46* 



QJpp0p89 
^QJ000090' 

Qjoooogo 

QJ000091 
QJ000092 
QJ000093 



233044. CC 
233044.40 
233045.00 
233045.40 
233046.40 



233C77.4C 
233C67.5C 
C0CC22.C2 
00C000.36 
C0CC00.35 



8C 
CO 
90 
81 
81 



233103,34 02 
233103.34 OE 



Z DSN 01 SICZ CCM 99 
B,Z CCM 01 
KVtlf $2 

8B,S UN SUP($l),Z COM 19 
BBl.S UN ASG{$1) ,Z com 19 



-BRANCH IF SUPPRESSED TO ERROR 
- B R A NCH I F_ NOJ _A_S_SJilN E_D_ _T0 _E RR OR 
-SET UNASSIGNED 



47* 
4E« 
4?* 
5C» 



QJQPPP94 
QJ000095 
QJ000096 
QJ000097 



233047.40 
233050.40 
233051.40 



OOCCOO.40 
CCCCOO.50 
CCCCCO.71 



81 001000. CC FO 
81 011000. CO FO 
81 007000. CC FC 



CMOCOCS GWNER($1) 
CMO0OO(BU,9),S VER{$1) 
CM0C00JEU,7),S RC($1) 



-CLEAR TABLES 



'wai 



TIME CLOCK CCC54C41 



PUNIC IIDIIFCP 



CARD ID cjoooogg 



DIST. OF 3/Cl 



3/01 



PAGE NUMBER 299 



LINE 



LOCATION 



BINARY OUTPUT 



NAME 



STATEMENT 



LOCATION 



233052 



1» 
2* 



233052.40 
233053.00 
233054.00 
233C55.00 



232761.32 C2 
00CC0C.33 81 
G0CC00.32 81 
COC000.63 81 



001000.36 FC 
001000.00 FO 
001000.00 FO 



BXE,Z COM 95 
CM1111,S DISP0($1) 
CM0C00,STATI{$1} 
CMOCOCS M0UNT($1) 



-BRANCH IF SINGLE-UNIT CHANNEL 



QJ000099 
QJOOOlOO 
QJOOOlOl 
QJ000102 



f » 

1* 

£* 
1C« 



233056.00 
233057. CO 
233060.00 
233C60.A0 
233061.00 
2 33061.40 
2 33062.00 
233062.40 



000000.65 81 
233C62.4C 80 
00CC40.10 00 
000043.40 80 

233062.40+ 

_C_C_0_C C 5 

232761.10 CO 



233062.34 08 



CMOCCCtS i 
BZBN.Z DSN 
B,D MCP 
,D CONM 
VF,Z CSN 05 



MNTJ$l) 
05, Z CSN 



QJ000_103 
"QJ000104 
QJ000105 
QJ000106 
QJ000107 

Qjoooioa 



09 



-TEST FOR ONE MESSAGE 



CF, 



,0 



n« 

"12» 
13* 
14« 
15* 
16* 



_Z^JDSfi 09 B^Z COM 95 

Z CSN 05 ( IQS«)DC(BU) , DISREGARD SYSTEM TAPE yOUNTING REQUESTS* 

— «««««««««»,•«««•««•»«««•««•»«•«•••««»«*•«•«•«»«*«««•««««««««•*• 

THE SPECIAL ASSIGNMENT COMMON PACKAGE 

- »«««««««««««««««•«««««»•«••»«««•*«««««*«•«»««*«•««»«*••««•*•»« 



QJ000109 

QJOOOlio" 

QJOOOlll 

QJ000112 

QJ000113 

QJ000114 



II* 

IS* 

2C* 
21* 
22* 



QJ0001_15_ 
"QJ000116 
QJ000117 
QJ000H8 
QJ000119 
QJ000120 



CALLING LINKAGE 

SICZ COM 99 B,Z COM 01 



233067 
23307C 
233070 



.40 

.00 
.40" 



233105. 

_2_33_106. 

232762." 



03 10 
05 10 

04 30 



Z COM 01 



SX, 1,Z 

SX,2,Z 



COM 98 
COM 98 + lj.C 
COM 90 



-SAVE INDICES 



22* 
24* 
25* 
26» 
21* 
2£* 



L_V»_2f.Z_ 
LV, 1,0. 
BXVZfZ 
V+I,2,. 
SVA,2,Z 
\/ + , 1,S 



:G_E.l_lDD_NyMBER ADDRESS 

-GET 100 NUMBER 

-100 EQUAL TO ZERO, ERROR 

-SET RETURN ADDRESS 

"AC _ ^0 L CC B A S E A D C R TO 1 D 

"All_y'^lI_^6EA_^PPf':FSS 

-PUT UNIT AREA AODR IN RF $2" 

-GET CHANNEL NUMBER INTO $1 
-ADO BASE OF CHAN ST TABLES 
-BRANCH IF MULTI UNIT CHANNEL 



Qjq00121 
"QJ000122" 
QJ000123 
QJ000124 
QJ000125 
QJ000126 



233071 
233071 
233072 
233072 
233073 



.00 
.40 
.00 
.40 
.00 



GOOCOO. 
221C02. 
COCCOO. 
232762. 
215C03. 



02 
31 
45 
05 
02 



32 
42 

05 
CO 
80 



0($2) 
IOC H 
32 

COM 90 
BA MCP 
0($1) 



29* 

"3C* 

31* 

32* 

33* 
34* 



233073, 
233074" 
233074. 
233075, 
233075, 
233076. 



40 

00" 

40 

00 

40 

00 



_0_0_C_C_0_0_. 
C0CC22. 
GGOOOO. 
000021. 
215002. 
OCCCOO. 



0_4_ 
04 
02 
02 
02 
33 



3.1 
"70 
32 
BO 
BO 
81 



jLV^2^q, 

LR,2,$2 

LV,1,S CHAN N($2) 

y+,i,$i 

V+, 1,S 

8B,S MU 



QJ000127 
"QJ000128' 
QJ000129 
QJ000I30 
QJ000131 
QJ000132 



233100.34 02 



X CHAN 
LTI($1),Z COM 



02 



35* 
36* 
37* 
3€* 
3<5» 
4C* 



233077. 
233071. 
233100. 
233100. 
233101. 
233101. 



00 

40" 

CO 

40 

00 

40 



CCCC_21. 
233077. 
000000. 
COCCOO. 
233102. 
00CC21. 



04 30 
"5C CO 
44 32 

04 Bl 

05 DO 
C4 30 



LV,2,$l 

B,$ 

LV,2,S 

V+,2,S 

SVA,2,Z 

LV,2,$1 



-CHAN STATU STBLADCR INTO $ 2 

-RETURN SLOT 

-GET UNIT NUMBER IN $1 

-ADO BASE AODR OF UNIT ST. TBL. 



Qjqqqi33 

"QJ000134 
QJ000135 
QJ000136 
QJ000137 
0J000138 



Z COM 99 
Z COM 02 

Z COM 03 



UNIT NU2) 
UN A A{$1) 

COM 04 



lG_E I _C H A N _ S T _ J B L A D C R IH_ 
-GET UNIT ST ADDR IN $1 



$2 



41_* 
42* 

43* 
44* 
45* 
46* 
47* 



233102 
"233102, 
233103 
233103. 
233104, 
233^05, 
233106" 



99 

40" 

00 

40 

00 

00_ 

00 



00 0000. 
233077." 
C04C02. 
217451. 
217372. 

_c_c_c_G_c_c^. qq 

CCCOCC.'OO 



C_3 01 
50 CO 
35 01 
40 80 
04 00 

+ _ccq 
+ ceo" 



Z COM^ 04 
Z COM 19 

Z COM 98 



L VI, 1,0 

"b,z com 

LVI,14, 

SICS D 
80, S DI 

xiN^c^q_ 
"xw,c.o 



.0 

99 
S ASN 
ISIC 
SP 



Qjqqqi39 

"QJ000140' 
QJ000141 
QJ000142 
QJ000142 

Qjqqqi43 

"QJ000144 



£R 



CO cop 00 ceo 00 

COOOOO OCCCOG 



-ERROR ROUTINE 



■STORAGE FOR INDICES 



'Nai 



e 



TIME CLOCK CCC54C^1 



PUNID llDll^'CP 



CARD ID GKOOOOOl 



CIST. OF 3/CI 



3/01 



PAGE NUMBER 300 



LINE 



LOCATION 



BINARY CUTPUT 



NAHE 



STATEMENT 



LOCATION 



2* 
2 * 
A* 



«••«•« THE $TIME PSEUDC OP •*•••• 



QKOOOOOl 
0K000002 
QK000003 
QK000004 



CALLING SECLENCE 



QK000005 



i* 
1» 

£« 233107.00 

9* 233107. GO 

IC* 233107. 4C 



B,$MCP 



,$TIME 



,FWA(I) 



215265.16 

C0GC00.57 



30 

05 



Z TIME 



SLC,$ 

LV,7,STIC 

V+I,7,.32 



OK000006 
QK000007 
QK000008 
QK000009 
QKOOOOIO 



lit 
12» 
13* 
l<i* 

15« 
16* 



23311C 
233110 
233111 
233111 
233112 
233113 



.CO 
.40 
.00 
.40 
.40 
.00 



_2_33112. 
CCCCOO. 
215265. 
215246. 
000000. 
233113. 



57_D0 
57 05 
17 30 
CO 80 
03 80 
50 C6 



SVAt7tZ_T_l 

V+I,7,.32 

SV,7,STIC 

TI,15,S T LR+14. 0,17.0 

LVE, 1,0.0 

BySAZj.$+.32 



QKOOgpll 
QK0000i2 
QK000013 
QK000014 
QK000015 
QK000016 



000021.36 AO 



I T I 



-UPDATE STIC 
-RESTORE INDEXES 
-GET STORAGE ADDRESS 



11* 
1£« 
1S« 
2C» 
21» 
22* 



233_1_1_3 
233114 
233114 
233115 
233115 
233116 



.00 
.40 
.00 
.40 
.40 



_2_3_31_L4. 
233141. 
233136. 
CCCC12. 
C0CC12. 
OOCCOl. 



IC_46 
CO 80 
10 00 
22 00 
02 80 
34 80 



B^QZtl 
S I C , Z 
B,Z TS 
Z,$SB 
CMllll 
L{BU,2 



li32 
T8 1 



(eu,2» 

6),$TC 



Q!<Qgpp_i7_ 

QK000018 
QK000018 
QKOOOOig 
QK000020 
QK000021 



-TO CHECK BOUNDS IF PP REQUEST 



Z T 2 



002000. 
Q32042. 
033142. 



36 FO 

2C_5P 
CC 10 



,$SB+.2 

,^60 

TIME K,-60 



-SET ZONE BITS FOR 

_-AE_AD_TLME_CLgCK___ 

-ADD TIME CONSTANT 



IQS STORE 



23* 
24* 
25* 
26* 
2i* 
2£« 



233117 
233120 
233121 
233122 
233123 
233124 



.40 
.40 • 
.40 
.40 
.40 



_2_3_3_1_4_3_. 
74CC00. 
000015. 
COCCOO. 
74CC0O. 
COCCIO. 



C_P__8P 
00 80 
66 80 
24 81 
CO 80 
CC:^ 80 
6'6 8 



_+_tB|_27 

/ueu, 

CCOIK 
CMOlOl 
/KBU, 
CV(EUi 
"LTRCV( 



6), 60, 
BU,6), 
(BU,6} 
6 I , 60 r 
,*L,24 



QKpppp22 
QK000023 
QK000024 
QK000025 
QK000026 
QKG00027 



29* 
'3C* 
31* 
32* 
33* 
34* 



233125 
233126 
233127 
233130 
233131 
233132 



.40 

.40" 

.40 

.40 

.40 

.40 



_C_0_G_C_15_. 
000017. 
COCCOO. 
000017. 
000000. 
352C00. 



406042. 
006000. 
006000. 
406042. 
000014. 
006000. 



21 CO 
06 70 
12 FO 
21 CO 

21 BC 

22 30" 



-60 

$RM+.54 
,0.2C($1) 
-60 



BL,8), 
BU,6J, 
BU,8J, 
63,81, 
,8),C2 



$RM+.54 

$TR+.52,12 

0.20{$1) 

$TR+.52 

O.G($l) 

)C11101C1 

6i|lj 

C{$1) 



-GET SECONDS FROM RM IN BINARY 

-SAVE BINARY SECONDS 
-COMPUTE HOURS AND MINUTES 
_-Q.CN VERT _H UR S JO p E C I M_A L 
-CONVERT MINUTES TO DEC 



QK000028 
"OK000029" 
QK000030 
QK000031 
QK000032 
QK000033 



64 80 
24 81 
64 80 
00 81 
CO 80 



010006. 

006000. 

OlOOOO. 

077000. 

410000. 
'0 10000. 
'OlOOOO. 



C6 70 
22 30 
06 70 
24 00 

C6_7p 
12_FC" 
12 FC 



COOIU 
LTRCV( 
COOIK 
ST(CU, 
LFUBU 



-IGS COLON 



233133 
233134 
233135 
233136 
233137 
233137 



•^P 
.40 
.40 

.00 
.00 
.40 



cccj:_oo. 

COCCOO. 
216242. 
215C01. 
215230. 
233141. 



2_0__8A 
5C 81 
10 00 
04 80 
02 90 
12 40 



_s_F(_ey, 

SF{RU, 
B,K SU 
BB,SL, 
KV,1,S 
BZXL,Z 



81,0.1 
8), 0.4 
PP 

Z T8 I 
TLR 
T 9 



QK000034 

QK000035' 

OK000036 

QK000037 

QK000038 

CK000039 



36* 
37* 

3e* 

3S* 

4C» 



233141.34 02 



Z T8 



-BRANCH IF MCP - NO TEST 



42* 
42* 
44* 
45* 

47* 



233140 
23314C 
233141 
233141 
233142 
233142 
233143 



•pC 
.40 
.00 
.40 
.CO 

.00 



___2_1_5_2_3_0_. 

233141. 

233141. 

CICOU. 

217451. 

___2_1_7_3_72._ 

CCCOCO.OO 



^2_9q 

72 42 
10 CO 
35 01 
40 80 

ic_cc. 

+ 



i<Vt_l,_S 
BXL,Z 
6,$ 

LVI, 14 
SIC, SO 

B,SCIS 

S TIME K VF,C.O 



TLR±532_ 
f Q 

,S FORBD 

ISIC 

P 



I 



PK000040 

QK000041' 

QK000042 

GK000043 

QK000044 

QKppPP44_ 

QK000045 



T8 1 
T 9 



'KSI 



TIME CLOCK CCC5ACA1 



PUNIO IICIIMCP 



CARD ID RAOOOOCI 



DIST. OF 3/Cl 



3/01 



PAGE NUMBER 301 



LINE 



LCCATICN 



BINARY CUTPUT 



KANE 



STATEMENT 



LOCATION 



1* 

2* 

<;« 233143.31 « 



«•«««•«««««««••«•»•«••»«««•««•«««»«•«««««••««««««•••«««•«*•«•*«••*««•« RAOOOOOl 

«*»««««««««««•«»«»«•« DUMMY MAJOR PACKAGE »»•«»»»*•»••♦«•»•*•• RA000002 

«»»#«*««»««««»»»**«*•*»«»««*•♦**»*•*•*•#«»«♦«»••»»«»•»•««*«»»»»•«««»*« RA000003 

SLC,$ RA000004 



1* 

i* 

S* 

1C» 



23 3143.40 
233144. CO 

233144.55 
233145.00 
233143.40 



CCCC00.30 CO 



CNCP 

"UC(BU,45),0< .3)1 
EXT<0,18) 

e,J UNCEF 
VF,C 
VF,C 



RA000005 
RA000006 
RA000007 
RA000007 
RAOOOGOS 
RA000009 



040000000CCCCC0 UNCEF 



0466316 



CCC0C0.OO+ 
CCOOCG.OO+ 



-LAST TT 

-PSEUDOCP LCC" 
-PSEUDO OP 



U*_2 3 3146_.C0 
12* 233146,40 
12* 233147.00 
14* 233147.40 



c_o_o_G c . qq + 

CC0CCC.00+ 

000040.10 CO 
000041. CO 80 



VF^C 

VF,C 

J UNDEF B,0 MCP 
,S C RET 



RAOOOqiO 
RAOOOOll" 
RA000012 
RA000013 



*Nai 



TIME CLCCK 0C054C41 



PUNID llCliyCP 



CARD ID SAOOOOOI 



DIST. OF 3/CI 



3/01 



PAGE NUMBER 302 



LINE 



LOCATICN 



BINARY CUTPUT 



NAME 



STATEMENT 



LGCATIGN 



1* 
2* 

2* 

t-* 23315C.CG 



««•«««•»«»««•»««»«••««»•««««««•«•••««••««»«•«»«•••««•••»•*««**«*••«*•• SAOOOOOI 
»«»««»»««»♦*♦»*»«»»» COMMENTATOR »««»«•»»»•«««»«»* SA000002 

«•««»««•«««««»«««•«««•«••«'«•«««•«••«««»•••••«•«««««•«««»»••«•*•«•»•«»« SA000003 
SLC,$ __ _ SAgpppp4_ 



SA000005 



?» 
IC» 



»»»«»CCMMENTATOR DISABLED ENTRY POINT***** 



233I5C.C0 
233151. CO 
233152.00 



233666. CI 
OOC020.00 
215470. Al 



80 
80 

BO 



001000.36 
233456.00 



FO 

AO 



MCCMD 



CMllll{BU,Uf JWAIT.l 

TI,16,$XCtJD£XRG 

LVE»$XG,SCgMIC 



-SAVE INDEX REGISTERS 

-ADVANCE SCOMIC TO EXIT SETTING 



SA00C006 
SA000007 
SA000008 
SA000009 
SAOOOOiO 



li?_2 33i52_.4_C_ 
12* 233153.CC 
13* 233153. 4G 
14* 
15* 



_C0CCC1,.C1_C5 
233213.41 DO 
233157.50 00 



VtI_f.|XG,l.p 

SVA,$XC,MCOMIC 

B.JJOIN -MERGE WITH IF ENTRY 

»«»»»*CCNMENTATOR IF ENTRY POINT***** 



SAOpppil 
SA000012 
SA000013 
SA000014 
SA000015 
SA0C0016 



11* 
IE* 
IS* 
2C* 
21* 
22* 



233_1_54_._0_0_ 

233155.00 

233156.00 

233156.40 

233157.00 



_2_3_3666._0C 
215246.00 
215265.00 
C0CC01.41 
215265.01 



80 
80 
30 
05 
30 



Qp2ppO_.CC_ 
000021.36 



f 0^ 
AO 



JCCMM 



CMpCpg 1 BU J 2_)_, J WA IJ_ _ 

TI,15,STLR+14.0,$1 

LV,$XO,STIC 

V+I,$X0,1.32 

SV,$XO,STIC 

♦•♦•♦DISABLED ENTRY 



-S_E_T_ _hA 1 1 AN D I F ENTR Y_ _B_I TS 
-RESTORE INDICES $1-$15 
-ADVANCE STIC TO EXIT SETTING 



J 0_I N_S_ JiE_R_E_» * * * * 

r_S EJ_ _R_E_C E_P_T_Q.R _ANDSIACK_BITS 
-COMPUTE LOCATION OF NIJ) 



SApppplJ 
SA000018 

sAooooig 

SA000020 
SA000021 
SA000022 



23* 
2<* 
25* 
26* 
27* 
2£* 



233157, 

233160. 

233161, 

233161. 

233162 

233162, 



40 
00 
40 
00 
40 



_2_3J3_6A6_'_G2 
C0CC00.41 
233162.41 
0CCC00.41 
233163.41 
233162.41 



«0 
00 
DO 
OD 
DO 
80 



002000. CO FO 



JJCIN 



_C M pC p 1 B y , 2 J J J R EC E P 
V-I,$X0,.32 
SVA,$X0,JC0L1 
V-I,$X0,.32 
SVA,$XC,JD0L2 
LVE,$XO,$ 



SApppp23 
SA000024 
SA000025 
SA000026 
SA000027 
SA000028 



TjDCLf 



-COMPUT LOCATION OF FHAII) 

rCOM!'liXE_Ji<_Jl 

-C OM pVtY yw"A fff 



2^1 
3C* 
31* 
32* 
33* 
34* 



233163, 
233163, 
233164, 
233164, 
233165, 
233165. 



CO 
40 
00 
40 
00 
40 



_2_3_3_1 
2331 
2331 
2331 
2331 
2336 



T_3_._C1_ 
63.41 
64.50 
65.10 
72.41 
66.01 



30 
80 
C6 
46 
30 
80 



sv,_ 

LVE 
BUS 

B 
SV, 
BB, 



$XptJ 
,$X0, 
AZ,$ + 
ADZ,$ 
C, JSE 



SETL+.32 

$ 

.32 

+ .32 

TL 

RRRRR 



SApppp2? 

SA000030" 

SA000031 

SA00003i 

SA000032 

SA000033 



233171.74 02 



3S_* 
36* 
37* 
3€* 
3S* 
4C* 



233166, 
233167. 
233167, 
233170, 
233171, 
233171, 
233172, 



^0 
00 
40 
00 
GO 
AC 
CC 



23_3A 
2336 
2331 
2152 
2162 
2331 
23 32 



16. 11 
71.72 

65. CO 
42.10 
72.43 

2A._50 
.00 + 

74.43 
45.10 
11. 5C 



30. 
04 
42 
80 
GO 

Cl_ 
00 



KVI 
BXL 
H-l 

B,K 
LVI 



JX^TEM 

,JXTE 

,JRRR 

(BU,1 

SUPP 

, JXIN 



,_JSTKP 

M,JSTACK+80 

RR 

7), STIC 

1,$+1.0 



SA0ppp34 
'SA000035' 
SA000036 
SA000037 
SA000038 
SA000039 



.0 



021000.32 BO 



42* 
42* 
4A* 
45* 
46* 



J R R R 

jseTl 



RR 



Bt_JSTI<R 

VF,C 

CF,0 

LVI,JXIN1,$+1.0 

B,JCWTST 

BtJTSTEX 



SAp00p4O 
'SA000041' 
SA000042 
SA000043 
SA00d044 
SA0C0045 



233172, 
233173, 
233173. 
233174, 
233174, 



4C 
OC 
40 
00 
4G 



CCCOGC 

GCOOCG 

2331 

2332 

2332 



01 
00 

CO 



-PRESET TO FkA(I) 
-PRESET TO NIJ} 
-TEST FOR NECESSITY 



OF WRITE 



_-R_E_T_U_RN »_N0 _l« R I IE_ NEEDED 

-_IS_ _CCMM ENTA TOR BUSY ~ 

-COMPUTE CONTROL WORD CHAIN 

-CONSOLE CHANNEL ADDRESS 



Ae* 

4S» 
5C* 
51* 

52* 



233175, 
233176, 
233176, 
233177, 
233177, 
2 3 3200 , 
233200,, 
233201, 



cc___ 

OC 

40 • 
00 
4C 

c_c___ 

40 



_2_3_3_6 
23 31 
2332 

215G 
2332 
23_^33 

COCO 
2332 



66._04 
77. C3 
52.50 
06.06 
00.43 
37.50 



80 
01 
00 
30 
01 
00 



233214.34 02 



BB,_ 
LVI 
8»J 
LV, 
LVI 
B,J 



JIQBS 

,JXIN 

STCW 

JXCNS 

,JXIN 

lOGC 



YiMBSY _ 
1,$+1.0 

LfJCNAD 
l,$+l.O 



SApCpp46 
SA000047 
SA000048 
SA00Q049 
SA000050 
SA000051 



M CTL 



53* 

5A* 



0p.0p_83__2 3345_2_.C3_ 0_C____J_RJJ£ W ^0.0 UXCNSLJj JSC_W_P_1_ 

17. 5C CO B.MPPfiSY 



_-J I_Q.GO _ I S Sy E S _ WR I JE 
RETURN IF CEJ 



SApppp52 
SA000053 



*NflI 



c 



TIME CLOCK GG0540A1 PUNID 


IIDUMCP 




:ard 


ID SA000055 OIST. CF 3/01 3/01 PAGE NUMBER 303 




LINE LOCATION 


BINARY OUTPUT 




NAME 


STATEMENT LOCATION 233202 


- 


1* 
2* 

3* 
A* 


233202. GO 
233203.00 
233203.40 

233204.00 


233666.04 
233204.43 
233200.51 
233274.50 


ao 

01 
01 

00 


OOIOOO, 


.36 


EC 




CM1111{BU,1),JI0BSY -W ACCEPTED, »<AKE $CO«M BUSY 
LVI,JXIN1,$+1.32 -DO SET UP I/O BOOK KEEPING 
LVI,JXTEM,JRITE 

B.MSETIC 


SA000055 
SA000056 
SA000057 

SA000058 


5* 


233204.40 


233666.00 


80 


233214, 


,34 


02 




3B, JWAIT,MBSY -GO TO kAIT FOR $COI«M EGP 


SA000059 


e* 
1* 

£» 
S* 

1C« 


233205.40 
233206.40 


233666.02 
233666.03 


80 
80 


216242, 
233211. 


,34 
74 


06 

04 


JEXITD 


»«»««COMMGN EXIT ROUTINE***** 

B8Z,JRECEP,KSUPP -IF RECEPTOR ENTRY 
8ZBZ,JSTKBT, JTSTEX -1 IF WE STACKED AN INTERRUPT 


SA000060 
SA000061 
SA000062 
SA000063 
SA000064 


11* 


233207.40 


215001.04 


80 


233211. 


.74 


02 




8B,SL, JTSTEX 


SA000065 


12* 
13* 
14* 
15* 
16* 


233210.40 
233211.40 « 
233212.40 
233213,40 


216242.23 
233666.01 
233456.00 
233213.50 


80 
80 
80 
00 


001000. 
216242. 
000020. 


GO 
34 
CO 


PC 
00 
AO 


JTSTEX 
f^CCMIC 


CM0C00(BU,1),JKSLPB -FORCE KSUPP TO CHECK INTERRUPT QUE 
8ZB,JIF,KSUPP -IF ENTRY MEANS RETURN THRU ACTUATOR 
TI,16,JCEXRG,$X0 -RESTORE INDEX REGISTERS 
8,$ -RETURN FOR DISABLED ENTRY 


SA000066 
SA000067 
SA000068 
SA000069 
SA000070 


11* 














- 


«»*»» COMMENTATOR BUSY kITH OWN I/O ***** 


SA000071 


1£» 
IS* 
2C« 
21* 
22* 


233214.00 
233214.40 
233215.00 
233215.40 


233215.03 
233310,50 
233200.40+ 
233451.00 


01 
CO 

80 


000000. 


20 


CO 


H BSY 


LVltJXINl,$*1.0 

B,JTERM -WAIT FOR END OF 

VF.JRITE -COMMENTATOR I/O 

ST{BU,0),MCCWD -SAVE COPIED CTLWD 


SA000072 
SA000073 
SA000073 
SA000074 
SA000075 


23* 


233216.40 


233424.45 


01 










LVI,JXIN2,MFIXUP 


SA000076 


2A* 
25* 
26* 
21* 
2f* 


233217.00 


233332.50 


CO 








- 


B,JRELCN -RELEASE CONSOLE 

-AND PROCESS INTERRUPT 

«»»»» CONSOLE BUSY WITH OTHER I/O »«*»» 


SA000076 
SA00007T 
SA000078 
SA000079 

saooooso 


29* 


233217. 4C 


233220.43 


01 








H PP BSY 


LVI,JXINl,$+l.C 


SA0C0081 1 


3C* 
31* 
35* 
33* 
34* 


233220.00 
233220.40 
233221.00 
233222.00 
233222.40 


233310.50 
CC00CC.O0+ 
740000.00 
233223.74 
233223.55 


00 

80 
C2 
01 


404024. 


43 


70 




8,JTERM -WAIT FOR ENC OF 

VF,C -OTHER I/O 

CTICOOICBU, 4), (8)740000.0,41 -EPGK,UK,EEf OR EOP ON 

BRZ,MRID -CS ONLY ON 

LVI,MXIN1,$+1.0 -STACK SOMEONE ELSES 


SA000081 
SA000082 
SA000083 
SA000084 
SA000085 


35* 


233223.00 


233347.10 


00 










B,MSTACK -INTERRUPT 


SA000086 


36* 
37* 
3€* 
3S* 
4C* 


233223.40 
233224.00 


233177.05 
233332.50 


01 
00 








M RID 


LVI,JXIN2,JRITE-1.32 -RELEASE CONSOLE 
B.JRELCN -AND GO TO WRITE 

**«««ENTER MESSAGE IN STACK***** 


SA000087 
SA000088 
SA000089 
SA000090 
SA000091 


41* 














— 


LINKAGE...LVI,JXIN1,$+1.C 


SA000092 


42* 
43* 
44* 
45* 
46* 














- 


8, JSTKR 

VF, LOCATION OF MESSAGE 

CF, LENGTH OF MESSAGE, LESS THAN 11 WORDS 

RETURN 


SA000093 
SA000094 
SA000095 
SAO0OO96 
SA000097 


47* 


233224.40 


00CC00.5C 


51 








JSTKR 


LC,JXTEM,.32(JXINn -NO OF WORDS 


SAOOOoge 


A8* 
AS* 
5C* 


233225.00 
233225.40 * 
233226.00 


233211.70 
233454.12 

COCCOO.IO 


42 
30 
31 










8XCZ, JTSTEX 

LV,JXTEM2,JSTKP -NEXT BYTE IN STACK 

LV,JXTEM,0.0{JXIN1) -FWA . 


SA000099 
SAOOOIQO 
SAOOOlOl 







'YlZl 



L 



TIME CLOCK CCC54C41 PUNID 


IICIIPCP ( 


:ard 


ID 


SA000103 CIST. OF 3/Cl 3/01 PAGE NUMBER 304 


. ' 


LINE LCCATICN 


BINARY CUTPUT 






NAME 


STATEMENT LOCATION 233226 




1* 
2* 

2* 
4* 


233226.40 
233227.40 
233230.40 
233231.40 


005764.00 
000000.10 
215001.04 
233666.01 


80 
85 
80 
80 


420040.06 
110040.12 
233236.34 
233236.34 


70 
FO 
02 
02 






LFIC6Utl6},n6}02FO,64 - RED $ AND CR 

SF{eu,8MV+n,.8(JXT£M2},64 

88,SL,JSTKRP-1.0 

BB, JIF,JSTKRP-1.C -IF ACTUATOR 


SA000103 
SA000104 
SA000105 
SA000106 


5* 


233232.40 


215230.50 


90 










KV,JXTE^', SLOWER 


SA000107 


t* 
7* 
f* 

S* 
IC* 


233233. CO 
233233,40 
233234.00 
233234.40 
233235.00 


233234.72 
215230.10 
233237.32 
000410.35 
217451.40 


42 
90 
42 
Gl 

80 






JSTKER 


BXL, JSTKER -TO ERRCR EXIT 

KVfJXTEf', SUPPER 

BXL, JSTKRP -IF NO ERROR 

LVI,$14,SC0NER 

SICSDISIC 


SA000108 
SA000109 
SAOOOllO 
SAOOOlll 
SA000112 


11* 


233235.40 


217372.10 


00 










B,SDISP 


SA000112 


12* 
13* 
14* 
15* 
lt» 


233236. CO 
233237.00 
233237.40 
233240.00 
233240.40 « 


COCCOO.IO 
CO CO 12. 11 
233240.73 
C0CC12.ll 

oococo.oo 


85 
CA 
40 
02 
84 


110044.12 

000000.06 


FO 
70 


JSTKRP 
JSTKRl 


SF(EU,8)(V+I),.8(JXT£H2},72 

KCI,JXTEW,10.0 

BZXF,$+1.0 

LCI, JXTEM, 10.0 -RESET TO 10 WORDS 

LF(EU,64),0.0(JXTEM) -MESSAGE WORD 


SA000113 
SA000114 
SA000115 
SA000116 
SA000117 


17* 


233241.40 


cocooi.cc 


85 


100000.12 


FO 






SF(BU,64)(V + n,l.C{JXTEH2) -TO STACK 


SA000118 


18* 
IS* 
2C* 
21* 
22* 


233242.40 
233243.00 
233244.00 
233244.40 


233240.51 

coocoo.io 

233454.13 

coocoi.ic 


48 
85 
30 
01 


110040.12 


FO 






CB+tJXTEh*, JSTKRl 

SF(BU,8)(V+I),.8{JXT£M2),64 -CR LAST 
SV, JXT£M2,JSTKP -NEW STACK PCINT£R 
e,l.C{JXINlJ -EXIT 


SA000119 
SA000120 
SA000121 
SA000122 
SA000123 


23* 












— 




•«»«*IS WRITE NECESSARY***** 


SA000124 


2<* 
25* 
26* 
27* 

2€« 










, 


- 




LINKAGE...LVI,JXIN1,$+1.0 

Q 1 pu *r c T 

RETURN, NO WRITE NEEDED 
RtTLRN, WRITE NEEDED 


SA000125 
SA000126 
SA000127 
SA000128 
SA000129 


2?* 












— 






SA000130 


3C» 
31* 
32* 
33* 
34* 


233245. CO 
233246.00 
233247.00 
233247.40 

233250.00 


233666. C4 
233666.00 
233454.10 
233455.10 
233666.11 


80 
80 
30 
BO 

04 


000000.74 
000000.74 


01 
03 


JC 


rviJST 


BZB,JIOBSY, .32(JXIN1) -IF NOT BUSY, DC A WRITE 

B8,JWAIT,.32tJXINl) -WRITE IF WAITING 

LV,JXTEF,JSTKP -STAC1< POINTER 

V+,JXTEM,JM£SM -PLUS LENGTH OF LARGEST MESSAGE 

KVI,JXTEM,JSTACK+JSIZSW 


SA000131 
SA000132 
SA000133 
SA000134 

SA000135 


35* 


233250.40 


C0CCC0.33 


41 










BZXF,C.C(JXIN1) -IF NOT FULL 


SA000136 


3e* 

37* 
3€* 
3S* 

4C« 


233251.00 
233252.00 


233666.00 
000000. 5C 


80 
01 


001000.36 


FC 


- 




CM1111(BU,1),JWAIT -IF FULL, TURN ON WAIT 
B,.32iJXINl» 

•••••CONSTRUCT TWO LINK CHAIN FOR WRITE***** 


SA000137 
SA000138 
SA000139 
SA000140 
SA000141 


41* 












- 




LINKAGE...LVI,JXIN1,$+1.0 


SA000142 


42* 
43* 
44* 
45* 

4e* 


233252.40 

233253.00 


000025.22 
233454.10 


00 
30 






JSTCW 


B, JSTCW 

RETURN, TWO CW SET UP IN POOL 

Z,JXT£M2- 

LV, JXTEM,JSTKP -CURRENT STACK POINTER 


SA000143 
SA000144 
SA00G14S 
SA000146 
SA000147 


47* 


233253.40 


000024.22 


80 


006000. C6 


70 


JSTCWl 


LF(BU,6),JXT£M+.18 -BIT PORTION .18-. 23 


SA000148 


46* 
4S» 
5C* 


233254.40 * 

233255.00 

233256.00 


233256.74 
COCCCO.IC 
233253.50 


C2 
84 

00 


110000. CO 


FO 






BRZtJPNTOK 

CM0000{EU,8)IV+I),0.8{JXTEM) -INSERT IQS BLANK 

8, JSTCWl 


SA000149 
SA000150 
SA00015I 







'Nai 



C 



TIME CLOCK CCCS^CAl 



PUNID IICIINCP 



CARD IG SA000153 



CIST. OF 3/Cl 



3/01 



PAGE NUMBER 305 



LINE 



LOCATION 



BINARY OUTPUT 



NAME 



STATEMENT 



LOCATION 



233256 



1« 
2* 

2* 



233256 
233257 
233257 

233260 



.40 
.00 
.40 

.00 



233454.11 30 

233454.52 30 

233264.53 DO 
233263.53 DO 



JFNTOK 



SV, 
LV, 
SVA 
SVA 



JXTEM, 
JXTEM2 
♦JXTEM 
,JXTEM 



JSTKP 
iJSTWP 
2,RTRANS ■ 
2,RSIC1 - 



-POINTER NOW AT FULL WA. 
-TRANS START ADDRESS 



SA000153 
SA000154 
SAGOO 155 
SA000156 



1* 

S» 

IC* 



23 3260 
233261 
233261 
233262 
233262 
233263 



.40 
.00 
.40 
.00 
.40 
.40 



233476^13 
233266.13 
233476.13 
233454.53 
233452.31 
233263.51 



CD 

do" 

01 
30 
80 

00 



V-I 
SVA 
LVI 
SV, 
CMO 
V-I 



j^JXTEM 
,JXTEM 
,JXTEM 
JXTEM2 
000(80 
, J XT EM 



2j J STACK 
2,RSIC2 
2,JSTACK 
,JSTWP -R 
t3},JSCWD 
,$ - CALC 



SAGOO 1 57 
'SA000158 
SA000159 
SA000160 
SA000161 
SA000162 



003000. OC FO 



RSICI 



ESET ViRITE TO ORIGIN 
1.25 - 

CCJU_NI 

COUNT FOR TRANS + WRITE" 



11* 
12» 
12» 
14* 
15* 
1£« 



233264 
233264 
233265 
233266 
233266 
233267 



.40 
.40 

.00 
.40 

.00 



_C_0CC24.12 
233264.40 
233454.10 
233266.11 
233454.11 
233453.13 



50 

80" 

30 

CD 

30 

10 



LC, 

RTRANS T,J 

LV, 

RSIC2 V-I 

SV, 

SX, 



JXTEM2 
XTEM2, 
JXTEM, 
,JXTEM 
JXTEM, 
JXTEM2 



, JXTEM - 
$,JSTACK- 
JSTKP- 
t$- 

JSTKP -RE 
,JSCHD2 - 



SA000163 
'SA000164 
SA000165 
SA000166 
SA000167 

SAoooisa 



233476.12 20 



SET STACK POINTER 

-LEAVE CHAIN OFF , I F~ COUNT Z"e¥o" 



1£« 
IS* 
2C« 
21» 
22* 



233270 
233271 
233271 
233272 
233272 
233273 
233274 



.00 
.CO 
.40 
.00 
.40 



_2_33271.3g 
233452.31 
233454.10 
233455.10 
233666.11 
AG_Q_ClG_0_._33 
_2_3_3_6_6_6_.qC 
000000.10 



42 
80 
30 
BO 
04 
41 

"aq 

"01 



8XC 

"CMl 

LV, 

v+, 

KVI 
BZX 



IIUBU 
JXTEM, 
JXTEM, 
, JXTEM 
H|^0.0( 
111[BU 
.0( JXI 



32 

,l),JSCVvD 

JSTKP 

JMESM 

,JSTACK+J 

JXjNl) 

.UjrJWAIT 

Nl) 



SA000169 

SA000170" 

SA000171 

SA000172 

SA000173 

SA000174 



001000.36 FO 



1+.25 -TURN CHAIN BIT ON 

-STACK POINTER 

-PLUS LENGTH OF LARGEST MESSAGE 
SIZSW 

-IF ROOM FOR NEXT MESSAGE 

-IF FULL, TURN ON \iiMT BIT 



23* 

25* 
26* 
27* 
2i* 



.00 
.CO' 



001000.36 FO 



CMl 
B,0 



SAqoqi75 

"SA000i76" 
SA000177 
SA000178 
SA000179 

SA000180 



»*»«* SET UP I/O BOOK KEEPING »«•♦♦ 

LtNKAGE...Lyi^ ^ XJ Nij_*_+J-_»A2_ 

\y.l!.J^T EM, I/O ADDRESS " 

"B,MSETIC 

RETURN 



2i» 

"3C» 

31* 

32* 

33* 
34* 



SA000181 
"SA000182" 
SA000183 
SA000184 
SA000185 
SA000186 



233274. 
233275. 
233275. 



40 
CO 
40" 



215002. 
215006. 
215006. 



20 30 
2C_ 80 

20 80 



M SET 10 LV,MXCST,SCHANS 

^y_+_»_1XCST,JCNAD 

V+,MXCST,JCNAD 



-BASE OF CST 

rf Pl^l^_ _c_sj_ AITAt 

-ADDRESS 



35* 
36* 
37* 
3£» 
3S» 

4C* 



SAqqqi87 

~SA000188 
SA000189 
SA000190 
SA000191 
SA000192 



233276. 
233276. 
233277. 

23 3300. 
233301. 



00 
40 
00 
00 

00 



COCCOO. 
OOOCOO. 
COCCOO. 
COOCOl. 
COCCOO. 



22 38 
24 39 
47 89 
47 89 
32 88 



OCIOOO.CC FO 
001000.36 FO 

ociqqq.36_F_o_ 

901PPP-36 fc 
001000.36 FO 



003000.00 FO 

qcoqoq_.2C_ 50 

000000.20 DO 



LV,MXUST,C.C{MXCST) -UST ENTRY ADDRESS 
LV,MXUAT,0.0{MXUST> -UAT ADDRESS 
CM0G00{8U,1),SSEL(MXUST» -SELECT MCP UNIT 
CMllll(fiU,l),SSEL+l.QIHXUST) -UNSELECT PP UNIT 
CM11111BU,1),SCH0P(MXCST) 



41* 
42* 
43* 
44* 
45* 

4e» 



233302. 
233303. 
233304. 
233304. 
233305. 
23 3306. 
233307. 
23331C. 



00 *" 

00 

40 

00 

_CC_ _ 

00__ 

00 



OOC_C_00. 
OOOCOO. 
233421. 
CCCC05. 
COCCOO. 

qo_o_c_oq. 

_C_0_C_Cd4._ 
COCGO""0. 



37 89 
72 89 
13 01 
13 3A 
70 88 
GO 84 

oqaA' 
10 oi' 



_Q.11L1UBU,1),SS£TUPJMXUST) 

CMllll(BU,l),SwR(MXUST) 

LVI,JXTEM2,MRETAD -SET RETURN 

SV, JXTEM2,SRETAD(MXUAT) -UPON INTERRUPT 

CM0C00(BU,3),SUNIT(MXCST) 

LL8U^64|, UXTEM) 

iIUyL64),SIQINS{MXL_AT) " 

"B,0.0(JXIN1) 

**»«»CONSOLE I/O TERMINATION ROUTINE***** 

l:ilNKAGE...LVijJXINl,$ + l._q 

B^JTERM I " 

"VF,LOC. OF 
RETURN, CCW 



SAq00193 
"SA000194" 
SA000196 
SA000196 
SA000197 

SAoooigs 



47* 
48* 
49* 
5C* 
51* 
52* 



SA00qi99 
"SA600200" 
SA000201 
SA000202 
SA000203 
SA000204 



52* 
5^* 
55* 
56* 



5*000205 

"SA000206" 

SA000207 

SA000208 



I/O OP 
IN $R 



OR ZERO IF NOT CURS 



*vm 



L 



TIME CLOCK CCC54C41 PUNID 


IIDIIMCP CARD 


IC SA000209 CIST. OF 3/01 3/01 PAGE NUMBER 306 


.'« 


LINE LOCATICN 


BINARY OUTPUT 




NAME 


STATEMENT LOCATICN 233310 




J* 
2* 

3* 
4* 


233310.40 
233311.00 
233311. 4C 
233312.40 


C0CC12.C3 
215006.06 
000000-00 
233314.03 


02 
30 
83 
44 


233322.21 


GO 


JTERM 


LCI, JXINI, 10.0 -WILL TRY CCte 10 TIMES 
LV,JXCNSL,JCNAD -GET CONSOLE CHANNEL NUMBER 
CCW,O.OUXCNSL),JCWTMP 
BZEKJZ, JEKJZ 


SA000209 
SA000210 
SA000211 

SA000212 


5« 


233313.00 


233311.02 


48 








CB, JXINI, JTERM+. 32 -EKJ,TRY AGAIN 


SA000213 


£* 
1* 
t* 

S* 
IC* 


233313.40 
233314.00 
233315.00 
233316.00 
233316.40 


233313.50 
233322.00 
740000.00 
233325.74 

000000.10 


CO 
80 
80 
CO 
31 


000000.06 
404024.43 


70 
70 


JEKJZ 


8,$ -CONSOLE DOWN, 10 EKJS IN A ROW 

LF(BU,64'),JCWTMP -CW TO $R 

CTI0001{BU,4), (8)740000.0,41 -EPGK,UK,OR EOP ON 

BZRZ, JFKCS 

LV,JXTEM,0,0(JXIN1) -LOCATION OF I/O OP. 


SA000214 
SA000215 
SA000216 
SA000217 

SA000218 


1J» 


233317.00 » 


233323.31 


42 








BXVZ,JTERMS 


SA000219 


12* 
13* 
14* 
15* 
1£* 


233317.40 
233320.40 
233321.40 
233322.00 
233323.00 


000000.64 84 
000011.30 80 
233325.50 GO 
CC00CC.CC+ 000 
215006.20 30 


233310.74 00 
233310.74 02 

000000 OCCCOO 


JChTMP 

JTERMS 


BZB,.52(JXTEM), JTERM -IF NOT SEOP,TRY AGAIN 

BB,$R+. 24, JTERM -IF SEOP NOT DOWN,TR¥ AGAIN 

8, JFKCS 

XW,0 -STORAGE FOR CCW 

LV,MXCSTjJCNAD 


SA000220 
SA000221 
SA000222 
SAG00223 

SA000224 


17* 


233323.40 


000030.20 


80 








V + .h'XCST.MXCST 


SA000225 


1£* 
IS* 
20* 
21* 
22* 


233324.00 
233324.40 
233325.40 
233326.40 
233327.00 


215002.20 
000000.32 
000011,27 
215006.34 
216272,40 


BO 
88 
80 
30 

80 


233310.74 

000000.74 


02 
01 


JFKCS 


V+,MXCST,SCHANS 

B8,SCH0P(MXCST), JTERM - IF CHANNEL OPERATING 

BZB,$R.23,.32(JXIN1) 

LV,$14,JCNAD 

SICKSTCS 


SA000226 
SA000227 
SA00022B 
SA000229 

SA000230 


23* 


233327.40 


216267.10 


00 








8,KCSIN 


SA000230 


24* 
25* 
26* 
27* 
2£« 


233330.00 
233331.00 
233332.00 


233322.00 
233666.00 
00CCC0.5C 


80 
80 
01 


000000.06 
001000.36 


70 
FC 


— 


LF(EU),JCWTMP 
CMllll(BU,l),JWAIT 
B,.32( JXINI) 

«»*«»REL£ASE CONSOLE ROUTINE***** 


SA000231 
SA000232 
SA000233 
SA000234 

SA000235 


29» 












— 




SA000236 


3C» 
31* 
32* 

33* 
34* 


233332.40 « 


000012.05 


02 






JRELCN 


LINKAGE...LVI,JXIN2,$+1.0 

B, JRELCN 

RETURN, CONSOLE RELEASED 

LCI, JXIN2, 10.0 -WILL TRY REL 10 TIMES 


SA000237 
SA000238 
SA000239 
SA000240 
SA000241 


35* 


233333.00 


000000.00 


83 


000000.33 


00 




REL{SEOP),0.0(JXCNSL) -INDEX HAS CONSOLE CHANNEL NO. 


SA000242 


36* 
37* 

3e* 

39* 
4C» 


233334.00 
233334.40 
233335.00 
233335.40 

233336.00 


233335.43 
233333.04 
233335.10 
233336.43 

233310.50 


44 
48 

CO 
01 
00 






JNGEKJ 


BZEKJZ, JNOEKJ 

CB,JXIN2,JRELCN+.32 

B,$ -CONSOLE DOWN, 10 EKJS IN A ROW 

LVI, JXINI, $+1.0 -TEST FOR COMPLETION 

B, JTERM 


SA000243 
SA000244 
SA000245 
SA000246 
SA000247 


41* 


233336.40 


233333.00+ 










VF,JRELCN+.32 


SA000248 


42* 
45* 

44* 

45* 
4i» 


233337.00 


000000.10 


02 






- 


B,0.0{JXIN2) -EXn 

•••••CONSOLE I/O ACCEPTANCE ROUTINE***** 

LINKAGE... LVI, JXINI, $+1.0 


SA000249 
SA000250 
SA000251 
SA000252 
SA000253 


47* 












— 


B,JIOGO 


SA000254 


46* 
49* 
5C* 
51* 

52* 


233337.40 


000000.00 


81 


000000.06 


70 


JICGG 


PRESET I/O COMMAND 

RETURN CBJ 

RETURN IF ACCEPTED 

LF(eU,64),0.0{JXINl) -PICK UP I/C COM. 


SA000255 
SA000256 
SA000257 
SA000258 
SA000259 







■nai 



C 



IIME CLOCK CCC54CA1 

X In E " ~ " Loc A tTcTs 



PUNIC IIOIIMCP CARD ID SAG0Q261 DIST. OF 3/Cl 
BINARY"CUTPU"T h^t^E STATEMENT 



3/01 



PAGE NUMBER 307 
I G C aTIO N 2333^6 



1» 

3* 
4« 



233340.40 
233341. 4C 
233342.00 
233342.40 



233342.40 
000012. II 
C0CC12.C3 
C0CCC0.3C 



80 
02 
02 

CO 



000000.12 FC 



JNREO 
JIGNST 



SF( 
LCI 

LCI 

NOP 



eU,64),JI0NST 

,JXTEH,10.C 

,JXIN1,1C.0 



-PRESET TO I/O INST< 



SA000261 
SA000262 
SA000263 

SA000264 



5* 

1* 

i* 

s« 

ic« 



2 3334 3.GC 

233343.40 

233344.00 

233344.40 

233345.00 

233345.4_0_ 

2 33346.CC_ 

233346.40 



CCCCC0.3C CO 
233345. C3 44 
233342.42 
233344.56 
233341.43 

C_0CCC 1.^44 

_2_3_3342._iq 48 
OOCCOl.lO CI 



NCP 
BZE 
CB, 
B,$ 
BUN 
BZC 



SAO 002 65 
SA000266 
SA0002&7 
SA000268 
SA000269 
SA000270 



48 
00 
C6 
45 



JTUNR 



KJZ, JTUNR 
JXINl.JICNST 

RJZ, JNRED 

BJ^,1.32j JXINl) 
J X I E H , J N R| P +_. 3 2 

.O(JXINl) 



-IF fcKJ.TRY A€AIN 

-CONSOLE DOWN,EKJ 10 IN A ROW 

-INFINITE LOOP IF UNRJ 



12* 
12* 
14* 
15* 
1£« 



CB, 
'B,1 



SA000271 
"SA000272" 
SAOQ0272J 
SA000274 
SA000275 
SA000276 



-GIVt C8J RETURN 



«»•«« STACK INTERRUPTS (COMMENTATOR) «»«»• 



LINKAGE., 

"b^mstack" 
"return 



.LV1,MXIN1,$+1.0 



il* 
1£» 

IS* 

2C» 

21* 

22* 



SAO 002 77 
SA000278 
SA000279 
SA000280 
SA000281 
SA000282 



23334 7 
233347 

23335C 



.00 
.40 

.cc 



233350. 
233413. 
COCCCO. 



17 01 
50 CO 
37 89 



M STACK 



,0 



233357.34 00 



LVI,MXIN2,$+1 

B,MTABL£ 

BZB,SSETUP(MXUST), 



-COMPUTE I/D TABLE 
-ENTRY ADDRESSES 
MSTKGC - IF NC SETUP 



23* 
24* 
25* 
2£* 
21* 

2e» 



233351 
233351 
233352 
233352 
233353 
233354 



.CO 

^40" 

.00 

.40 

.40 

.40 



216644. 
CCCC05." 
233357. 
216257. 
216242. 
216250. 



CI 01 

00 9A 

32 CO 

00 80 

23 80 

23 80 



LVI^$0,PCCNE2 

KV,$0,SRETAD{MXUAT 

BZXE,MSTK60 

STJBU),KCOMCW 

CM0C00iaU,l},JKSUP 

CM1111(BU,1),KC0NC 



SA0002a3 
"SA0002S4" 
SA000285 
SA0002a6 
SA000287 
SA000288 



000000.20 DO 
OOIOOO.CO FO 
001000.36 FC 
001000.36 FC~ 



) 



B 
P. 19 



-MUST BE CONCEPTORS 
-FORCE KSUPP TO TAKE EOP 



2S* 
"3C» 
31* 
32* 
33* 
34* 



233355 
233356 
233357 
233360 
233361 
233362 



.4C 

.40" 

.00 

.00 

.00 

.00 



23 36 66. 

coccdo. 

COCCOO. 
COCGll. 
COCCOO. 
C0CC04. 



CI^UUtByiUiJWAIT 
"8,0.0(MXIN1) 
CMOCO0(BU,l),SCHOP 
CM0C00CBU,ll,$R+.2 
BBZ,SRELiMXUST),MR 
ST(eU,0),SCCK(MXFA 



SAq00289 
"SA000290" 
SA000291 
SA000292 
SA000293 
SA000294 



10 06 

32 88 

27 80 

75 89 

00 8B 



OOIOOO.CO FO 
OOIOOO.CO FO 
233402.34 06 

qqqqoo.2C_co_ 

"233410.74 06 
005024.20 CC 



003000. CCFC 
001000.36 FC 



HSTKGO 



- EXIT 
IMXCSTI 
3 
ELI 

T) -SAVE COPIED CTLteD 



35_» 
36* 
37* 
3£* 

35* 
4C* 



233363, 
233364^ 
233365. 
233365, 
233366. 
233366, 



00 

00" 

CC 

40 

00 

40 



COC_000. 
COCCOl. 
215C21. 
COCCOO. 
COCCOl. 
COCCOO. 



56 89 

11 8 8 

31 01 

5C 3C 

50 8C 

70 88 



^BBZ»SSEqP[MXUST],M 

M SEDP B ST(EU,5),SI0IND<MX 
LVI,MXSTK,SPR0GS 
LV,JXTEM,SQK{MXSTK 
V+,JXTEM,SQK+1.0(M 
CM0C00(6U,3),SUNIT 



SEQP 

FAT), 40 -SAVE I/O IND 

) -GET TOTAL 
XSTK) -QUEUE COUNT 

JMXCSTj 

PJMXUST) 

-IS QUEUE FULL 

-GET NEXT STACK LOCATION 
-COMPUTE ENTRY 
UST),-19 -TO BE STACKED 



SAqqq295 

"SA000296" 
SA000297 
SA000298 
SA000299 
SA000300 



41_* 
42* 
43* 
44* 
45* 
4£* 



233367 

23337G, 

233371, 

233371 

233372, 

233372, 



40 

40" 

00 

4C 

CC 

40 



000C_00. 
000177. 
216313. 
215466. 
COOCIO. 
OOGGCO. 



36 89 
11 04 
33 42 
32 30 
27 30 
40 89 



_Q.^llll{^eu,l),SUNSU 
KVI,JXT£M, 127.0 
BXH,CQ2eiG 
LV,MXCUMQ,SCUMQ 
SV,MXFAT,$L 
LF{BU,1),S0WNER(MX 



SAqqqsqi 

"SA000302" 
SA000303 
SA000304 
SA000305 
SA000306 



001066.46 70 



48* 
4S* 
5C* 



233373. 
233374, 
233374, 
233375. 



40 
CO 

40 • 
40 



2 3_3J_74. 
CCCCCl. 
000000. 
215466. 



74 C2 

31 C5 

23 8D 

33 30 



BRZ^$+1.C 

"V + I,MXSTK,1.0 
ST(V+I)(BU,19),, 

SV,f*XCUMQ,SCUMQ 



„ -AClP. _ca _p p _e '^ I ? y 

-MCP ENTRY 
{MXCUMQ),-19 -STACK 

-RESET NEXT STACK LCC. 



SAoqq3q_7 
sa6oo"308" 

SA000309 
SA000310 



123066.60 CO 



19 



'wai 



L 



TIME CLOCK 0CC54C41 PUNID 


IIDIINCP 


CARD 


ID 


SA000312 DIST. OF 3/Cl 3/01 PAGE NUMBER 308 




LINE LCCATIGN 


BINARY OUTPUT 






NAf»E 


STATEMENT LOCATION 233376 




1* 
2* 

3* 

4« 


233376. CO 
233376.40 
233377.40 

23340C.4C 


216246.65 
000000.40 
233666. C3 

C0CGC0.71 


DO 
8C 
80 
89 


022000. 
001000. 
005000. 


.22 

.36 
.CO 


80 
FO 
FO 


M 


SKIP 


SVA,MXUAT,KCOMMR 

M+HBU,18),SQK<MXSTK) -INCREMENT PROPER Q COUNT 
CM1111CBU,1),JSTKBT -TURN ON STACK BIT 
CM0C00(BU,5),S RC{MXUST) -CLEAR STATUS BITS 


SA000312 
SA000313 
SA000314 
SA000315 


£ * 


2334C1.40 


CCOCOO.IO 


06 












8,0.0(MXIN1) -EXIT 


SA000316 


. f * 
1* 
f* 
S* 

1C» 


233402.00 
233402.40 
233403.40 
233404.40 
233405.00 


000004.22 
000000.37 
COOCOl.ll 
000011.22 

000000.56 


OB 
89 
88 
00 
89 


001000.00 
005000.00 

233400.74 


FC 
FO 

06 


H 


REL 1 


Z,SCCV«{MXFAT) 

CM0G00{BU,1J,SSETUP{MXUSTJ 

CMO000(BU,5J,SIOINOtMXFAT) 

Z,$R 

BBZ,SSEGP(MXUST),MSKIP 


SA000317 
SA000318 
SA000319 
SA000320 
SA000321 


11* 


233406.00 


00CC11.26 


80 


001000. 


.36 


FO 






CMllll{BU,l),$R+.22 


SA0C0322 


12* 
13* 
14* 
15* 
li* 


233407.00 
233410.00 
233410.40 • 
233411.40 
233412.00 


00CC04.26 
233364.10 
700000.00 
233364.34 
000004.26 


88 
CO 
80 
CO 
88 


001000.36 
403025. C3 
003000.00 


FO 
70 
FO 


M 


seop 


CMllll{BU,l},SCCW+.2 2(MXFAT) 

BfMSEOPB 

CTIC001(BUt3), (61700000. 0,42 -EPGK,UK,DR EE ON 

BZRZtMSEOPB 

CMOCOO ( BU, 3), sec W+. 22 (MXF AT) 


SA000323 
SA000324 
SA000325 
SA000326 
SA000327 


17* 


233413.00 


233400.50 


00 












B.MSKIP 


SA000328 


1£» 
IS* 
2C» 
21* 
22* 














- 




»*»»»COMPUTE TABLE ENTRIES***** 

LINKAGE...LVI,MXIN2,$+1.0 
BfM TABLE 


SA000329 
SA000330 
SA000331 
SA000332 
SA000333 


23* 














— 




RETURN 


SA000334 


2'* 
25* 
26* 
27* 
2€» 


233413.40 
233414.00 
233414.40 

233415.00 


215006.20 
000030.20 
215002.20 
OOOCC0.22 


30 
BO 
BO 
38 








STABLE 


LVt>'XCST,JCNAD -GET CHANNEL ADDRESS 
V+,MXCST,MXCST -COMPUTE CST 
V+,MXCST,SCHANS -ENTRY ADDRESS 
LV,HXUST,0.0(MXCST) -COMPUTE MCP UST ADDRESS 


SA000335 
SA000336 
SA000337 
SA000338 
SA000339 


2S» 


233415.40 


000000.70 


88 


003000. 


.07 


70 






CT0C11(EU,3),SUNIT(MXCST) -WHO OWNS THE UNIT NOW 


SA000340 


3C» 
31* 
32* 

33* 
34* 


233416.40 
233417.00 
233417.40 
233420.00 
233420.40 


233417.74 
000001.23 
CCCCC0.24 
000003.26 
000000.10 


C2 
05 
39 
3A 

07 












BRZ,$+1.0 -MCP IF BRANCH 
V+I,MXUST,1.0 -PP UST ADDRESS 
LV,MXUAT,O.OfMXUST) -COMPUTE UNIT AREA TABLE ADDRESS 
LV,KXFAT,SFIAAC{MXUAT) -COMPUTE FILE AREA TABLE ADDRESS 
B,0.C(MXIN2) -EXIT 


. SA000341 
SA000342 
SA000343 
SA000344 
SA000345 


3*» 














— 






SA000346 


3t* 
37* 
3fi* 
39* 
4C» 


233421.00 
233422.00 
233422.40 


233666.02 
000012.11 

CGCC05.12 


80 
02 
30 


001000, 


36 


FO 


« 


RET AD 


»»»«» SETUP RETURN FOR COMMENTATOR **»•» 

CM1111(BU,1J,JRECEP -SET RECEPTOR ENTRY BIT 
LCI.JXTEM.IO -CCW AT MOST 10 TIMES 
LV, JXTEM2,$CA -GET CONSOLE CHANNEL 


SA000347 
SA000348 
SA000349 
SA000350 
SA000351 


41* 


233423.00 


COOOOO.CO 


85 


233451, 


21 


CO 


NCCOPY 


CCW,0.0CJXTEM2),MCCWD 


SA000352 


42* 
43* 
44* 
45* 
4d» 


233424.00 * 

233424.40 

233425.00 

233425.40 

233426.40 


233443.43 
233425,57 
233413.50 
233451.23 
233444.74 


46 
01 
CO 
80 
CO 


002000. 


07 


70 




FIXUP 
CHK B 


BEKJZtMTRY 

LVI,MXIN2,$+1.0 -COMPUTE I/O TABLES 
BfMTABLE -ENTRY ADDRESSES 
CT0C11(BU,2},MCCWD+.19 -CHECK EPGK + UK 
BZRZ.MCFECK -EPGK OR UK CN IF BRANCH 


SA000353 
SA000354 
SA000355 
SA000356 
SA000357 


47* 


233427.00 


233444.51 


01 












LVI,JXTEM,MCHECK -RESET EPGK + UK EXIT 


SA0Q0358 


46* 
49* 
5C* 


233427.40 
233430.00 
233431.00 


233426.51 
233451.31 
233451.10 


DO 
80 
30 


233433, 


74 


02 


M 


CHK R 


SVA,JXTEM,MCHKB -IF BOTH ARE OFF 

BB,MCCWD+.25,MASTGR -SHOULD WRITE POINTER BE RESET 
LV,JXTEM,MCCWD -YES 


SA000359 
SA000360 
SA000361 






















;. 





■wai 



C 



1 IME CLOCK 00C54C41 
L In E""~ LOCATION 



PUNIO UDllNCP CARD ID SA000363 DIST. OF 3/Cl 
binary" CUT PUT hhHt STATEMENT 



3/01 



PAGE NUMBER 309 
1 C A TllDN" 233431 



I* 233431.40 

2* 233432.40 

2* 233433.00 

4* 233433. 4C 



000024.22 80 
CCCC02.11 00 
233454.51 30 
233666. C4 80 



007000. CO FO 



001000. CC FG 



MASTOR 



CMOC0O{BU,7),JXTEM+.18 

V-ItJXT£M,2.0 -REDUCE CW BY 2.0 

SV,JXTEH,JSTWP -RESET WRITE POINTER 
CM0C00(BU,1),JI0BSY -MAKE $CCMM NOT BUSY 



SA000363 
SA000364 
SA000365 
SA000366 



5 •233434.40 
e* 233435.40 
233436.40 
233437.40 
233440.00 
23344C.40 



000000^32 88 
C0CCC0.37 89 
0CCC00.72 89 

233454.10 90 
233176.32 CO 

233476.11 01 



001000. CO FO 
OCIOOO.CC FO 
001000.00 FC 



CMOGOOlBU^lJj _S C H_C P ( MX C_S_T_)_ 

CM0G00(BU,1),SSETUP{MXUST) 
CMOCOOteUf 1),SWR{MXUST) 
KV,JXTEW,JSTKP -IS STACK EMPTY 
BZXE.MCTL -NOt IF BRANCH 

LVI,JXTEM,JSTACK 



SA000367_ 
"SAC0036B 
SA000369 
SA000370 
SA000371 
SA000372 



7» 
IC* 



11* 
12* 
12« 
14* 
15« 
16* 



233441.00 
233442.00 
233442.40 
233443.00 
233443.40 
233444. CC 



23 3666.00 
233454.11 
233454.51 
233205.50 
233423.10 
233444. IC 



80 
30 
30 
CO 
48 
CO 



001000. CC FC 



CM0C00(BU,1),JWAIT 



SA0003 73 
"SA000374 
SA000375 
SA000376 
SA000377 
SA000378 



M TRY 



SV.JXTEM.JSTKP 

SV, JXTEM.JSTWP 

B.JEXITC 

CB, JXTEM,MCCOPY 

B,$ 



-RESET STACK 

-AND ViRITE POINTERS 

-EXIT 

-CONSOLE DOWN 



LI* 
le* 

ic, 
2C* 
21* 
22* 



SA0003_79 
"SA000380 
SA000381 
SA000382 
SA000383 
SA000384 



»»ft«»EPGK AND UK FIXUPS FOR COMMENTATOR »*«»« 



233444.40 
233445.00 
233445.40 



000012. 
233455, 
233446, 



11 02 
51 50 
51 01 



M CHECK 



LCI,JXTEM,10 
SC, JXTEM.MCTR 
LVI,JXTEM,MCHK1 



-RETRY IC TIMES 

^SE;L JN[EW^ jF I_X U P ENTRY 
-FOR COUNTING 



23* 
2^* 
25* 
26* 
27* 
2t* 



233446^00 
233446. 4C 
233447.00 
233447.40 
233450.00 
23345C.4G 



233426, 
233455, 
OOCCOl. 
233455. 
233430, 
233450. 



51 
"5C 
11 
51 
30 
5C 



DO 
50 
08 
50 
40 
CO 



Ay.ALJXIEM»MCHKB 
LCJXTEM.MCTR 
C-I,JXT£M,1.0 
SC,JXTEM,MCTR 
BZXCZfMCHKR 
B,$ 



SA000385 

SA000386' 

SA000387 

SA000388 

SA000389 

SA000390 



M CHK 1 



2S* 

"3C« 

31* 

32* 

33* 
34* 



SA000391 
SA000392 
SA000393 
SA000394 
SA000395 
SA000396 



««*«» MISCELLANEOUS COMMENTATOR SYMBOLS «•*•» 



233451. CC 0CC00C.00+ 000 
233452.00 232630.00+ 000 
233453.00 » CCCO0C.OO+ CCO 



000000 OCCCOO M CCWD 
000003 233453 JSCWCl 
COCOOO OCCCOO JSCWD2 



XW,C 
XW,SLITES,3.CtJSCWD2 

xw,c 



-LIGHTS CONTROL WORD 
■2ND CONTROL WORD 



35* 
"36"* 
37* 
38* 
39* 
4C* 



233454 
233454 
233455 
233455 
233456 
232630 



.CC__ 
.40 
.00 
.40 
.00 * 
.00 + 



2_3 3 4 7 6 . C_C + 
233476.00+ 
CGC012.30+ 
0C00CG.0O+ 

000020. CO 
__+_0_C_CO_0_0_CO 

00C170.CC 



JSTKP 

JSTWP 

JMESM 

M CTR 

JCEXRG 

SLITES 



VF, J STACK 
VF,JSTACK 
VF, 10.24 
VF,G 

DR(N), (16} 
SYN.PONOUT 



■STACK POINTER 
■WRITE POINTER 

-MAX MESSAGE 

-COUNTER FOR UK 

■SAVE INDEX REGS. 

^CCfiSOLE 

■STACK 



SAqqq397 

SA0003g8~ 

SA000399 

SA000400 

SA000401 

SA000402 



SIZE 
AND EPGK 



ON COMMENTATOR 



BU,1CG,10 



DISPLAY LITES 



41^* 
42* 
42* 
44* 
45* 
46* 



233476, 
233666. 
233666, 

233666, 
233666. 

233666, 



00 

00" 

01 

02 

03 

04 



JSTACK 

JWAIT 

JIF 

JRECEP 

JSTKBT 

JIOBSY 



DR(N)^^{ JSIZS] 

0D(EU,1>,0 

DD{8U, 111,0 

0D{8U*1},0 

DD(BU,1),0 

DD(BU,1),0 



5*000403 
"SA000404~ 
SA000405 
SA000406 
SA000407 
SA000408 











■J/Pl _B_US Y _I_F _EQUAL JO 

■C_L_AAS_ _1 _S U B RCUJINEI NO EX 
-CLASS 2 SUBROUTINE INDEX 
-INDEX CONTAINING CHAN. NO. 
-TEMPORARY INDEX 



41* 
4 8* 
49* 
5C» 



00CG21, 
000022^ 
000023. 
000024. 



00 + 
00 + 
00 + 
00 + 



+000000 CO 
+OCGOOOCO 
+OCCOOOCO 
+OCCOOOCC 



8U,1CC,1C_ 
6U, 100,10 
BU,100,10 
BU,1CC,1G 



JXIN 1 
JXIN 2 
JXCNSL 
JXTEM 



SYN^Sl 

"SYN,$2 

SYN,$3 

SYN,$4 



SA00q409 

'SA000410" 

SA000411 

SA000412 



'Nfll 



L 



TIME CLOCK CCC54C41 PUMD IIDIIHCP CARD 


ID SA000414 DIST. OF 3/Cl 


3/01 


PAGE NUMBER 310 


- 


LINE LOCATION 


BINARY 


OUTPUT 


NAME 


STATEMENT 




LOCATION 000025 




1* 
1* 

2* 
4» 


000025.00+ 
O0GO26.CG+ 
0GC027.00+ 
00CG30.G0+ 


+0O00O0C0 
+OO0QO0CC 
+00CO0OG0 
+OGCCOOGO 


BU,1CC,1C 
BU,1C0,10 
BUtlCClO 

BU,1C0,IC 


JXTEK 2 
MXIN 1 
MXIN 2 
f'XCST 


SYN,$5 
SYN,$6 
SYN,$7 
SYN,$8 


-TEHP INDEX 
-SUBROUTINE INDEX 
-SUBROUTINE INDEX 




SA000414 
SA000415 
SA000416 
SA000417 


5» 


00GG31.GG+ 


+OCCOOGGC 


BU,1GC,1G 


?^XUST 


SYN,$9 






SA000418 


i* 
1* 

1C» 


0GCC32.CC+ 
00CG33.C0+ 
000034.00+ 
000035.00+ 
00CGGC.C0+ 


+OGGOOOCG 
+OC00O0G0 
+00000000 
♦OOCOOOGC 
+00C0017G 


BU,IGG,10 
BUtlCClO 
8U,IC0,10 
BUilCClC 
NULL 


y-XUAT 
MXFAT 
MXSTK 

Mxcum 

J SIZS 


SYN,$10 
SYN,$ll 
SYN,$12 
SyN,$13 
SYN,120 


-LENGTH 


OF STACK 


SA000419 
SA000420 
SA000421 
SA000422 
SA000423 


11* 


00C17C.C0+ 


+0CCC00C0 


NULL 


J SIZSW 


SYN,120.C 


-LENGTH 


OF STACK IN WORDS 


SA000424 


12* 

13* 


215006. 00+ 
216242.23+ 


+0CCG0OGO 
+OCGCOOCO 


B ,31 ,01 
8U,4C ,10 


J CNAD 
J KSUPB 


SYN,SYCOCH 
SYN,KSUPP.19 


-BRANCH IN KSUPP 




SA000425 
SA000426 
































- ^ " 












•'■''■ ■ 



'Kai 



IIME CLOCK CCC54C41 



PUNID ilDllMCP 



CARD ID SBOOOOOl 



DIST. OF 3/Cl 



3/01 



PAGE NUMBER 311 



LINE 



LOCATION 



BINARY OUTPUT 



NAHE 



STATEMENT 



LOCATION 



1» 
2« 

2* 
A* 






233666.05 
2 3 36 66. 4C 
233667. CO 



— «««««««««« 
SLC 

CNO 






«««»• DISK FETCH «*•»»«*»«»♦•»»«•««» 



SBOOOOOl 
SB000002 
SB000003 
SB000004 



f » 

1* 

E» 

S» 

IC* 



0GCCCG.30 CO 



SB000005 
"SB000006 
SBOOOOOl 
SB000007 
SB000008 
SB000009 



46000522CCCGCOO XTENTB 



233667 
23367G 
233676 



.55 
.00 » 
.00 



000006.00 
2_3^3667.q4 
231164.22 



0467574 

80233677. 74 02 

CO 



DD( 
EXT 
B, 
DRZ 
C FETCH 88, 



BU,45),(8)460CC522C0CCG0C 

(0,18) 

C FETCH 

(BU,64), (6) 

XTENT8+.4,$+l.32 - SET MAJOR PACKAGE BUFFER 



n* 

12« 
13* 
14« 

15* 
16* 



233677 
233677 
233700 
233701 
233702 
233702 



.00 
.4C 
.40 
.40 
.00 
.4C 



Z^YJ^PSAV 

"TI, 11, $C, C LR 
BBZ, $ + 0.53, 
LVE,i, X TENTB 
SV,1, C BETA 
LVE,1, X TENTB 



SBOOOOIO 
"SBOOOOll^ 
SB000012 
SB000013 
SB000014 
SB000015 



000020. GO 
233701.25 
233673. C3 
234211. C3 
233673.43 



80 
80 
BO 
30 

BO 



234363.26 AC 
234165.34 06 



C SCNOP 



C NDX F 
♦ 4.0 

+ 4.32 



■SAVE LOWER REGISTERS 
-BRANCH AND RESET TO SIC, NOP 



lfc» 
1S» 
2C* 
21» 
22* 



233703 
2337C3 
233704 
233704 
233705 
233706 



.40 
.00 
.40 
.GO 
.00 



234211.43 
233674. C3 
234213.43 
234212. C3 
233672. CO 
234220.00 



30 
80 
30 
30 
80 
80 



LVE 
SV, 
SV, 
L{B 

K(B 



1,0 GAMMA 
,1, X TENTB 
1, C DELTA 
1, C N 

U,48), OS AR 
U,48), C FOT 



§8000016 
"SB000017~ 
SB000018 
SB000019 
SB000020 
SB000021 



060050.20 50 

060050.21 10 



+ 5.0 

TY, -48 
, -48 



-SAVE ORIGINAL VALUE OF N IN C DELTA 

-IS THIS A REQUEST FOR THE SAME 

-TYPE-AREA AS LAST TIME 

-IF SO, GO TO C FAST 



22* 
2^» 
25* 
26* 
21* 
2£* 



233707 
233707 
23371C 
233710 
233711 
233711 



.CO 

".4G" 

.CO 

.40 

.00 

.40 



234044.36 
234212.42 
233710.50 
233724.50 
233716.10 
233712.50 



C2 
30 
01 
00 
CO 
CO 



BAE^^ C FAST 
LV,1, X NFOST" 
8, $+0.32t$l) 
B, X NDX LK 
e, X Die LK 
B, X MAP LK 



56000022 
"SB000023" 
SB000024 
SB000025 
SB000026 
SB000027 



-INDEX SEARCH 
-DICTIONARY SEARCH 
-BUFFER MAP SEARCH 



29* 
"3C» 
31* 
32 » 
33* 
34* 



233712 
233712 
233713 
233713 
233714 
233714 



,C0 

140' 

.00 

,40 

,00 

,40 



233724.50 
233672.06 
234272.13 
234216.12 
234156.00 
234150.10 



00 
"10 
01 
50 
80 
GO 



Bf__ 

X MAP LK LX, 

LVI 

LC, 

SIC 

B, 



X NDX LK 

3, OS ARTY 
,5,0 BF NAP 
5, CNT BUF 
, X G08AK 
X 2WD LK 



-INDEX SEARCH 



Se000028 
SB000029 
SB000029 
S8000030 
SB000031 
S8000031 



-IS CS ARTY IN BUFFER MAP 



3J* 

36* 
37* 

3e« 

39* 
4C» 



233715 
233715 
233716 
233716 
233717 
233717 



,CC 
^40 
,00 
,40 
,00 
,40 



233724.71 
234042.10 
233672. C6 
235464.06 
233724.72 
000000.07 



42 

GO 
10 
90 
42 
04 



BXV 

B, " 

X CIC LK LX, 
KV, 
BXL 
KVI 



Z, X NDX LK 
BUFT 
3, OS ARTY 
3, C CSK BF 
, X NDX LK 
,3, CO 



rJiLJLL_lSN^T^ GO TO INDEX 
-IF IT IS, GO TO BUFT 
-SEE IF CS ARTY IS IN THE 



SEARCH 



SBqq0032 

SBO0d033" 

SB000034 

SB000035 

SB000036 

SB000037 



Alt 

42* 
42* 



233720, 
233720, 
233721 



00 
40 
CO 



233721. 7^2 
236462.06 
233724.73 



C2 
90 
42 



8XE,_ $ + 1.32 
"KV,3, C DSK BF + 
BXH, X NDX LK 



58000038 

"SB000039" 

58000040 



510.0 



'HSI 



TIME CLOCK CCC54C41 



PUNIC IIDIINCP 



CARD ID S8C00042 



DIST. GF 3/Cl 



3/01 



PAGE NUMBER 312 



LINE 



LOCATION 



BINARY CUTPUT 



NAME 



STATEMENT 



LOCATION 



233721 



1» 

2» 
2 * 
A* 



233721 
233722 
233722 

233723 



.40 
.00 
.40 

.00 



235464. 
C004G0. 
234156. 

234150. 



13 01 

13 02 

00 80 

10 CO 



LVI,5, C DSK 
LCI, 5, 256 
SIC« X G08AK 
B, X 2V«D LK 



BF 



-DICTIONARY ARC IN THE BUFFER 



SBC00042 
SB000043 
SB000044 
SB000044 



i» 
s» 

1C« 



2 33723 
233724 
233724 
233725 
233726 
233726 



.00 
.40 
.40 
.00 

.40 



23 3724 5^ 
233753. 
233672. 

COCCIO. 
234222. 
00CC50. 



Zl_^2 

50 00 
00 80 
C6 30 
05 01 
13 01 



LK 



BXVZ, X NDX 

"b, XCPT RD 

L(8U»12), CS ARTY, -12 
LV,3, $L 
LVI,2, C INDEX 
LVI,5,40.C 



• Ui NO T J Gg_ Tp_ i NP_E_X_ AEARCH. 
-IF IT IS, GO TO XCPT RD 
-INDEX SEARCH 
-SET UP PARAMETERS FOR 
■BINARY SEARCH OF INDEX 



SB000045 
"S8000046 
SB000047 
SB0G0048 
SB000049 
SB000050 



014072.20 50 



X NDX LK 



lit 
12* 
12* 
14* 
15» 
16* 



233727 
233730 
233730 
233731 
233732 



•0C_ 

.40 

.00 

.40 

.00 

.00 



_2_3414g. 
234144. 
234076. 
234215. 
000000. 
233734. 



50 CO 
31 42 
53 30 
40 85 
40 80 



SICtX_GgBK 

B,X SG SCH 
BXVZ, C URD 
SV,5, C NDX AD 
L{BU,12), 0.32($5), 
S I L E U 1 1 8 J , _ _$_+^ ^2_._3_2_,_ 



seggppsi 

S8000051 
S8000052 
SB000053 
SB000054 

SBC00C55 



014067.20 50 
022067.20 CO 



-18 
-18 



■TYPE NOT IN INDEX 

-VF $5 ADDRESSES INDEX ENTRY FOR TYPE 

-SET ARC ADDRESS IN CALLING SEQ 



U* 
1£« 
IS* 
2G» 
21* 
22* 



2337_3_3 
233733 
233734 
233734 
233735 
233736 



•_cc_ 

.40 
.00 
.40 
.00 
.00 



0_0_CC4p. 
CCCC03. 
COCGOl. 
COCOOO. 
234214. 
234402. 



lo_gg 

01 tiO 

CO 80 

CO 80 

00 80 

CO 80 



Et_C_MC 

, C LC 

, PROS 

t C 

SF{BU,1 

SKBU.l 



P 

CS 
A 

2),CBUFF,-18 
81iCLUKj-18 
CC RD, CVi RD 



-LOCATE ARC A{TAk«A) 



SBgppp56 
S8000057 
SB000058 
SB000059 
SB000060 
SB000061 



014067.12 FO 
022067. 2G_pp_ 
234416.02 AO 



23t 
21* 

25* 
2£» 
27* 

2t» 



233737 
23374C 
233740 
233741 
233742 
233742 



.00 
.CO 
.40 
.00 
.00 
.40 



-2342PX' 
234164. 
234157. 
234210. 
COOCOO. 
234212. 



00 _8p 
CC 80 
10 00 
CO 80 
43 01 
43 30 



SfCCRD 
B,C REA 
8B,ADSK 
LVI,1,1 
SV,1, X 



-READ AN ARC OF THE DICT INTO 



SBpggg62 

SB000063 
S8000063 
SB000064 
SB000065 
SB000065 



233741.34 02 



BR 

D 

R0,$ 



-BUFFER WHEN CS ARTY NOT FOUND IN 
-BF MAP 



NFOSJ 

NDX AD 

, 0.44($1), - 

, 1.44C$1), - 

NARK 

L 

BU,1),$6.24 



2il 
3C* 
31» 
32* 

33* 
34* 



233743 
233743 
233744 
233745 
233746 
233746 



•Op 
.40 
.40 
.00 
.00 
.40 



_2_3A2_IA. 

COOCCO. 
COOCIO. 
OOOCOl. 
234C60. 
COCCIO. 



^_2__3P 
54 81 
12 30 
54 81 
34 C2 
14 30 



LV,_1, C 
L(8U,9) 
LV,5,$L 
L(BU,9) 
8RZ, C 
LV,6,$ 



SB0Ggg66 
"SB000067' 
SB000068 
S8000069 
SB000070 
SB000070 



011067, 2C 50 
011067. 2C 50 



C ROCfc 



18 -SEARCH FOR CS ARTY AMONG THE DICT 
-ENTRIES FOR THE GIVEN TYPE 

18 '"'" 



35^* 
"36* 
37* 
3£» 
3S» 
40* 



233747 
23375C 
23375C 
233751 
233151 
233752 



• eg 

.00 
.40 
.00 
.40 

.00 



CP_C_C_2_6_« 
C0CC25. 
C00G26. 
235464. 
233672. 
234156. 



3.0_ _8 
14 BO 

12 50 

13 05 
C6 10 
CO 80 



001000.36 FO 



_CMl_llli 
V+,6, $5 

LC,5, 
V-H,5, 

LX,3, 
SIC, X 



58000071 
SB000072 
SB000072 
SB000073 
S8000073 
SB000074 



S6 

C DSK BF 

CS ARTY 

G08AK 



Alt. 

42* 
43* 
44* 
45* 
46* 



233752 
233753 
233753 
233754 
233754 
233755 



.00 
.40 • 
.00 
.40 

.00 



J„3A1_5_0_. 
234C76. 
234215. 
OOCCOO. 
234220. 
CCCCOl. 



l_0_GO 
31 42 
13 30 

10 15 

11 10 
10 15 



__B»__X„2 
BXVZ, C 
SV,5, C 
LX,4,0. 

SX,4, 
LX,4, 1 



WD LK 

URD 

DICT 
C{$5) 

C FOT -FORM 
.0($5) 



SB000g74 
SB000075 
SB000076 
SB000077 
SB000077 
SB0000 78 



XCPT RD 



-BRANCH IF CS ARTY NOT IN DICT 
-SAVE ADDRESS OF DICTIONARY ENTRY 



C FOT 



47* 

4e* 

4S* 

5C* 
51* 



233755 
233756 
233756 
233757 
233760 



•:^0_ 

.00 

.40 

.40 

i4C 



_2_3A2_2_1, 
OOOGIO, 
234211. 
233762, 

000040. 



11 30 

00 80 

C6 80 

10 CO 



_SX!.^l 

SV,4, $ 
-K8U, 18 
ST(eu,l 
B, C MC 



C_FgT_+__l_.C__ 

L 

), C BETA, -2 

2), $ + 2.38, 

P 



SBpggpje 

'S8600079~ 
SB000080 
S6000081 
SB000082 



022065.60 10 
014072.20 DC 



1 -BETA PLUS ARC-V«ORD IS ALPHA 
-12 -SET ARC ADDRESS IN CALL SEC 



»Kai 



TIME CLOCK 0GC54C41 
LINE" ""location" 



PUNID IIDUFCP CARD IC 58000084 OIST. OF 3/01 

BINARY"CUTPU"T hAHE STATEMENT 



3/01 



PAGE NUMBER 313 
1 C A T"I C"N ^2"3 37 6 1" 



1» 
2* 

3* 
A* 



233761 
233761 
233762 
233762 



.00 
.40 
.00 
.40 



000003 
OOOCCl 
GOOCOO 
234214 



.01 80 

.CO 80 

.00 80 

.00 80 



014072.12 F C_ 
014072. 2 C__C_C_ 
025065.60 DC 
411065.63 10 



, LOCS 
, PRQSA 
, 
SF(BU,12),CBUFF,-12 



S8000084 
SB000085 
SB000086 
56000087 



5« 
i* 
1* 

1C» 



233763 
233764 
233765 
233766 
233767 
233767 



.40 
.40 
.40 
.40 
.00 
.40 



234402 
234213 
000000 
234C67 
000025 
C0CC25 



.C6 80 

.CO 80 

.00 80 

.36 C2 

.14 30 

. 16 30 



ST(^8U,12j, CL UK + .06 ,-12 
ST{BU,21), C ALPHA, -21 
KFI(BU,9), 0, -21 
8AE, C ALFZE 
LV,6,$5 
LV,7,$5 



SB000088_ 

SB000089 

SB000090 

SB000091 

SB0G0092 

SB000092 



-BRANCH IF WtALPHA IS ZERO 



11* 
12* 
13» 
14* 
15* 
1«» 



233770 
233771 
233771 
233772 
233772 
233773 



.00 
".CO 
.40 
.00 
.40 
.40 



COCCOl 
235464 
233774 
C00C02 
OOCOOl 
233771 



.00 85 

.15 04 

.72 C2 

.15 00 

.00 86 

.36 C2 



014072.20 50 



L{BU,12], 1.0($5), -12 

X TO LK Kyi,6, C DSK BF 

BXE, X FRO LK 

V-I, 6,2.0 

K(BU,12), 1.0{$6), -12 

BAE, X TO LK 



S BO 00093 
"SB000094" 
SB000095 
SB000096 
SB000097 
SB000098 



014072.21 10 



■LOOK FCR FIRST ENTRY IN BUFFER 
•WITH ABC ADDRESS DIFFERING 
■FROM THAT IN ARC FIELD 
•AOORESSED BY l.0($5) 



11? 

1€* 
IS* 
2C» 
21* 

22* 



233774 
233774 
233775 
233775 
233776 
233777 



.CC_ 

.40 

.00 

.40 

.00 

.00 



_0_0_OC02 
236462 
233777 
00CC02 
000001 
233774 



.15 05 

.17 04 

.72 C2 

.17 05 

.00 87 

. lb C2 



V + I,6, 2j.C 

"KVI,7, C CSK BF + 51C.0 
BXE, XIT 
V+I,7,2.0 

K{BU,12), 1.0{$7}, 
BAE, X FRO LK 



SB000099 
SBOOOIOO 
SBOOOlOl 
S8000102 
SB000103 
SB000104 



X FRO LK 



014072.21 10 



12 



23# 
2<» 
25* 
26* 
21» 
26* 



233777 

234000 
234000 
234001 
234001 
234002 



.40 

.00" 

.40 

.00 

.40 

.CO 



2 34C_00 
23"4G00" 
000026 
C0G050 
234130 
000010 



.15 DO 

.15 09 

.16 BO 

.17 04 

.73 42 

.17 30 



XIT 



_S_VA^6 

LVNI 

V+,7, 

KVI,7 

8XH, 

SV,7, 



,$+0.32 
, 6 , $ 

$6 
, 40.0 

X LIMIT 
$L 



SB000105 
"SB000105" 
S8000106 
SB000107 
SB000107 
SB000108 



2i» 
3C» 
31* 
32* 

-* w ^ 

34* 



234002 
234003 
234004 
234005 
234006 
234006 



.40* 

.40 

.00 

.00 

.00 

.40 



234216 
000027 
000026 
000000 
OOOCOl 
234130 



.01 80 

.14 50 

.30 80 

.00 86 

.03 01 

.00 80 



021067.60 DO 



_ST(_BU^17)i,CNT B U F_ _+_ 0_._C_l_f_ _-_ U 
"lC,6, $7 

CMOCOO(eU,ll), $6 + 

T, $6, O.CC$6), C 

LVI,1,2 

SIC, CHEKT 



SBOGOlOg 
"SBOOOllO" 
SBOOOlll 
SB000112 
SB000U3 
SB000114 



OOIOOO.OC FO 
234272.14 20 



X TRAN 



C PRERD 



0.24 
BF MAP 



3J» 
36* 
37* 
3fc» 
3S» 
4C* 



234007 
234007 
234010 
234011 
234011 
234012 



.00 

.40" 

.40 

.00 

.40 

.40 



234102, 
234207. 
234164. 
234157, 
234213. 
000010. 



1C_ C_0 
CO 80 
CO 80 
10 CO 
14 80 
16 30 



B, CHK PAR 

TI, 1,CW DC RU,CW R 

SlCfC RD BR 

B, CREAO -INTO 

LN(BU,9), C ALPHA 

LV,7,$L 



58000114 
"S8000115 
SB000116 
SB000116 
S8000117 
5B000118 



234416.02 AC 



011067.30 50 C INTER 



D 

BUFFER 
+ 0.12, 



-FETCH ONE ARC OF INFORMATION 



-18 



41* 
42* 
42* 
4<* 
45* 
46* 



234013 
234013 
234014 
234015 
234016 
234C16 



i99 
.40" 

.40 

.00 
.00 
.40 



235464. 
001000. 
COOCIO. 
234210. 
234212. 
234213. 



17 05 
CO 80 
14 30 
00 80 
43 30 
54 90 



_y.tl»_I»__?_QSK BF - 
"+I(EU,18), 512, -1 
LV,6,$L 
BB,A DSK RD,$ 
SV, 1,X N FOST 
KV,6, C DELTA 



V F $J HOLDS C DSK BF + W j ALPHA) 

8 -VF$6 HOLDS 512 - V«(ALPHA)" 



rJA _N .l; I § § _ 1 1* A N 5 1 2 - _WJ ALPHA) 
-BRANCH IF IT IS 



SBOOOlla 
"SB000119" 
SB000120 
SB000121 
SB000122 
SB000123 



422067.20 10 
234015.34 02 



"4£* 
45* 
5C* 
51* 



234017 
234017 
23402C 
234020 
234021 



.00 
.40 
.00 
.40 
.00 



234C75. 
00CC26, 
234211. 
2342X3. 
234021, 



32_40 
20 30 
60 80 
62 30 
55 00 



BZXLi^ C SET J 

"LV,8,$6 

V+,8, C GAMMA 
LV,9, C DELTA 

S¥A,6, $+0.32 -N 



SB000124 
"SB0C0125" 
SB000125 
SB000126 
SB000126 



GAMMA + 512 - h(ALPH) IN VF $8 
- 512 + WtALPHA) IN CF$8 



'Nai 



c 



TIME CLOCK CC05AGA1 PUNID 


IIDIIJ'CP CARD 


ID 


SB000128 DIST. OF 3/Cl 3/01 PAGE NUMBER 31A 


LINE LCCATICN 


BINARY OUTPUT 




NAME 


STATEMENT LOCATION 


23A021 


1* 
2* 

3* 
4« 


23A021.A0 
23A022.C0 
23AC22.A0 
23A023.G0 


CCC000.23 
COCC31.20 
C00000.20 
23A217.2I 


00 
50 
70 

10 








V-I,9, CO 
LC,8»$9 

LR,8,$Z -CLEAR RF $8 
SX,8, CW DISK 


SB000128 
SB000129 
SB000129 
SB000130 


t* 


23A023.AC 


23AA02.CC 


80 


022000.22 BO 






M+I(BU,18),CLyK 


SB000131 


e* 
#• 

s* 
ic* 


23A02A.A0 
23AC25.A0 
23A026.A0 
23A027,CC 
23A027.AC 


23A217.CG 
23A205.A0 
000026. lA 
23AC31.30 
23A211.60 


80 
80 
50 
A2 
30 


23AA16.C2 AG 
001000.36 FO 


C 


T 


TI,1,CWDISK,CV«RD 
CMllUtYNRBIT 
LC,6, $6 
8XCZ,$+2.0 
LV,8, C GAMMA 


SB000132 
SB000133 
SB00013A 
S8000135 

SB000136 


11* 


23AC3C.00 


CGCCOO.CO 


87 


000000. lA 28 






T, $6, C.0<$7), C.0{$8) 


SB000137 


12* 
12* 
l^* 
15* 
If 


23A031.C0 
23AC31.A0 » 
23AC32.AC 
23A033.00 
23A033.AC 


23A2I2.C2 
23A2C5.A0 
23AI6A.CC 
23A157.10 
23A210.CC 


30 
80 
80 
00 
80 


23A03A.7A OA 
23A033.7A 02 






LV, 1,CN 

BZBZ,YNRBIT,$+3.C 

SICCRDBR 

B»CR£AD 

8B,ACSKRD,$ 


SB000138 
SB000139 
SBOOOIAO 
SBOOOIAO 
SBOOOIAO 


17* 


23A03A.AC 


G00CG0.G3 


OA 








KVI,1,0 


Sboooiai 1 


1£* 

is* 

2C» 
21* 

22* 


23AC35.CC 
23A035.A0 
23A036.00 
23A036.AC 
23A037.CC 


23AC37.32 
23A213.A2 
23A212.C2 
23ACA0.32 
23A213.AA 


C2 
30 
90 
C2 

30 


' 






8XE, X RETN - l.C 
LVfl, C DELTA 

KV,1, C N 
BXE, X RETN 
LV,2, C DELTA 


SB0001A2 
SB000143 
SB000143 
SBOOOIAA 

SB0001A5 


22* 


23A037.A0 


23367A.A5 


30 








SV,2, C N PRIM 


SB0001A5 


2A* 
25* 
2€* 
21* 
2i* 


23A0A0.CC 
23A0A1.GC 
23AGA1.A0 
23AOA2.00 
23A0A2.AG 


23A363.GC 
OOCOAO.IO 
OOOOAI.OO 
000000.06 
23A220.C7 


80 
00 
80 
15 
10 


000020.26 AC 


XRETN 
C BUFT 


TI, 11, C LR,$0 
B, C MCP 

, S D RET 
LX,3, 0.0($5) 

SX,3, C FOT 


SB000146 
SB0001A7 
SB0001A8 
S80001A9 
SB0001A9 


29* 


23A0A3.GG 


C0CC01.C6 


15 








LX,3, 1.0{$5) 


SB000150 


3C« 
31* 
32* 

33* 

34* 


23A0A3.AC 
23A0AA.00 
23A0A5.0C * 
23AGA6.GC 
23A0A7.CG 


23A221.C7 
23A22L.C0 
23A211.C0 
23A2I3.C0 
23A2IA.C0 


10 
80 
80 
80 

80 


025065.60 50 
022065. 6C 10 
025065.60 CO 
01A072.23 10 


C 


FAST 


SX,3, C FOT + l.C 
L{BU,2l), C FOT + l.C, -21 
+ (BU, 18), C BETA, -21 
ST{BU,21), C ALPHA, -21 
KF{BU,12),CBUFF,-12 


SB000150 
SB000151 
SB000152 
SB000153 
SB00015A 


35* 


23A050.00 


23AC61.36 


C2 








8AE, C NGLOC 


SB000155 


36* 
37* 
3€* 
39* 
AC* 


23AC5C.AC 
23AC5I.A0 
23AC52.CC 
23A053.00 
"23AC53.AC 


000000.00 
23A063.36 
23A05A.A6 
OOOOAO.IO 
000003. CI 


80 
C2 

80 
CO 
80 


A11065.63 10 
01A072.20 CO 






KFI(BU,g), 0, -21 
BAE, X LC ALF 
ST(eU,12), $ + 2.38, -12 

B, C MCP 
,D LOGS 


SB000156 
SB000157 
SB000158 
SB000159 
S8000160 


Al* 


23AC5A.G0 


OOOCCl.CO 


80 








, PROSA 


SB000161 


A2» 
A3* 

AA» 
A 5* 
A6» 


23AC5A.A0 
23A055.CC 
23A056.0C 
23AC57.C0 
23AC57.A0 


CGCCOO.CO 
23A2IA.CC 
23AA02.C6 
00CC01.A3 
23AC06,50 


80 
80 
80 
01 

00 


01A072.12 FO 
01A072.20 CO 






, c 
SF(EU,12),CBUFF,-12 
ST(BU,12),CLUK+.06,-12 
LVI,1,3 

B, C PRERC 


SB000162 
SB000163 
SB000164 
SB000165 
SB000166 


A3* 


23AG60.0G 


C0G776.15 


01 




C 


NARK 


LVI,6, 51C.0 


SB000167 


A€» 
AS* 
5C* 


23A06C.AC » 

23AC6I.0C 

23A061.AG 


2337A7.1C 
23AI30.G0 
23AI02.10 


00 
80 
00 




C 


NGLOC 


B, C RODE + 3.32 
SIC, CHEKT 
B, CHK PAR 


S8000167 
Sfi000168 
S800016B 







>NflI 



TIME CLOCK CCC54C41 PUNID 


IIDIIMCP CARD 


ID SB000170 DIST. OF 3/Cl 


3/01 PAGE NUMBER 315 




LINE LOCATIGN 


BINARY OUTPUT 


NAME STATEMENT 


LOCATION 234062 




1* 234062.00 
i* 234062.40 
3» 234063. CO 
<i* 234064. CO 


C0CCC1.G3 
234011.50 
234065.46 
C0CC40.i0 


01 
CO 
80 014072.20 DO 

00 


LVl,$l,l. 
B,CINTER 
X LC ALF ST(BU,12), $ + 2.38, -12 
B, C MCP 




SB000170 
SB000171 
38000172 

SB000173 


5* 234064.40 


00CC03.O1 


80 


, C LOCS 




SB000174 


t» 234065.00 
<* 234065.40 
6* 234066.00 
S« 234067.00 
1C» 234067.40 


COOGOl.CC 
0000X30.00 
234402.06 
234130.00 
234102.10 


80 

80 

80 014072.20 DO 

80 

00 


, PRGSA 
, 
ST(BU,12),CLUK+.C6,-12 
C ALFZE SIC, CHEKT 

B, ChK PAR 




SB000175 
S8000176 
SB000177 
SB000178 
SB000178 


11* 234070.00 


234211.50 


30 


LV,4, C GAMMA 




S8000179 


12* 234070.40 
13* 234071.00 
14» 234071.40 
15* 234072.40 
le* 234073.00 
i?» 234073.40 * 


234213.50 
234217.11 
234217.00 
234164.00 
234157.10 
234210.00 


50 
10 

80 234416.02 AC 
80 
00 
'aO 234073.74 02 


LC,4, C DELTA 
SX,4,C W DISK 
TI, 1,CW DISK.Ck RD 
SICC RD BR 
B,C READ 
BB,A DSK R'D,i" 




SB000179 
SB000180 
SB000181 
SB000182 
SB000182 
SB000183 


If* 234074.40 
19* 234075.00 
2C» 234075.40 
21* 234076.00 
22* 234076.40 


234031.50 
234213.54 
234027.50 
233670.42 

000001.03 


00 
50 
00 
30 
OD 


B, C T + 2.0 
C SET J LC,6, C DELTA 

B, C T 
C CRD LV,1,C NORM 

V-I,l,2 




S8000184 
SB000185 
SB000186 
SB000187 
S8000188 


23* 234077. GO 


233670.43 


30 


SV,1,C NORM 




SB000189 


24* 234C77.40 
25* 234100.00 
26* 234100.40 
21* 234101.40 
2t* 234102.00 


CCCC00.C3 
233674.43 
234214.00 
234040.10 
233670.54 


01 

30 

80 014000.36 FO 

00 

30 


LVI, 1,0.0 
SV, 1,C N PRIM 
CM1111(BU,12),CBUFF 
B, X RETN 
CHK PAR LV,6,C NORM 




Sfi000190 
SB000190 
SB000191 
SB000192 
SB000193 


29* 234102.40 


234221.04 


10 


LX,2,C FOT+l.C 




SB000194 


3C* 234103.00 
31* 234103.40 
32* 234104.00 
33* 234104.40 
34* 234105.00 


000023.05 
234104.70 
777777.47 
234211.00 
234105.41 


50 
40 
01 
30 
DO 


SC,2,$3 

BZXCZ,$+1.0 

LVI, 3, (81777777.40 

LV,C,C BETA 

SVA,0,$.32 


-SIZE IS IN CF $2 


S8000195 
S8000196 
SB000197 
S8000198 
S8000199 


35* 234105.40 


234105.47 


OD 


V-I,3,$ 


-SIZE-BETA IS IN VF $3 


SB000200 


36* 234106.00 
31* 234106.40 
38* 234107.00 
3?* 234107.40 • 
4C* 234110.00 


234110.31 
000000.55 
233670.55 
234076.10 
234211-52 


C2 

05 
30 
00 
30 


BXVGZ,$+2. 
V+I,6,l 
SV,6,C NORM 
8,C URD 
LV,5,CGAMMA 


, 


SB000201 
SB000202 
S8000203 
SB0002G4 
SB000205 


41* 234110.40 


233667.04 


80 234113.74 02 


BB,XTENTB.4,$+3. 




SB000206 


42* 234111.40 
43* 234112.00 
44* 234112.40 
45* 234113.00 
4e« 234113.40 


215324.10 
234112.53 
234112.51 
234076.31 
234212.16 


30 
DO 
00 
CO 
30 


LV,4,SPPU8 
SVA",5,$.32 
V-I,4,$ 
BZXVGZfCURD 
LV,7,C N 


-VF $4 HOLDS $UB-CORE FWA 


SB000207 
S8000208 
SB000209 
SB000210 
SB000211 


47* 234114.00 


000023.16 


90 


KV,7,$3 




SB000212 


4£* 234114.40 
49* 234115.00 


234115.73 
234116.71 


42 

40 


8XH,$+1. 
BZXVZ,CNNOTO-l.O 




SB000213 
SB000214 

















*KflI 



TIME CLOCK 000540^1 
LINE location" 



PUNID IIDIINCP CARD IC SBC00216 DIST. GF 3/Cl 
BINARY^GUtPU"! NA>"E STATEMENT 



3/01 



PAGE NUMBER 316 
L OC A T rc~N 234115 



1* 
2* 

2* 



234115 
234116 
234116 
234117 



.40 
.00 
.40 
.40 



000023.16 
0O0C0O.55 
233667.04 
CGCC24.16 



30 
OD 
80 234123.34 02 

90 



C NNGTO 



LV,7f$3 
V-I,6,l 

BB,XTENTB.4,C£NT 
KV,7,$4 



■OTHERWISE SET H REQUEST TO 
-SIZE-BETA 



SB000216 
SB000217 
SB000218 
SB000219 



1* 

1C» 



234120 
234120 
234121 
234121 
234122 
234122 



.00^ 

.40 

.00 

.40 

.00 

.40 



23412 3.33 
00CC24.I6 
233670.54 
234122. 72 

000000.55 
COCCOO.55 



40 

30' 

90 

CO 

OD 

00 



LV,7, 
KV,6, 
BZXE, 
V-I,6 
V-I,6 



C^_ENT_ 

$4 

C NORM 

$+1. 

,1 

,1 



S BO 00 2 20 
"SB000221 
SB000222 
SB000223 
SB000224 
SB000225 



-SET C NORM TO ERROR RETURN 



II* 
12* 
12* 
14* 
15* 
16* 



234123 
234123 
234124 
234125 
234125 
234126 



•P0_ 

.40 

.40 

.00 

.40 

.00 



_2_3^213._57 
233667.04 
215324.52 
234076.32 
000027.12 
215324.12 



30 



C ENT 



_SVLltC_CELTA 

BB,XTENTB.4,CHEKT-.32 

KV,5,SPPLB 

BXLfCURC 

V+,5,$7 

KVt5,SPPlJB 



SB00p226 
SB000227 
SB000228 
SB000229 
SB000230 
SB000231 



80 
90 
42 
80 
90 



234127.74 02 



11* 
1£» 
IS* 
2C« 
21* 
22* 



234J._26 
234127 
234127 
234130 
234130 
234131 



.00 
.40 
.00 
.40 
.00 



_2_3_4016._32 
231164.22 
233670.55 
234130.10 
b00C50.l5 
C0CC24.21 



00 
30 
00 
02 
01 



BZXL, 
Z,YNP 
SV,6, 
B,$ 
LCI, 6 
_LVI»_8 



cyRD__ 

SAV 

C NORM 



SBp0p2 32_ 

SB000233 

S8000234 

SB000235 

SB000236 

SB000237 



CHEKT 
X LIMIT 



40.0 

2G.g___ 

CNT BUF 



22* 
2A* 
25* 
26* 
27* 
2£* 



234131 
234132 
234132 
234133 
234133 
234134 



•30_ 

.00 

.40 

.00 

.40 

.00 



_2_3A2_1A«_2_1_ 
234005.10 
000024.12 
C0CC03.13 
000022.12 
234143.33 



IP 
GO 
30 
OD 
90 
40 



__sy-L8 

B, X 
LV,5, 
V-I, 
KV,5, 

BZXH 



SBpOp237 
SB0G0238 
SB000239 
SB000239 
S8000240 
SB000240 



X BN SCH 



TR 
$4 
5, 
$2 
»__ 
,3 



AN 

3.0 

X CERT 



-BINARY SCH FROM (VF$2) TO {VF$4) 
-SEQUENTIAL SCH LAST 3 ITEMS 



2i* 
3C« 
31» 

32* 
33* 
34* 



234134 
234135 
234135 
234136 
234137 
234137 



•5C 
.00 
.40 
.40 
.00 
.40 



G0_C_CC_3_._1_3_ 
C0CC22.12 
C0CC25.G0 
000010.12 
000000.06 
234142.33 



Q_5 
80 
80 
30 
95 
42 



V + ,5 
LCBU, 
LV,5, 
KV,3, 

BXH, 



.0 

$2 

I, *5, 

L 

.C{$5) 

HI 

3 LO 



S8000241 
"SB000241" 
SB000242 
SB000243 
■SB000244 
56000245 



021067.20 50 



t 

17 

$ 
C 

^A 

X 



-18 



-FIND AVERAGE ADDRESS 



JAt 

36* 
37* 
3t* 
39* 
4C* 



234140 
234140 
234141 
234141 
234142 
234142 



±cp 

.40 
.00 
.40 
.00 
.40 



234_1_4_1_«_3_2_ 
234140.50 
000025.10 
234132.50 
C0CC25.04 
234132.50 



^_2_ 

00 
30 
00 
30 
00 



B, $ ' 

LV,4, 

B« X 

LV,2, 

B, X 



seoqo245 

"S8000246" 
SB00024 7 
SB000247 
SB000248 
SB000248 



X GCBK 
X3 LC 

X3 HI 



$5 

BN SCH 

$5 

BN SCH 



-RETURN ON EQUALITY 
-LOWER UPPER BOUND 
-RAISE UPPER BOUND 



42* 
43* 
44* 
45* 
4e» 



234143 
234143 
234144 
234144 
234145 
234145 



•CO 
.40 
.00 
.40 
.00 
.40 



_C_0CC_0_3_._1_3 
234144.05 
000022,13 
000025.12 
C00C22.12 
C0CCOO.C6 



05 
DO 
OD 
50 
30 
95 



A_Q_EAT____VtI.»_5t_?*Q 

SVA,2, $ + 0.32 
V-I, 5, $2 
X SG SCH LC,5,$5 

LV,5,$2 -SEARCH 

KV,3,0.C{$5) 



SB000249 

SB000249' 

S8000250 

SB000251 

SB000251 

SB000252 



(CF $5J ENTRIES 
TVF ~$5ytH ViCRD 



47* 

4e» 

4S» 
5C* 



234146 
234146 
234147 
234147 



•CC_ 
.40 
.00 
.40 



_2_3_4_l_40t72 
234145.53 
C0CCC0.13 
234140.50 



C2 
48 
01 
CO 



B X E L _ X ^ G g BK- 8 EG_I_N_NJ_N_G„ A^ 
CB+,5, $-1.0 

LVI,5, CO 
B, X GCBK 



SB0pp252 
SB6o0253 
SB000253 
SB000254 



-RETURN VIA X GOBK 



'KHI 



IIME CLOCK 00054041 PUNID llDll^'CP 



CARD ID SB000256 



DIST. OF 3/Cl 



3/01 



PAGE NUMBER 317 



' r 

z 
z 

' ( 

9 

9 

^ ( 



01 
II 
Zl 
£1 
t^l 
SI 
91 
Zl 
81 
61 
OZ 



Ai\^E_.._LpCAJIC_N^ BINARY CUTPUT ^NAHE ST^liBlKT L0C~AT10N" 



234150 



1» 234150.00 
2* 234150.40 
2* 234151.00 
4» 234151.40 



000000.06 95 
234152.72 C2 
CGGC02.13 06 
234150.30 40 



X 2WD LK KV,3, G.0($5) 

8XE, X VFL LK -SEGLENTIAL SEARCH 
V+IC,5f2.C 
^1>^CI, X 2HD LK -CCMPARt VFS FIRST 



SB000256 
S8000256 
SB000257 
SB000257 



: » 

1 * 
£* 

9* 



2 34152.00 
234152.40 
234153.00 
234154.00 
234154.40 
234155.00 



234155^5000 
G00C10.C7 10' 
COOCOO.OO 85 
234156.36 C2 
CGCC02.13 C6 
234153. 30 40 



B, XGCBAK - C_.3_2 
SX,3, $L 

K(8U,4a),C.0($5), 

BAE, X GOBAK 

V+IC,5, 2.0 

BZXCZ, $-2.0 



S BOO 02 5 8 
"SB000259 
SB000260 
SB000261 
SB000261 
SB000262 



X VFL LK 



060050.21 10 



-48 



-THEN COMPARE FULL 48 BITS 



( 
( 

c 

( 

c 

( 

( 

( 

( 

c 

c 

c 

( 

c 

c 

c 

c 



11 



« 
12 i 
13* 

1^* 

15* 

ie» 



2 34155.40 
234156.00 
234156.40 
234157.00 
234160.00 
234161.00 



C_CCCCG. 13 01 
234156.10 00 
234156.60 00 
000024.00 80 
234210.40 80 
234210.00 80 



0.0 



_LVIt5, 

6, I 
BEM, % 

LI(8U,24),20.,1 
ST{eU,25),CUKCNT 
CM1111(BU,1),A DSK RC 



S BO 0026 3 
~SB000264 
SB000265 
SB000266 
S6000267 
SB0Q0268 



430000.60 50 
031000.20 DO 
001000,36 FC 



X GOBAK 
XTRCT R 
CREAO 

CRDl 



-ROUTINE FOR FETCHING RESTART AREA 



11* 

lei" 

15* 
20* 
21* 
22* 
23* 
24* 
25* 
26* 
2i» 
26* 
"2S» 



234162.C_0 
234162.40 
234163.00 
234163.40 
234164.00 
234164.40 
234165^00 
234165.40 
234166.00 
234166.40 
234167.00 
234170.00 
234171. CO 



00^0040. 
OOOCOl." 
COCCOl. 
234416. 
234164. 
234164. 
_G0_C_C_40; 
00CG03. 
GOOOOl. 
OOCCOO. 
234214. 
234402. 
23420 7. 



iq_co 

CO 80" 
CO 80 

00 80 
10 CO 
6 CO 
10 00 

01 80 
CO 80 
00 80 
00 80 
C_C _8_0 
CC 80' 



0»_Q_ycp 

,D RD 
,PRCSA 
tCW RD 
C RD BR B,$ 

_^JAQLA__tL^WL_* 

C _Np_X__F___B_, C_MCP '^ 

,DLCCS 
, PROSA 
f G 
CMOCO0(BU,12),CBUFF 

*^10Cqq[8U,18)^CLUK_ 

TI,1,CW DC RD,CW RO 



SB 00 02 69 
"Se000270 
SB000271 
SB000272 
SB000273 
58000274 

SBqoq275~ 

SB000276" 
SB000277 
SB000278 
S8000279 
S80q0280 
'S6000281 



■_DJJ_10 _Q-CMP Ltl? -f'^CGRAM 
■LOCATE FIRST ARC OF OICT" 



014000.00 FO 
022000. CO FC 
234416.02 AC" 



-READ 1ST ARC CF DICT INTO BUFFER" 



3C* 234 



20 
19 
18 
17 
1i 
15 
]4 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 
I 



:* 

31* 
32* 

33* 
34* 
35* 
36* 
37* 
3£* 
3?« 
4C^» 
41_« 
42* 
43* 
44* 
45* 
46* 

48* 
49* 
5C* 
51* 
52* 



172 
234172 
234173 
234174 
234175 
234176 
234176 
234177 
234177 
234200 
234201 
234202 
234203 
234203 
234204 
234205 
234205 
234206 
234207 
23367C 
233672 
234210 
23421C 



.00 
.40 
.00 
.00 

.oq_ 
.qc__ 

.40 

.00 
.40 
.00 

^0C_ » 

•99-J 

.00 
.40 
.00 

.00 
.40__ 
.00 _" 
".CO 
.4C + 
.00 + 
.00 * 
.40 



234164. 
234157. 
234210. 
235467. 
234177. 
C0G040. 
CO 0003". 
COCCOl. 
COOCOO. 
234214. 
2_3_4_40_2_. 
234206." 
234164." 
234157. 
234210. 
233701. 



00 80 
10 00 
00 80 

00 80 
40 80 
"l_0_0_0 

01 80 
CO 80 
00 80 
00 80 
CO 80 
CO 80 ■ 
00" 80 
10 00 
CO 80 
50 00 



234173.34 02 
014067. 2C 50 
022067.20 DO 



014067.12 FC 
022067.20 _DC_ 
234416. C2 AG 



234204.34 02 







2 342 2 2_. qq + q 

235464.00+ CCO' 

+0CG0O0GO 

+OCCOO0OO 

COOCOO. CI 
GCOOOC.OO+ 



coops pcooo o_ 

COIOOO OCCCOG 
BU,30 ,10 
BU,60 ,10 



Y N R B U 
_C__NDX_ CW 
Ci^ DC RO 
C NORM 
CS ARTY 
A DSK RD 
CUKCNT 



SICC RD BR ' 

B,C REAC 

B8,A DSK RD,$ 

L(BU,12), C DSK BF + 3.0, -18 -LOAD ARC ADDRESS OF INDEX 
AIL^IUlIS)^,^ $ + 2.32,_jl8 -AND ST_C_Rfc;_IT J[N CALyN 

B_t _C _1CP -LOCATE ARC HOLDING INDEX 

,D LCCS 
, PROSA 

,0 

SF(BU,12),CBUFF,-18 

AlLfiy^l8KCLUK^-28 

-Il»_l»_C NDXCWjCW RO 

SICC RC BR 

B,C READ -READ INDEX INTO CORE 

BB,A DSK RD,$ 

B, C SCNGP ♦ 1.0 -RETURN TO BEGINNING OF ROUTINE 

DD{_8U, U,C -JO i»REVENT A READ. 

-0:1'- _^_iNQiXj 40,0 

XW, C DSK BF, 512, C -C0NTR0L"S0HD"F0R" D"lCT"rc¥A"RY"R"EAD 



SYN{BU,24), X 
SyN(BU,48), X 
0RZ{BU,1), 1 
VF,C 



TENTB + 1.32 

TENTB + 3.0-TYPE-AREA 



IN CALLING SEQUENCE 



SB000282 
SB000282 
S8000283 
S800C284 
56000285 
58000286 
SB000287" 
SB000288 
S8000289 
SB000290 
58000291 
58000292 
5B000293 
SB000293 
SB000294 
SB000295 
SB0qq296_ 
"58000297 
'SB000298 
5B000299 
SB000300 
SB000301 
SB000302 



5 3 •_ 2342 1 1. 0_ ^G_C 00 C 0^00+ 

54* 234211.40 CCGCCC.OO+ 
55* 234212.00 CCOOCO.OO+ 
56* 233674.40+ +00000000 



BU,3C ,10 



_C _BETA 
C GAMMA 
C N 
C N PRIM 



VF, q 

VF, " 
VF, 
SYN(BU,24), 



X TENTB + 



__-RELATIVE AREA FWA 
-CORE FWA 

-NUMBER CF WORDS REQUESTED 
5.32-NUMBER OF WORDS READ FROM 



DISK 



5Bqqq3q3_ 

'58000304 
5B000305 
SB000306 



TIME CLOCK 0C054C41 



PUN ID llDllfCP 



CARD ID SB0003C7 



DIST. OF 3/Cl 



3/01 



PAGE NUMBER 318 



LINE 



LOCATION 



BINARY OUTPUT 



NAMt 



STATEMENT 



LOCATION 



234212 



1* 234212.40 
2* 234213.00 
2* 234213.40 
4» 234214.00 



CC000G.OO+ 
CCGOCC.OO+ 
CCCCOC.OO+ 
CCCGCG.OO+ COO COOOOO OGCCCC 



X NFOST VF,C 

C ALPHA VF, 

C DELTA VF, 

C BUFF XW,C 



-STATUS OF INFCRHATICN AVAILABLE 
-ALPHA EQUALS BETA PLUS ARC-WORD 
•DELTA EQUALS NO. OF WDS READ 
-ARC LAST READ INTO BUFFER 



SB000307 
SB000308 
SB000309 
SB000310 



5* 234215. CC 



GCOO0C.G0+ 



C OICT 



VF, 



-ADDRESSES DICT ENTRY FOR OS ARTY 



SB000311 



i* 234215.40 

i» 234216.00 

i* 234217.00 

S» 234220. CG 

IC* 234222.00 



GGG0CC.C0+ C NDX AD 

CCC0CC.00+ CNT BUF 

CCG0O0.O0■^ COO COOOOO OCOCCC CW DISK 

000002. CO C FOT 

CCCC50.C0 C INDEX 



VF, 
VF, 
XW, 0,0,0 
0RZ(BU,fc4), 

DRZ(N), 40 



t2) 



-ADDRESS OF TYPE INDEX ENTRY 
-NUMBER OF ENTRIES IN BUFFER MAP 
-CONTROL WORD FOR DISK FETCH 

-INDEX 



SB000312 
S8000313 
SB000314 
S8000315 
SB000316 



.ll*_234272_.CG ^000062. GO C BFAAPDRZI 60^64 ) , 150) -MAP OF BUFFER CONTENTS 



SB000317 



12* 
12* 

14» 
15* 
It* 



234354. OG 
234356. CO 
234356.40 
234357.00 
234357.40 



G0CCG2.CC 
234356.37 
234376. CG 
234357.37 
234362. CG 



C CIC EX 



CI 

00 
01 

CO 



DRZ{BU,64), 
LVI ,$15,$ 
BE.CXUK 
LVI, 15, $ 
BE, CXIT 



(2) 



S8000318 
SB000319 
SB000319 
Se000320 
SB000320 



II* 
!£• 
IS* 
2C» 

21» 
22* 



23^360 
234360 
234361 
234362 
234362 
234363 



._c_c___ 

.40 
.00 
.00 
.4G 

.00 » 



_2_3A36g._37 
234362.00 
234210.00 
000040.10 
000041.00 
CGCG13.00 



CI 
CO 
80 
CO 
80 



LVIi_15,_$ 

BE, CXIT 
CMOCOO(eU,lJ,A DSK RD 
B, C MOP 
, C RET 
_Q.fi^LByi64],_i_ll_) 



SB0pp321 
SB000321 
SB000322 
SB000323 
S8000323 
SB000324 



001000.00 FO 



C XIT 
CXUK 



23* 
24* 
25* 
26* 
27* 
2E» 



234376 
234377 
234400 
234400 
234401 
234401 



•00 
.OC 
.CO 
.40 
.00 
.4C 



2_3A3_5_5_._1_1_ 
234210. 4C 
234406.34 
00CC40.10 
C0CC03.C1 
GOCGOl.CC 



ao 

80 
C2 

00 
80 
80 



234404.74 02 
022000.32 BG 



A B »_C D I C £ X + 1 . p 9 , C £ P G K 
M-1{BU,18),CUKCNT 
BRZ,CXUKNC 
6,DMCP 
,0LCCS 
,PRCSA 



SBppp325 
SB000326 
SB000327 
S8000328 
SB000329 
SB000330 



2i* 

3C« 
31* 
32* 

32* 
3^* 



2344C2 
234402 
234403 
234403 
234404 
234404 



^99 

.40' 

.00 

.40 

.00 

.40 



_0_0_GC_C_0_. 
234164." 
234161. 
00C040. 
000041. 
C04GC1. 



c_c 

CO 
IC 
10 

CO 
35 



a_o 

"80 
CO 
00 
80 
01 



C_LUJ1 ^p 

SICCRCBR 
B,CRD1 
B,DMCP 
,DRET 
CEPGK LVI,$14,SEPGK 



SB00C331 
"SB000332" 
S8000332 
S8000333 
SB000333 
SB000334 



35* 
'36* 
37* 
36* 
3S» 
4C« 



2344p5 
234405 
234406 
234406 
234407 
234407 



•Qp 
.40 
.00 
.40 
.00 
.40 



_2_1JA5X» 
217372. 
000040. 
C0C043. 
234411. 

OJDJDCJDA* 
_GP_CJ34_Q_. 
C0C041. 



40 
IG 
10 
40 
CC 
CO 

i_o 

00 



8_0 
GO 
00 
80 
80 
80 
Pp" 
80 



SIC.SCLSIC 

B.SCISP 

B,DMCP 

,DCGMM 

,CDSKFL 

,4. 



58000335 
'SB000335' 
SB000336 
SB000337 
SB000338 
SB000339 



CXUKND 



AV* 

42* 
43* 

45* 



23441C 
234410 
234411 
234415 
234416 



• cp__ 

.AC 
.00 * 
.00 
.CO 



Bi^DMCP 

,DRET 

{IQS*)DC{BU», OPERATOR— REPEATED UKS ON DISK 

VF,0 

CW,G,0,C 



SB00p340 
"SB000340' 
SB000341 
SB000342 
SB000343 



CCCOOO.OO-f 

CCCOCG.OO-f 000 COOOOO OCCOOO 



CCSKFL 
CLCCCT 
CVs RC 



'Hai 



C 



TIME CLOCK 0CC54C41 



PUNID llDlll'CP 



CARD ID SCOOOOOl 



DIST. OF 3/Cl 



3/01 



PAGE NUMBER 319 



LINE 



LOCATION 



BINARY OUTPUT 



NA^iE 



STATEMENT 



LOCATION 



1* 
2« 

2* 

^» 234417. OC » 



- #*«»•««»»««»»«»»*»»••»«»«»«»*»*»♦»•»•«««•»«»«*«»»»*»•»»»«•»»««»»«»»**• SCOOOOOl 

- «»»»«»»»«»»••••••«•♦ THE OUWP ROUTINE **»*»»»*•»»»*»••»*•««« SC000002 

- «•«««•«•«»«««««•«••«««««««««•»•««»«•«*«•«»««««•«•••«•*•»•«•*««••««*««• SC000003 

SLC,$ SCOOOOOA 



5« 
~6i''2 344l7~.0~G~ 

I* 

e« 234417.55 

S* 234420.00 
1C» 234422.00 



CNQP 

"0D(BU,45) ,0i~ 
EXT{0,ie) 
8,YXDy«P 
URZ(8U,64),2 
DRZ(BU,32),1 



SC0000U5 
SC000006 
SC000007 
SC000007 
SC000008 
SC000009 



IGOIOOOOOCCCCCO PDUMPT 
0471045 



3 ) 2 ( . 1 1 ) 1 



OOCC02.00 
COCC00.4C 



1 1*_2344 22. 4 C_ 
12* 234423.00 
13» 234423.40 
14 • 234424.00 » 



23.Il1_51«_02 10 
231141.10 CO 
000000.30 00 
G02100.CO 



YXDUMP 



LX,$l,YXV«pMP 
B,Y?<PFCH 
CNOP 
DRZ<BU)»IC88 



SCOGOOIC 
SCOOOOll" 
SC000012 
SC000013 



YfPBUF 



-RESERVE ROOM FOR OVERLAID AREA 



'NHI 



TIME CLOCK CGC5AC^1 



PUNID IICIIMCP 



CARD ID TAOOCOCl 



DIST. OP 3/Cl 



3/01 



PAGE NUMBER 320 



LINE 



LOCATION 



BINARY OUTPLT 



ts/iHE 



STATEMENT 



LOCATION 



1« 

2* 236524.00 

2» 236534.34 



PUNFUL 

(CC«)CD<BU,,12),B 

(CC«)DDCfiU,,12l, 

PUNCRG 



HED, REP, 22L0ADER, LOAD,, 

22L0ADER* 



TAOOOOOl 
TA000002 
TA000003 
TA000004 



5» 

?• 

1C« 



Py^iID,22LCApER TAOOC005 

RESEQ TA0C0006 

— ••«»«••««•«««•••«••«««««•••«•«••«••«•«•««»«•«•**••««««•»«»***«»«»*•»•• TA000007 

— »#«««»»»»•♦«* JOB CONTROL BINARY LOADER ««»««•«*««•«»« TA000008 

— «««««•«««««««««»««••«•«•«••««•«•«««••«««*•«««•«*«•««««*•«««««»«»«««•«« TA000009 

SLCj^YNPeUF TAQCpOip 



234424 
234424 
234425 
234425 
234426 
234427 
234430 



•po_ 

.00 
.40 
.40 
.40 
.40 



11* 
12* 
12* 
14* 
15* 
Id* 



_o_o_cc_oq 

232543 
OOCCOl 
232543 
CCCCOO 
232553 



.71 ap 

.22 CO 

.31 8F 

.01 ao 

.40 8F 

.CO 80 



234436.74 04 



ALCADR 



B Z B Z 1 . 5 7 ( $ 1 5 ) , A L C R 1 
Z,ALL 
BZBZ,.89($l5),$+2. 
CMllll(BU,l),ATCRDI -SET 
LF{eU,18},.32($l5) -SET 
SF(BU,18),AL0WWC* 



^^CHECK„IF NEW JOB 

-INITIALIZE LOADER 



lAQQpoii 

TA000012 
TA000013 
TA000014 
TA000015 
TA000016 



234427.74 04 

001000.36 FO 
022000.06 70 
022000.12 PC 



TO STORE INITIAL 10 AND SEQ 
PPS BOUNDARIES 



II* 

ie« 

19« 
2C* 
21* 
22» 



2344_3_1 
234432 
234433 
234434 
234435 
234436 



.40 
.40 
.40 
.40 
.40 



_o_o_cc_pi 

232553 
232552 
232554 
232554 

GGCCOO 



._CP_8F 
.40 80 
.00 80 
.40 80 
.00 80 
.07 BF 



Q22Ppp_.G6_ 7p_ 
022000.12 FO 
000400. CO PC 
014000. CC FO 
040000.00 FO 



L F (_8y , 1 8i jf 1_.J_$_1_5J 

SF(BU,18),AHGHWD 

CM0G0O,ALOCTR 

CMOCOO,ASEQID 

CMOGOO,AHIWD 

LVE,$3,Ci$l5) 



TAQPPP17 
TA000018 
TAOOOOig 
TA000020 
TA000021 
TA000022 



-ZERO BINARY CARD ORIGIN COUNTER 
-ZERO SEQ AND ID COUNTER 
-ZERO PROGRAM HIGH ViORD 



ALCRl 



23* 
24* 
25* 
2£» 
21* 
26* 



234437 
234437 
234440 
234440 
2 34441 
234441 



•PC «_ 

.4C 

.00 

.40 

.00 

.40 



_CP_C_C_2_0 
000036 
234546 
234440 
235233 
235221 



•_2_2 _Cp 
.CO 80 
.50 00 
.10 03 
.10 CO 
.50 GO 



_l_t iC 

SIC, $14 

8,ATST1 

B,ATYPE-.32($3J -SEPARATE CARD TYPES 

8,AN0RMR 

B,AERR3 



TAPPPP23 
TA000024 
TA000024 
TA000025 
TA000026 
TA000026 



ATYPE 



-B CARD 

-C_ C AR C_ _ 
ILLEGAL CARD 

ILLEGAL CARD 

- P CARC 
ILLEGAL CARD 



211 
3C* 
31* 
32* 
33* 
3^« 



234442 

234442 

234443 

234443, 

234444 

234444, 



CO 

40' 

00 

40 

00 

40 



_2_3_5_0_34 
235221 
234600 
235221 
235130 
235221 



.50 CO 

.50 00 

.10 CO 

.50 00 

.10 CO 

.50 00 



B,ACCTAL 

B,AERR3 

B,ASUPRT 

B,AERR3 

B,APCARO 

B,AERR3 



TA000027 
"TA000028" 
TA000029 
TA000030 
TA000031 
TA000032 



-StPER T CARD 



35^« 
~36* 
37* 
38« 
39* 
4C* 



234445, 
234445, 
234446, 
234446, 
234447, 
234447, 



40 
00 
40 
CO 
40 



234576 
235221 
234601 
235221 
235172 
235221 



•AC__cc 

.5G CO 

.50 00 

.50 00 

.10 CO 

.50 00 



B,ATCARC 

B,AERR3 

B,AfiCARD 

B,AERR3 

B,ACCARC 

B,AERR3 



___r_I_CARp 

-ILLEGAL CARD 

- BRANCH CARD 
-ILLEGAL CARD 



TAqq00 33 

TA000034" 

TA000035 

TA000036 

TA000037 

TA000038 



-DUMP CARD 
-ILLEGAL CARD 



Alt 
42* 
42* 
44* 
45* 
46* 



234450. 
234450, 
234451. 
234451. 
234452. 
234452. 



PP__ 

40 

00 

40 

00 

40 « 



_2_3A6_3A' 
235221. 
234634, 
235221. 
234621. 
235221. 



1_Q__PP 

50 00 

10 CO 

50 00 

10 00 

50 CO 



B,_AFPCRC 
"B,AERR3 
B,AFPCRC 
B,AERR3 
B.ALDACJ 
B,AERR3 



TA000039 
"TA000039 
TA000040 
TA000040 
TA000041 
TA000041 



-FORTRAN PR 

-COMMON 

-LOADER ADJ 



OGRAf^ CARD 
EFINITION CARD 
USTMENT CARD 



_47« 
46* 
49* 
5C* 
51* 
52* 



2344 53 

234453 

234454, 

234454, 

234455, 

234455, 



PC 
4C 
00 
40 
CO 
3P_ 

po_ 

40 



_2_3_5_2_6_q, 
234653. 
235261. 
234764. 
234634. 
2_3 5221. 
23_5256. 
234615. 



1C_1C 
10 00 
10 10 
IC CO 
IC CO 
5C_0P 

1Q_1P 
10 CC 



LXi.$4,AXW 

B,ARBNCD 
LX,$4,AXR 
B,ARBCCC 
B,AFPCRD 

BLAeRR3__ 



BIN 

-RELOC. BIN. IN 
CAT 

-RELOC. 

-f 0_R_T_RAN _ 

FLW 

-FLOln CARC 



TAPPPP42 

TA000042" 

TA000043 

TA000043 

TA000044 

TA000044 



STR. CARD 
BIN DATA CARD 
BRANCH CARD 



53* 
5^*' 



2 344 56 
234456 



LXt$4,AXW 

8,AFLCW 



TAPPPP45 
TA000045 



'Kai 



TIME CLOCK CCC5AC41 



PUNID 22L0A0ER 



CARC ID TA0000A7 



DIST. OF 3/Cl 



3/01 



PAGE NUMBER 321 



LINE 



LOCATION 



BINARY OUTPUT 



NAME 



STATEMENT 



LOCATION 



234457 



1» 234457.00 
5* 234457.40 
2* 234460.00 
A* 234460.40 



235255.10 10 
000021.22 00 
000025.22 GO 
C0CC26.22 00 



LX,$4,AXV«0RG 

Z,$l 

Zt$5 

Z,$6 



-ORIGIN CARD 



TA000047 
TA000048 
TA000049 
TA000050 



234461.00 



231462.60 80 074000.06 70 



LF{eU,6G),AL0BF.48 



-LOAD COLUMNS 5-9 



TA000051 



e* 234462. GO 

1* 234463.00 

£• 234463.40 

9* 234464.00 

1C» 234464.40 



000C21.CC 
232553.42 
235225.33 
232553.02 
235225.32 



ao 

90 
42 
90 
42 



030014.12 FO 



SF(8U,24),$1,24 
ALCa KV,1,AHGHV«D 
BXH,AERR5A 
KV,$1,AL0WWD 
BXL,AERR5A 



-PLACE ORIGIN IN $1 



TA000052 
TA000053 
TA000054 
TA000055 
TA000056 



11* 234465. CO 



000025.00 80 030000.12 FO 



SF{BU,24),$5 



-STORE NO. OF BITS TO BE SKIPPED 



TA000057 



12« 
12» 
14« 
15* 

16* 



234466.00 
234467.00 
234467.40 
234470.00 
234471.00 



000026.16 
000025.14 
000021.14 
000024.52 
232553.54 



80 
BO 
80 
80 

90 



012030.12 FO 



004033.12 FO 



ACRGl 



SF(BU,1C),$6.14,48 
V+»6,$5 
V+,6,$l 
SF{BU,4),$4.42f 54 

KV,$6,AHGHWD 



-STORE NO OF WHOLE WORS IN CF 



TA000058 
TA000059 
TA000060 
TA000061 
TA000062 



n« 234471.40 



235225.33 42 



BXH,AERR5A 



TA000063 



ie» 

19* 
2C* 
21* 
22* 



234472.00 
234473.00 
234473.40 
234474.40 

234475.00 



000000.00 80 
234504.36 CO 
232543.03 80 
C0CC03.C3 3F 
231462.30 80 



406030.23 10 



234475.34 OE 



030000.06 70 



KFI (BU,6),0,48 
BZAE,AHFKC 
AGRG2 BB1,ALL.3,$+1.32 
SV,$1,3.($15) 
LF(BU,24),ALDBF.24 



-TEST IF PARITAL WORD TO BE STORED 

-SAVE INITIAL ORIGIN IN JOB CONTROL- 
-CALLING SEQUENCE AS BRANCH ADDR. 
-LOAD COLUMNS 3-4 



TA000064 
TA000065 
TA000066 
TA000067 
TA000068 



22* 234476.00 



G0CC36.C0 80 



SIC, $14 



TA000069 



24* 234476.40 
25* 234477.00 
26* 234477.40 
21* 234500.00 
2£» 234500.40 



234553.50 
000036. CO 
234563.10 
235256.10 
234511.72 



00 
80 
00 
90 
C2 



B.ASEQl -CHECK COLUKN 3 FOR SEQUENCE 

SIC, $14 

B,ACHSM -CHECK CHECKSUM COLUMN 4 
KV,$4,AXWFLW -TEST IF FLOW CARD 
BXE,ALDAD -YES-GO TC LOAD 



TA000069 
TA000070 
TA000070 
TA000071 
TA000072 



2S» 234501. CO ♦ 



231462.61 80 234511.74 02 



BB,ALCBF.49,AL0AC 



B8,ALDBF.48,ASETZ 
V+,$l,$5 
B,ALOAD 

CMlllKBUtD.AHFkCI 
AI'A U , 6 ) , A L D 1.18,48 



IF SKIP OR ZERO DONE LAST - LOAD 



TA000073 



3C« 
31* 
32* 
33* 
34* 



234502.00 
234503.00 
234503.40 
234504.00 
234505.00 



231462.60 80 
000025.02 80 
234511.50 CO 
232543.04 80 
234524.62 80 



234531.34 02 



001000.36 FO 
006030.12 FO 



-ZERO DONE FIRST 
•ADO NO OF BITS SKIPPED 



TO ORG. 



AHFWO 



-SET PARTIAL WORD INDICATOR 
•STORE NO CF BITS IN WFL- 



TA000074 
TA000075 
TA000076 
TA000077 

TA000078 



35* 234506.00 



234525.62 80 006030.12 FO 



SF(BU,6),ALC1+1.18,48 -INSTRUCTIONS IN ALDl 



TA000079 



36* 
37* 
3€» 
39* 

4C* 



41^* 
42* 
43* 
44* 
45* 
4£* 



234507.00 
234510.00 
234511.00 

234511.40 
234512. CC' 



234525. G3 80 
234526.03 80 
234473.50 00 



006030.12 FO 
006030.12 FO 



0_OC_C_00. 
234515." 



11 CA 

72 C2 

30 00 

00 84 

CO 81 

10 48 

07 80 



ALGAD 



SF{eU,6),ALDi.35,48 

SF{8U,6),ALD1+1.35,48 

B,ACRG2 -CONTINUE WITH LOAD ROUTINE 

ORIGIN AND FLOW CARD LOADER 

KCI,$4,0 -ARE THERE FULL WDS TO BE LOADED 



TA000080 
TA000081 
TA000082 
TA000083 
TA000084 



-NO-TEST FOR ZEROING AND P A^^ JJJM. > CR.Q. 

SETZ ROUTINE 



_BXE,_ALD6 

CNOP 

L(BU,64)(V+I),1.($4) -CHANGED TC LOAD ZEROS IN 

ST(BU,64nV + I>,l.{$l) -LOAD FULL WORDS 

C8,$4,AL0ADl 

BBZ,ASETZI,ASETZ1 -TEST IF ZEROING WAS BEING 



TAOOOOSS 
"TA000086" 
TA000087 
TA000088 
TA000089 
TA000090 



234512.40 
234513.00 
234514.00 
234515.00 
234515.40 



GOCCOO. 
000001. 
COOCOl. 
234513. 
232543. 



100000.20 50 
100000. 2C CO 

234541.34 6 
2 34524.74 06 
234527.34 02 
235001.74 06 



ALOADl 



ALC6 



DONE 



47* 

'4e» 

49* 
5C» 



2 34516.40 
234517.40 
234520.40 
234521.40 



232543. 
231462. 
232543. 
232552. 



04 80 

61 80" 

12 80 

03 30 



^^ZtAdE^QilALDl, 
'BB,ALCBF.49,ALD3 
BBZ,ARBCDI,ARNORM 
SV,$1,ALCCTR 



- J E S T^ IF P A R T I A L W p TO BE _S TPAER. 

-TEST IF SKIP OR ZERO STILL TO BE DONE 



TA000091 

"TA600092" 

TA000093 

TA000094 



ALC5 
ALC2 



'wai 



L 



TIME CLOCK 0CC54C41 PbNID 22LCAl:ER 



CARC ID TA000096 



UIST. OF 3/Cl 



3/01 



PAGE NUMBER 322 



AINE___LgCATIC_N B I NARY_ OUTPUT 1I__J1A_ME STATEMENT LC3CATTc¥ 



234522 



z 
z 

' ( 

s 

9 

' ( 



0, ( 

11 

SI 

c. ( 

91 
9. ( 

n 

81 
*' ( 



1» 234522.00 
2» 234522.40 
2* 234523.00 
4* 234523.40 



232554.02 90 
235233.32 42 
232546.42 BO 
232554. C3 DO 



KV,$l,AHIhD 
BXL,AN08HR 
V+,$l,ABT3l 
SVA,$1, AHIWD 



-IN ALDCTR AND AHIWD 



TA000096 
TA000097 
TA000098 
TA000099 



7» 

€• 

1C» 



2 34524.00 
234524.40 
234525.40 
234526.40 
234527.00 
234530.00 



_23 5233. IC CO 
O0CCC0.4O 84' 
000000.40 81 
234517.50 00 
231462.60 80 
000025.02 80 



B.ANORMR 



140000,06 70 ALOl 
140000.12 FC 

234531.34 02 ALC3 



-NORMAL RETURN TG JOB CONTROL 



LF{BU,32I(V+I),.32{$4) -LOAD PARTIAL WORD 

SF(BU,32HV + I),.32{$1) 

B,ALD5 

8B,ALCBF.48,ASETZ -SKIP OR ZERO AFTER CARD LOADED 

V^t»_|li|5 ^A_DO_NO._CF BITS SKIPPED TO LCCATION- 



TAOOOlOp 
TAOOOlOl 
TA000102 
TA000103 
TA000104 
TA0001G5 



12» 
13* 
14* 
15* 

11? 
IE* 
IS* 
2C» 
21* 
II* 
-lit. 
24» 

25* 
26* 
27* 
26* 



23453p_.4_C_ 

234531.00 

234531.40 

234532.40 

234533.40 

234534_.ACL 

234_53_5_._4_0_ 

234536.40 

234537.40 

234540.40 

234541.00 

234542^Cp_ 

234543_.CC_ 

234544. CO 

234544.40 

234545.00 

234546.00 



_2_3_452q._5C CO 

232547.51 50 

000025.00 80 

000024.34 80 

234542.22 80 

_2_3_4541.^43_80 

_2_3_4542.43 80 

235235.00 BO' 

232543.07 80 

234511.50 00 

000000.00 80 

AQC_C_0_0_._4 p _8 1 

_2_3_52_3Ar_0 C _8 

232547.50 50 

234511.70 40 

232543.04 80 

234520.50 00 



._B,ALD2 .-CIR.-$1 _„_m 

SC,$4,ACNT -SAVE COUNT OF NO. OF WDS TO BE LOADED 

LF(BU,24),$5 -STORE NO. OF WHOLE WDS ZEROED IN CF OF $4 

SF{EU»18),$4+,28,6 

SF{BU,6),ASETZ1+1.18 -STORE NO OF BITS TO ZERO IN ASETZl- 

_SF(.8U.6i,ASETZl+.:3 5____-AND_ASETZl + l. 

_SFLfiy,6),ASEJ_Z_l + 1.3 5 

TI, 1,ASETZ3,AL0AC1 -CHANGE ALCADl TO LOAD ZEROS 

CM1111{8U,1I,ASETZI -TURN ON ZEROING INDICATOR 

B,ALOAD 

LF(BU,32),($0) -LOAD PARTIAL WORD OF ZEROS- 

.AFLBUi32)(y4l),.32J$JJ_rP_R_A0THING LF FL = 

-J_lt-lLALD4,ALgAp_l rAEJii LTI_A_LIZE _ALCAD1 

LC,$4,ACNT -RESTORE COUNT OF NO. OF WDS. TC BE LOADED 

BZXCZfALOAD 

B8Z,AHFWDI,ALD1 

B,ALD2 

TEST TO DETERMINE TYPE OF CARD 



TA000lp6 

TAOCOIO/' 

TA000108 

TA000109 

TAOOOllO 

IAogpiii_ 
IAgggii2_ 

TA000113 
TA000114 
TA000115 
TA000116 

-IAQggii7_ 

TA00C118 
TA000119 
TA000120 
TA000121 
TA000122 
TA000123 



ASETZ 



030000.06 70 
022003.12 FC 
006000.12 FO 

gc6gcp_._i2__Fp_ 
gg6ggp_._i2_ FO 

234513.02 AC 
001000.36 FC 

040000.06 70 

i^QQgg.i2_FC_ 

234513.02 AC 



234524.74 06 



ASETZl 



OS 



( 
( 
( 
( 
( 
( 
( 
( 
i 

c 

c 
c 
c 

c 



2i»^234546_.4g 
3C» 234547. CC" 
31* 234550. CC 
32* 234551. GO 
33* 234551.40 
34* 234552. CC 



_2_3_52_5J_«_0_6 _i P 
231462. CC 80 
000000.14 83 
234552.76 C2 
234550.06 48 
235221.50 CO 



AJSJA LX»_^3^ATXNl 1111111111 

LF(PU,12),ALDBF -LOAD COLUMN 1 

ATST KF(8U,12)(V+I),.12($3) -COMPARE WITH ENTRIES IN ATBL 
BAE,AALRT -IF TYPE OF CARD DETERMINED GO TO AALRT 
CB,$3,ATST 
__B_»_A.ERR3___^ -ILLEGAL TYPE OF CARD 



TA000124 
'TA000125" 
TA000126 
TA000127 
TA000128 
TA000129 



014000. C6 
114000.23 



7C 
10 



C C_G_C_2A«_0_1 _5_0 
COCCCO. 10 CE 



_3-_t_2 34552. 4C_ 90CC23_.01__5p AALRT 

36* 234553.00 

37* 

3€* 234553.40 

39* 234554.40 

4C* 234555.40 



AC»_|.3»_*3 rCF_XNp_ICAI£S_LVPE OF CARD 

Bf0{$14) -RETURN TC ATYPE AT BEG. OF LOADER 

SEQUENCE AND ID TEST 
BBZ,ATCRDI,ASEQ -TEST FOR T CARD 

8B,ASTCRD,AS£Q2A -TEST FOR SUPER T, YES-RETURN 
1-ILBUl12,8) ,$R.40 



_I'^ogoi3o 

TA000131 
TA000132 
TA000133 
TA000134 

TA000135 



20 
19 

C '8 
17 
16 

14 
13 

11 
10 
9 
8 
7 
6 
5 
4 
3 
2 
1 



232543.01 80 234561.74 06 
232543. C2 80 234561.34 02 

C0CC11.5C 80 014000.32 BC 



ASHGl 



42* 
43* 
44* 
45* 
46* 



234556.40 

234557.40' 

23456C.C0 

234561.00 

234561.40 

234562. 4C 



_2_3_2A5A.AP 
235215.36 
232554.40 
OOCCOO.IO 
232554.40 



80 
CO 
80 
OE 
80 



014006.23 10 



014000.22 BO 



014006,12 FO 



OOCCOO.IO OE 



l<FLBy»12),ASEQIC, 12 

BZAE,AERR2 
M+liBU,12),ASEQID 

ASEC2A B,0t$14} 

ASEG SF{BU,12),ASEQID,12 
B,0{$14) 



-SEQUENCE OR 
-UPDATE 



ID ERROR 
SEQUENCE 



COUNTER 



TA000136 
>A000137" 
TA000138 
TA000139 
TA000140 
TA00G141 



All 

4fc« 234563.00 
4S* 234564. CO 
5C* 234564.40 



CgMPyTE_CHECKSUM I ~__ZZ_' 

CT0011(BU,12),ALDBF.36 -CHECKSUM COLUMN 
BRZtACHSM2 -IGNORE CHECKSUM 

LX,$3,ACXW3 



1*000^42 
TA000143 
TA000144 
TA000145 



231462.44 
234576.34 
235253. C6 



80 
C2 
10 



014000.07 70 



ACHSM 



BLANK 



>viai 



TIME CLOCK 00G54G41 PUNIO 


22LCADER 


CARD 


ID TA000147 DIST. OF 3/Cl 3/01 PAGE NUMBER 323 




LINE LOCATICN 


BINARY CUTPUT 




NAf«E 


STATEMENT LOCATION 234565 




1* 234565.00 


000011.22 


00 








Z,$R 


TA000147 


2* 234565.40 


C0CC00.14 


83 


114000.06 


70 




LF(8U,12)CV+n,.12($3) -COMPUTE CHECKSUM 


TA000148 


3» 234566.40 


000000.14 


83 


114000.20 


10 


ACHSHl 


+(BU,12){V+I),.12($3) 


TA000149 


A* 234567. 4C 


234566.46 


40 








CBR,$3,ACHSM1 


TA000150 


£* 23457C.0C 


234566.63 


42 








BXF,ACHSI^1 


TA000l5i 


e* 23457C.4C 


CCCG11.50 


80 


014040.06 


70 




LF(PU,12),$R.40,64 


TA000152 


1* 234571.40 


000011.50 


80 


014000.00 


FC 




CM0C00<BU,12},$R.40 


TA000153 


t* 234572.40 « 


000010.64 


80 


014000. 2C 


10 




+(BU,123,$L.52 


TA000154 


S* 234573.40 


000011.63 


80 


001000.20 


10 




+fBU,l),$R.5l 


TA000155 


IC* 












-CHK SUM 


TA000156 


11» 2345?4.4C 


231462.44 


80 


014000.23 


10 




KF{EU,12),ALD8F.36 


TA000157 


12* 234575. 4C 


235210.76 


CO 








BZAE.AERRl -INCORRECT CHECKSUf^^ 


TA000158 


13* 234576. CO 


COCCCO.IO 


OE 






ACHSM2 


B,0($14) 


TA000159 


14* 234576.40 


232543.01 


80 


001000.36 


FO 


ATCARD 


CM1111(BU,1),ATCRDI -SET T CARD INDICATOR 


TA000160 


15* 234577.40 


235233.10 


CO 








B.ANCRMR 


TA000161 


16* 










- 


SUPER T CARD ROUTINE-ALL SEC AND ID IGNCRED 


TA0C0162 


n* 234600.00 


232543.02 


80 


001000.36 


FO 


ASUPRT 


CM1111{BU,1),ASTCRD 


TA000163 


1£» 234601.00 


235233.10 


CO 








8,AN0RMR 


TA000164 


19* 










- 


BRANCH CARD ROUTINE 


TA000165 


2C» 234601.40 


231462.30 


80 


030000. C6 


70 


ABOARD 


LF(BU,24},AL0EF.24 -CHECK SEQUENCE AND CHECKSUM 


TA000166 


21* 234602.40 


232543.11 


80 


235004.74 


02 




BB,AFPCItARNRMl 


TA000167 


22* 234603.40 


C00C36.C0 


80 








SIC, $14 


TA000168 


23* 234604.00 


234553. 5C 


CO 








B,ASEC1 


TA000168 


2^» 234604.40 


00CC36.C0 


80 








SIC, $14 


TA000169 


25* 234605.00 


234563.10 


00 








B,ACHSM 


TA000169 


26* 234605.40 


231462.74 


80 


030000.06 


70 




LF(BU,24J,ALDBF.60 -PUT BRANCH ADDRESS INTO $1 


TA000170 


27* 234606.40 « 


000021.00 


80 


030000.12 


FC 




SF(BU,24),$1 


TA000171 


2fc« 234607.40 


000000.03 


04 








KVI,$1,0 -IF NO BRANCH ADDR. GIVEN USE 1ST ORG 


TA000172 


2€* 23461C.CC 


234613.72 


C2 








BX£,ABCRC1 


TA000173 


3C« 234610.40 


232553.02 


90 








KV,$l,ALOV(lWD -IS BRANCH ADDRESS WITIN BOUNDS 


TA000174 


31* 234611.00 


235225.32 


42 








BXL,AERR5A 


TA000175 


32* 234611.40 


232553.42 


90 








KV,$1,AHGHWD 


TA000176 


33* 234612.00 


235225.33 


42 








BXH,AERR5A 


TA000177 


3^» 234612.40 


C0CC03.C3 


OF 








SVA,$1,3.($15) 


TA00017B 


35* 234613. CC 


000002.50 


OF 








B,2.32($15) 


TA000179 


36* 234613.40 


232543.03 


80 


235220.34 


00 


ABCRDl 


BZB,ALL.3,AERR8 -CHECK IF ORIGIN STORED 


TA000180 


37* 234614.40 


000002.50 


OF 








B,2.32($15) -BRANCH RETURN IN JOB CONTROL 


TA000181 


3£* 










- 


FLOk» CARD ROUTINE 


TA000182 


3S* 234615.00 


232543.03 


80 


235220.34 


00 


AFLGW 


BZB,ALL.3,AERR8 -NO ORIGIN STORED ERROR 


TA000183 


4C* 234616.00 


232552. C2 


30 








LV,$1,ALDCTR -PUT BINARY LOC.CTR.INTO XRl 


TA000184 


41* 234616.40 


C0CC21.14 


30 








LV,6,$1 -SET UP FOR BOUNDARY TEST 


TA000185 


42* 234617.00 


000014.55 


05 








V+I,$6,12.32 


TA000186 


43* 234617.40 


400000.00 


80 


406030.06 


70 




LFnBU,6),f8)400COG.,48 -SET UP FOR PARTIAL WD LOADING 


TA000187 


44* 234620.40 


234471.10 


GO 








B.AORGl 


TA000188 


45* 234621.00 


232543.11 


80 


235004.74 


02 


ALCADJ 


BB,AFPCI,ARNRM1 


TA000189 


46* 234622.00 » 


235247.02 


10 








LX,$1,A0XV«1 


TA000190 


4V« 234622.40 


000036.45 


01 








LVI,$2,30.32 


TA000191 


4f* 234623.00 


G0CC00.14 


81 


110000.07 


70 


ALCAl 


CT0G11(BU,8){V+I) ,.12{$1) -PICK LP LOCATION FIELD 


TA000192 


4?« 234624.00 


000007.25 


80 


003000.06 


72 




LF(BU,3),$LZC.4, ($2) 


TA000193 


5C* 234625.00 


C0CG01.45 


CD 








V-I,$2,1.32 


TA0Q0194 





















^MBI 



c 



TIME CLOCK CG05AC41 PUNID 


22LCADER < 


:ard 


ID TAC00196 DIST. CF 3/01 


3/01 PAGE NUMBER ' 


324 




LINE LOCATICN 


BINARY OUTPUT 




NAHE 


STATEMENT 


LOCATION 234625 




1» 


234625.40 


234623.02 


48 








CB,$1,ALDA1 






TA000196 


5« 


234626. CC 


000023.22 


00 






ALDA5 


Z,S3 






TA000197 


2* 


234626.40 


000023.00 


80 


022027.12 


FO 




SF(BU,18),$3,46 


-TEST IF WITHIN BOUNDS 




TA000198 


^» 


234627.40 


232553.06 


90 








KV, $3,AL0WWD 






TA000199 


5« 


234630.00 


235225.32 


42 








BXL,AeRR5A 






TA000200 


6» 


234630.40 


232553.46 


90 








KV,$3,AHGHWD 






TA000201 


1* 


234631.00 


235225.33 


42 








BXH,AERR5A 






TA000202 


£• 


234631.40 


232552.07 


30 








SV,$3,ALDCTR 






TA000203 


c». 


234632.00 


232543.03 


80 


234633.74 


OE 




BB1,ALL.3,$+1.32 






TA000204 


1C» 


234633.00 


000003.07 


OF 








SVA,$3,3.($15) 






TAC00205 


11* 


234633.40 


235233.10 


00 








B,ANORMR 






TA000206 


12* 


234634.00 


232543.11 


80 


235004.74 


02 


AFPCRO 


BB,AFPCI,ARNRM1 






TA000207 


U» 


234635,00 * 


220453.00 


80 


022000.20 


50 




LlBU,18l,KSlL0+2.0 






TA000208 


14« 


234636,00 


232542.00 


80 


022000.23 


10 




KF«BU,18),ABSSID 






TA000209 


15» 


234637,00 


235216.76 


CO 








BZA6,AERR4 






TA000210 


16» 


234637.40 


232543.11 


80 


001000.36 


FG 




CM1111{BU,1J,AFPCI 






TA000211 


n» 


234640.40 


220462.42 


30 








LV,$l,KSIL0+g.32 


-ADDRESS CF RELOCATION TABLES 




TA000212 


1£» 


234641.00 


000001.04 


31 








LV,$2,1.($1) 


-ORG. CF PROG. IN $2 




TA000213 


1S» 


234641.40 


232552.05 


30 








SV,$2,ALDCTR 






TA000214 


2C» 


234642,00 


000002.00 


81 


023000.06 


70 




LF{EU,19),2,($1J 


-= OF NAMED COMMONS DEVELOP A 


LZC 


TA0002I5 


21» 


234643.00 


114000.00 


80 


407000.20 


50 




LI(BU»7},19 






TA000216 


22* 


234644.00 


000007.21 


80 


007000.30 


10 




-{BU,7),$LZC 


-COMPUTE = OF RELCC. BITS PER 


1/2 WD, 


TA000217 


23* 


234645.00 


232550.65 


80 


007000.12 


FO 




SF(BU,7),ARELa8 






TA000218 


24* 


234646.00 


000000.77 


81 


234651.74 


02 




BB, .63($1),AFPCC2 






TA0002ig 


25* 


234647.00 


000000.34 


81 


022000,06 


70 




LF(BU,18),.2a($l) 






TA000220 


26* 


234650.00 


232547.00 


80 


022000,12 


FO 


AFPCDl 


. SF(BU,18),ARCDCT 


-SET UP COUNT OF CARDS 




TA000221 


21* 


234651.00 * 


235004.50 


00 








B.ARNRKl 






TA000222 


2t* 


234651.40 


000000.00 
234650.10 


80 
00 


422000. C.6_ 


70 


AFPCD2 


LFI(BU,18),0 


-LIBRARY ROUTINE CARD CT.=0 




TA000223 


2S» 


234652.40 






B, AFPCDl 






TA000224 


3C» 


234653.00 


000036.00 


80 






ARBNCD 


SIC, $14 






rA000225 


31* 


234653.40 


234563.10 


00 








B.ACHSK 






TA000225 


32* 


234654.00 


232552.04 


30 








LV,$2,ALDCTR 


-PROGRAM ORIGIN IN $2 




TA000226 


32* 


234654.40 


235220.31 


42 








BXVZ,AERR8 


-NO LOADER ADJUSTMENT CARD 




TA000227 


34* 


234655.00 


231462.60 


80 


044000.20 


50 




L(BU,36),ALC8F.48 


-COLUMNS 5,6,7 




TA000228 


35* 


234656.00 


000026.22 


00 








Z,$6 






TA00022g 


36* 


234656.40 


000021.22 


CO 








Z,$l 






TA000229 


37* 


234657.00 


000027.22 


00 








Z,$7 






TA000229 


3£* 


234657.40 


000021.00 


80 


030000.12 


FO 




SF(BU,24),$l 


-RELATIVE ORIGIN IN $1 




TA000230 


39* 


234660.40 


000022.02 


80 


• 






V+,41,$2 


-ABSOLUTE ORIGIN FOR CRD IN 


$1 


TA000231 


4C* 


234661.00 


000027.16 


80 


012014.12 


FO 




SF(eU,lC),$7,14,24 


-NO. OF INSR. TO LOAD 




TA000232 


41* 


234662.00 


000027.14 


80 








V+, $6, $7 


-COMPUTE LOC. CF RELOC. BITS 


TA000233 


4^» 


234662.40 


C0CC21.16 


BO 








V+,$7,$l 


-COMPUTE UPPER ADDR. OCCUPIED 


TA000234 


42* 


234663.00 


232553.56 


90 








KV,$7,AHGHWD 






TA000235 


44* 


234663.40 


235225.33 


42 








BXH»AERR5A 






TA000236 


45* 


234664.00 * 


000024.51 


80 


005016.52 


FO 




SF(aU,5»,$4.41,29 


-= HLF'. WD. INSTR. IN CF OF 


$4 


TA000237 


4d« 


234665.00 


000026.23 


80 


005000.06 


70 




LF(BU,5),$6.ig 






TA000238 


47* 


234666.00 


000000.00 


80 


405000.23 


10 




KFI(BU,5),0 






TA00023g 


4e* 


234667.00 


234673.76 


C2 








BAE,ARDCC4 






TA000240 


49* 


234667.40 


232543.17 


80 


001000,36 


FO 




CM1111(BU,1),ANUBIT- 






TA000241 


5C* 


234670.40 


234735.44 


80 


005000,12 


FO 




SF(8U,5)tARBCD7.36 


-IN LOAD INSTR. 




TA000242 


51* 


234671,40 


234747.04 


80 


005000,12 


FO 




SF(eU,5),ARBCD6.36 


-IN STORE INSTR. 




TA000243 


52* 


234672.40 


234746.63 


80 


005000.12 


FO 




SF(BU,5),ARBC06.ig 






TA000244 


52* 


234673.40 


000024.14 


BO 






ARBCD4 


V+t$6,$4 


-LOC, OF RELOCATION BITS 




TA000245 


54* 


234674.00 


000021.23 


80 


005064.30 


70 




CllC0{BU,5),$1.19,-24 






TA000246 


55* 


234675.00 


000010.23 


80 


005000.22 


BO 




M+l(RU,5),$L.l9 






TA000247 


56* 


234676.00 


000010.02 


BO 








V + ,1,$L 






TA000248 



'MSI 



TIME CLOCK 00054C41 PUNID 


22LCADER 


CARD 


IC TAC00249 CIST. OF 3/Cl 


3/01 PAGE NUMBER 325 




LINE LOCATION 


BINARY CUTPLT 




NAHE 


STATEMENT 


LOCATION 234676 




1» 


234676. 4G 


000010.10 


BO 








V + ,4,$L 




TA000249 


2* 


234677.00 


000000.11 


OA 






AR8CD1 


KCI,$4,0 




TA000250 


2* 


234677.40 


234734.32 


C2 








BXE,ARBCC5 


-NO. OF FULL WDS. TO BE LOADED 


TA000251 


A* 


234700. CO » 


C0CC00.4C 


84 


140000.20 


5G 




L(8U,32) (V+I),.32($4) 


-PICK UP HLF. WO. INSTR. 


TA000252 


5* 


234701.00 


232544.14 


BO 








V+,$6,APT1 


-ADV. RELQC. BIT CTR. BY 1 BIT 


TA000253 


€• 


234701.40 


777777.77 


«6 


234707.34 


00 




BZB,-.1($6),ARBCD3.32 


-BRANCH IF NO RELOCATION 


TA000254 


1* 


234702.40 


234727.21 


01 








LVI,$8,ARBCDB.32 




TA000255 


i* 


234703.00 


234726.61 


DO 








SVA,-i.8,AR8CD8 




TA000256 


S* 


234703.40 


000000.02 


86 


234712.74 


02 




BB,.2{$6), ARBCDC 


-RELOCATE ACCORDING TO COMMON 


TA000257 


1C» 


234704.40 


OCCGCO.Ol 


86 


234711.34 


02 




BB,.l($6), ARBCDR 


-RELOCATE RIGHTMOST 18 BITS 


TA000258 


11* 


234705.40 


C00C22.00 


80 


022007. 2C 


10 




+ (Blj,18),$2,14 


-RELOCATE LEFTMOST 18 BITS 


TA000259 


12* 


234706.40 


232544.54 


BO 






AReCC3 


V+,$6,APT3 




TA000260 


12* 


234707.00 


OOOC00.40 


81 


140000.20 


CO 




ST{BU,32){V+I)».32($1) 




TA000261 


14* 


234710.00 


OOCCOl.ll 


08 








C-I,$4,l 




TA000262 


15* 


234710.40 


234677. LO 


00 








BtARfiCCl 




TA000263 


16* 


234711.00 


C00C22.C0 


80 


022000. 2C 


IC 


ARBCDR 


+(BU, 18), $2 


-RELOCATE RIGHTMOST 18 BITS 


TA000264 


U* 


234712.00 


234706. 5C 


00 








B,ARBCD3 




TA000265 


le* 


234712.40 


232543.11 


80 


235216.74 


CO 


ARBCDC 


8ZB,AFPCI,AERR4 


-NOT BSS- TRIED COMMON RELCC. 


TA000266 


IS* 


234713.40 * 


232550.65 


80 


007064.20 


50 




L(BU,7),AREL0B,-24 


-PICK UP = OF RELOCATION BITS 


TA000267 


2C* 


234714.40 


000000.01 


86 


2 34716.74 


OC 




BZ8,.l{$6),$+2. 




TA00026a 


21* 


234715.40 


232543.13 


80 


001000.36 


FO 




CM1111{BU,1),ARBCRI 


-RELOCATE RIGHTMOST 


TA000269 


22* 


234716.40 


C0CCCO.C3 


86 


234720.74 


02 




BB,.3($6),$+2. 




TA000270 


23* 


2 34717.40 


22C462.I6 


30 








LV,$7,KSIL0+9. 


-RELOC. ACCORD. TO BLANK COMMON 


TA000271 


2^« 


23472C.CC 


234726. IC 


00 








B,ARBCD2.32 




TA000272 


25* 


234720.40 


234722.43 


80 


006064.12 


FO 




SF(BU,6),$+2.C3,-24 




TA000273 


26* 


234721.40 


000027.22 


00 








2, $7 


.* 


TA000274 


21* 


234722.00 


000000.04 


86 


000002.46 


70 




LF{BU),.4($6),5 




TA000275 


2f* 


234723.00 


000027. CO 


80 


030000.12 


FO 




SF(8U,24),$7 




TA000276 


2S* 


234724. CO 


220462.56 


BO 








V+,$7,KSIL0+9.32 




TA000277 


3C» 


234724.40 


0CCCC2.17 


05 








V+I,$7,2. 




TA000278 


31* 


234725,00 


CCCCC0.16 


37 








LV,$7,0($7) 




TA000279 


32* 


234725.40 


000010.14 


BO 






ARBCD2 


V + ,$6', $L 


-ADVANCE RELOC. BITS CTR. 


TA000280 


32* 


234726.00 


232544.14 


80 








V+,$6,APT1 




TA000281 


34* 


234726.40 


234726.50 


00 






ARBCCB 


B,$ 




TA000282 


3f * 


234727.00 • 


777777.40 


84 


040000. 2C 


50 




L{BU,32),-.32($4) 




TA0002a3 


36* 


234730.00 


232543,13 


80 


234732.74 


06 




68Z,ARBCRI, ARBCRR 




TA000284 


37* 


234731. CO 


000027.00 


80 


022007.20 


10 




+{BU,18),$7,14 




TA000285 


3f* 


234732.00 


234706.50 


00 








B,ARBCD3 




TA000286 


39* 


234732.40 


000027.00 


80 


022000.20 


10 


ARBCRR 


+(BU,18»,$7 




TA000287 


4C» 


234733.40 


234706. 5G 


CO 








B,ARBCD3 




TA000288 


41* 


234734.00 


232543.17 


80 


235001.74 


00 


AR8CD5 


BZB.ANUBITtARNORf'- 




TA0002a9 


42* 














CNOP, 




TA000290 


43* 


234735.00 


000000.00 


84 


000000.06 


70 


ARBCD7 


LF(eU),0($4) 




TA000291 


44* 


234736.00 


232544.14 


BO 








V+t6,APTl 




TA000292 


45* 


234736.40 


777777.77 


86 


234746.74 


00 




BZB,-.1C$6),AR8CC6 


-NO RELOCATION 


TA000293 ■ 


46* 


234737.40 


234753.21 


01 








LVI,i8,ARBCCA 




TA000294 


4/* 


23474C.00 


234726.61 


00 








SVA, $8, ARBCCB 




TA000295 


48* 


23474C.40 


00CCC0.C2 


86 


234712.74 


02 




B8,.2($6), ARBCDC 


-RELOCATE ACCORD. TO COMMON 


TA000296 


45* 


234741.40 


000000.01 


86 


234751.34 


02 




8B,.l($6),ARBCD8 


-RELOCATE RIGHTMOST 


TA000297 


5C* 


234742.40 * 


234735.43 


80 


OC6075.06 


70 




LF<BU,6»,ARBCD7.35,-6 


-RELOCATE LEFTMOST 


TA000298 


51* 


234743.40 


220000. CO 


80 


406075. 3C 


10 




-HBU, 6), {8)22,-6 




TA000299 


52* 


234744.40 


234746.15 


80 


006075.12 


FO 




SF{BU,6),$+1.45,-6 




TA000300 


53* 


234745.40 


CO0C22.00 


80 


022000.20 


10 




+(BU,18),$2,0 




TA000301 


54* 


234746.40 


OOOCOO.CC 


81 


100000.12 


FC 


ARECC6 


SF{EU)(V+I),($i) 




TA000302 


55* 


234747.40 


232543.17 


80 


001000. CO 


FO 




CMOOOO{BU,1),ANUEIT- 




TA000303 


56* 


234750.40 


235001.50 


00 








BiARNCRf* 




TA000304 



*Nai 



t 



TIME CLOCK C0C54C41 PUNID 


22LCADER CARD 


ID TA000305 CIST. OF 3/Cl 


3/01 PAGE NUMBER 326 




LINE LOCATICN 


BINARY OUTPUT 




NAME 


STATEMENT 


LOCATION 234751 




1* 
2* 

2* 
A* 


234751.00 
234752.00 
234752.40 
234753.00 


000022.00 
234746.50 
000000.30 
234735.00 


80 
00 
00 

8 


022000.20 
234754. C2 


10 

AO 


ARBCD8 
ARBCDA 


+tBU,18),$2 

8,ARBCD6 

CNOP, 

TI,1,ARBCD7,$+1. 




TA000305 
TA000306 
TA000307 
TA000308 


5* 


234754. CO 


00CC00.30 


CO 








NOP 




TA00030g 


1* 

£* 

S* 

1C» 


234754.40 
234755.00 
234756. CO » 
234757.00 
234760.00 


000000.30 
2325.43.13 
234735.43 
220000.00 
234761.55 


00 
80 
80 

ao 

80 


234762.74 
006075. C6 
406075.30 
006075.12 


06 
70 
10 
FC 




NOP 

BBZ,ARBCRI,AR8CDC 

LFfBU,6),AR8CD7.35,-6 

-n8U,6),{8J22,-6 

SF(BU,6),$+1.45,-6 




TA000309 
TA000310 
TA000311 
TA000312 
TA000313 


11* 


234761.00 


000027.00 


80 


022000. 2C 


10 




+(BU,l8),$7tC 




TA000314 


12* 
12* 
14* 
15* 

le* 


234762.00 
234762.40 
234763.40 

234764.00 


234746. 5C 
0CCC27.00 
234746.50 

000025.22 


CO 
80 

00 

00 


022000.20 


10 


ARBCCD 
ARBDCD 


B,ARBCD6 

+(8L,18),$7 

B,ARBCD6 

BINARY DATA CARD 

Z,$5 




TA000315 
TA000316 
TAO00317 
TA0003i8 
TA000319 


i?» 


234764.40 


000026.22 


00 








Z,$6 




TA000319 


le* 

19* 
2C* 
21* 
22* 


234765.00 
234766.00 
234766.40 
234767.00 
234767.40 


231463.54 
000021.22 
000010.02 
235C00.31 
232543.11 


80 
00 
30 
42 

80 


014066.60 
235216.74 


50 
00 




L(8U,12J,ALD8F.1C8,-19 

Z,$l 

LV,$l,$L 

BXVZ,AR8CC2 

BZB,AFPCI,AERR4 


-PICK UP LOADING BASE 

-STORE AS 19 BIT ADDR. 

-PROGRAM DATA 

-ILLEGAL IN NGN BSS JOB 


TA000320 
TA00032I 
TA000322 
TA000323 
TA000324 


23* 


234770.40 


000CC2.C3 


05 








V+I,$l,2. 




TA000325 


24* 
25* 
26» 
27* 

2£» 


234771. CO 
234771.40 * 
234772.00 
234773.00 
234773.40 


220462.42 
COCG00.02 
231462.74 
000010.02 
231462.60 


BO 
31 
80 
BO 
80 


030064.20 

074000.06 


50 
70 


ARBDC3 


V+,$l,KSIL0+9.32 

LV,$1,0($1) 

L(BU,24),ALDBF.6C,-24 

V+,$1,$L 

LF(BU,60),ALD8F.48 


-PICK UP RELATIVE ORIGIN 
-COMPUTE ABSOLUTE ORIGIN 
-INITIALIZE FOR ABSOLUTE LOADER 


TA000326 
TA000327 
TA000328 
TA000329 

TA000330 


29* 


234774.40 


232543.03 


80 


001000.36 


FO 




CM1111(BU,1),ALL.3 




TA000331 


3C* 
31* 
32* 
33* 
34* 


234775.40 
234776.40 
234777.40 
235000.00 
235000.40 


232543.01 
232543.12 
234463.10 
232552.02 
235220.31 


80 
80 
00 
30 
42 


001000.36 
001000.36 


FO 
FC 


AReCC2 


CMllll(BU,l),ATCRCI 
C«111UBU,1)»ARBCDI 
8,ALD8 

LV,$1,ALCCTR 
BXVZ, AtRR8 




TA000332 
TA000333 
TA000334 
TA000335 
TA000336 


35* 


235001.00 


234772.10 


00 








B,ARBDC3 




TA000337 


36* 
37* 

3e* 

39* 
4C» 


235001.40 
235002.00 
235002.40 
235003.00 
235003.40 


232554.02 
235003.72 
232546.42 
232554.03 
232543.11 


90 
42 

BO 
DO 
80 


235233.34 


00 


ARNORH 


KVt $lf AHIKD 

8XL,$+1.32 

V+f$l,ABT31 

SVA,$1,AHWD 

BZB,AFPCI,ANORMR 


-NON BSS JOB-BRANCH 


TA000338 
TA000339 
TA000340 
TA000341 
TA000342 


41* 


235004.40 


232547.02 


50 






ARNRMl 


LC,$l,ARCDCT 




TA000343 


42* 
43* 
44* 
45* 

4e* 


235005.00 * 

235005.40 

235006.00 

235006.40 

235007.00 


000001. C3 
232547.03 
235007.30 
000003.50 
220462.42 


G8 
50 
42 
OF 
30 






ARNRM2 


C-I,$l,l 

SC,$1,ARCDCT 

BXCZ,ARNRM2 

8,3.32{$15» 

LV,$l,KSIL0+g.32 


-ZERO CARD COUNT 


TA000344 
TA000345 
TA000346 
TA000347 

TA000348 


47* 


235007.40 


000001.04 


11 








LX,$2,I.{$1) 




TA000349 






■ ' - .,'.,■ 



»Hai 



C 



TIME CLOCK CCC54C41 PUNIC 


22LCADER 


CARD 


ID TA00C351 DIST. OF 3/Cl 


3/01 PAGE NUMBER 327 




LINE LOCATION 


BINARY CUTPUT 




NAf«fc 


STATEMENT 


LOCATION 235010 




1* 
2* 

3* 


235C1C.00 
235010.40 
235011.00 
235011.40 


235012.70 
000002.02 
000003.03 

000000. CO 


42 
Bl 
05 
81 


000001.04 


22 




BXC2,ARNRM5 
V+,$lf2.{$l) 
V+I,$l,3. 
T,$2,C($1),1.{$2) 


-NO TRANSFER VECTOR TO TRANSMIT 
-COMPUTE LOC. OF T.V. IN RELOC. TABLE 


TA000351 
TA000352 
TA000353 
TA000354 


5* 


235012.40 


000021.22 


00 






ARNRM5 


Z,$l 




TA000355 


i* 
7« 
£• 
S* 
1C» 


235013.00 
235014.00 
235014.40 
235015.00 
235015.40 


232543.11 
000021.05 
000000.03 
235033.32 
220462.43 


80 
70 
04 
C2 
30 


000400.00 


FO 




CMOCOO.AFPCI 

SR,$2,$1 

KVI,$1,C 

BXE,ARNRH4 

SV,$l,KSIL0+9.32 


-ANY MORE SEGMENTS TO BE LOADED • 

-NO-BRANCH 

-STORE ADDR. OF NEXT RELOCATION TABLE 


TA000356 
TA000357 
TA000358 
TA000359 
TA000360 


11* 


235016.00 


000000.77 


81 


235027.34 


02 




88, .63{$1),ARNRM3 


-LIBRARY ROUTINE BRANCH 


TA000361 


12* 
12* 
14* 
15* 
U* 


235017.00 
235020.00 
235020.40 * 
235021.00 
235022.00 


000000.00 
235246.32 
000010.32 
000000.00 
000017.00 


81 
10 
BO 
80 
80 


022067.20 

411073.46 
422067.21 


50 

70 
CO 




L(BL,18), ($1),-18 

LX,$13,AREADS 

V+,$13,$L 

LFnBU,9),0,-g 

/nDU,18),15.,-18 


-SET UP $13 FOR RESLD 


TA000362 
TA000363 
TA000364 
TA000365 
TA000366 


17* 


235023.00 


000010.02 


30 








LV,1,$L 




TA000367 


Ifi* 
19* 
2C« 
21* 
22* 


235023.40 
235024.00 
235024.40 
235025.40 
235026.40 


235024.03 
235024.33 
232550.05 
235307.00 
000003.50 


DO 
06 
80 
80 
OF 


060600.06 
060600.12 


70 
FO 




SVA,1,$.32 

C-I,13,$ 

LF(EU,48,63,ATWSTA 

SF(EU,48,6),YRLDTA 

B,3.32{$15) 




TA000368 
TA000369 
TA000370 
TA000371 
TA000372 


22* 


235027. OC 


232547.71 


80 


014630.06 


70 


ARNRM3 


LF(eU,12,6),ALB,48 


-SET UP RESLO FOR LIB SUBROUTINE 


TA000373 


24* 

25* 
26* 
21* 

2€* 


235030.00 
235031.00 
235032.00 
235032.40 
235033.00 


OOOCOO.CO 
235307.00 
235245.32 
000003.50 
220463.02 


81 
80 
10 
OF 
30 


044600.06 
060600.12 


70 
FO 


ARNRH4 


LF(BU,36,6),C($1) 

SF(RU,48,6},YRLDTA 

LX,$13,AREAD1 

B,3.32($15) 

LV,$1,KSIL0+1C. 




TA000374 
TA000375 
TAG00376 
TA000377 
TA000378 


2S» 


235033.40 


000003.03 


OF 








SVA,$1,3.($153 




TA000379 


3C* 
31* 
32* 
33* 
34* 


235034.00 * 

235034.40 

235035.00 
235035.40 


000002.50 

235042.43 
235065.03 
235233.23 


OF 

01 

DO 
80 


001000.36 


FO 


ACCTAL 


8,2.32($15) 
OCTAL CARD LOADER 
LVI,$1,A0CTLD 
SVA,$l,AOCTL5+.32 

CM1111{BU,1),AN0RMR.19 


-INITIALIZE FOR C CARDS 
-SET BRANCH TO APCRDND TO NOP 


TA000380 
TA000381 
TA000382 ' 
TA000383 
TA000384 


35* 


235036.40 


000000.71 


aF 


001000.00 


FO 




CM0C00(BU,1),.57{$15) 




TA000385 


36* 
37* 
3€« 
39* 
4C* 


235037.40 
235040.00 
235040.40 
235041.00 
235041.40 


235055.47 
235054.47 
235247.02 
000000.07 
235250.04 


01 
DO 
10 
01 
10 






AGCTLA 


LVIt$3,AGCTL2+l. -INITIALIZE FOR C AND P CARDS 

SVA,$3,A0CTL2 

LX,$1,A0XW1 -XRl LOCATED COLUMN BEING TESTED 

LVI,$3,0 -USED FOR CONTINUATION C AND P CARDS 

LX,$2,A0XW2 -STORAGE AREA FOR CONVERTED COLUMNS 


TA000386 
TA000387 
TA000388 
TA000389 
TA000390 


41* 


235042.00 


000004.07 


02 








LCI, $3, 4 


-MAX. NO. OF HALFWDS PER CARD 


TA0003gi 


42* 
43* 
44* 
45* 
46* 


235042.40 
235043.40 
235044.40 
235045.40 
235046.40 


000001.06 
232543.05 
232543.10 
232543.06 
410200.00 


81 
80 
80 
80 
80 


014000.06 
235107.34 
235047.J4 
235047.74 
414000.15 


70 
02 
02 
02 
70 


ACCTLD 


LF{BU,12),.70t$l) 
0B,AOIGNI,AOIGN2 
BB,ADCRDI,$+3. 
BB,APCRDI,$+2. 
CTIC110(8U, 12), (8)4102 


-PUT DECIMAL PT COLUMN IN AC 
-IF ON IGNORE CORRECTIONS ON CRD 

-IF P CARD OGNT TEST FOR 1 
-TEST FOR DECIMAL POINT 


TA000392 
TA0003g3 
TA000394 
TA000395 
TA0003g6 


47* 


235047.40 » 


000011.67 


80 


235106.34 


06 




B8Z,$R+.55,A0IGNR -A 


1 BIT IGNORE CORRECTION 


TA000397 


4€* 
49* 
5C« 


235050.40 
235051.00 
235052.00 


235122.74 
000000.14 
235103.34 


CO 
81 
C2 


110000.07 


70 


ACCTLl 


BZRZ,ACCTL6 -NOT A DECIMAL PCINT 
CT0C1UBU,8){V+I),.12U1) -PICK UP AN OCTAL COLUMN 
BRZ.AOCTZ -BLANK COL STORE A ZERO 


TA000398 
TA000399 
TA000400 


1 





*Kai 



C 



IIME CLOCK 0CC5^C^1 



PUNID 22LGA0ER 



CARD ID TA0004C2 



DIST. OF 3/Cl 



3/01 



PAGE NUMBER 328 



LINE 



LOCAl ICN 



BINARY OUTPUT 



NAME 



STATEMENT 



LOCATION ^235052 

-STORE OCTAL CHARACTER INTO AADD 



1» 
2* 

3* 



235052.40 
235053.40 
235054.40 

235055. CO 



C0CC07.25 
000000.03 
235055.42 
235051.10 



80 
82 
4A 

CO 



003000-06 
303000.12 



70 

FO 



ACCTL2 



LFIBU,3),$LZC+-4 

SF(BU»3)(V+ICRJ,.3C$2) 

CBZ,$1,$+1. 

B,ACCTL1 



TA000402 
TA000403 
TA000404 
TA000405 



5» 

1* 

IC» 



235055 
235056 
235056 
235057 
235057 
235060 



•5C_ 

.00 

.40 

.00 

.40 

.00 



ooqcqi. 

232545. 
235054. 
235051. 
232551. 
00CC23. 



C3_g2 
02 bo' 
40 80 
10 00 
06 30 
23 80 



LCIi$l,l 

V+,$1,A0PT12 

SIC,A0CTL2 

B.ACCTLl 

LVf $3,AADD 

CMQC00{BU,6),$3. 



•_PJ_CA„UP_HALF «?lCRp 

-ADVANCE OVER DECIHAL POINT 



-PICK UP OCTAL CARD ORIGIN IN $3 
19 -ZERO REST OF VF OF $3 



TA000406 
TA000407 
TA000408 
TA000408 
TA000409 
TA000410 



006000. CO FO 



11? 
12* 
12* 
14« 
15* 
16* 



?35C6i 
235061 
235062 
235062 
235063 
235063 



.40 
.00 
.40 
.00 » 
.40 



_2_3_2553._ 
235226. 
235135. 
232553. 
235226. 
232545. 



Q6_?0 

72 42 
30 00 
46 90 

73 42 
42 80 



_KVi_|3f ALOWWD 
BXL,AcRR58 
N0P,APCRD2 
KV,$3,AhGHWD 
BXH,AERR5B 



TAogo4_i_i 

TA000412 
TA000413 
TA000414 
TA000415 
TA000416 



ACCTLP 
ACCTL3 



-IF P CARD THIS IS A BRANCH 



_-_ A_D V A_N C E _CV6R_BLANKS 

-SET COUNT TO PICK UP 6 OCTAL CHAR. 



ie» 
IS* 

2C* 
21* 
22» 



23_5C64 
235064 
235065 
235065 
235066 
235066 



.40 
.00 
.40 
.00 
.40 



_c.o_c.c_q6. 

235054. 
235042. 
232545. 
000002. 
235054. 



C3_C2 
40 80 
50 00 

02 BO 

03 02 
40 80 



LCIi$l,6_ 
SICAOCTL 
B.ACCTLC 
V+,$1»ACP 
LCI, $1,2 
AlCtAOCTL 



1*000417 
TA0004I8 
TA000418 
TA000419 
TA000420 
TA000421 



ACCTL5 



2 

-GO TO 

T12 



CHECK DECIMAL POINT 

-SPACE OVER DECIMAL POINT 
-PICK yp LAST 2 OCTAL CHAR. 



23* 
2^* 
25* 
26* 
21* 
26* 



235067 
235067 
235070 
235070 
235071 
235072 



.CO 
.40 
.00 
.40 
.40 
.00 



_2_3_5C_51. 
000002. 
232545. 
000000. 
235104. 
C0CC07. 



1 qq 

03 02 
02 BO 
14 81 
74 C2 

24 80 



_8,_ACCTL1 
LCI, $1,2 
V+,$1,A0P 
CTOOIUBU 
8RZ,A0CTH 
LF( BU,4), 



TA00g421 
TA000422 
TA000423 
TA000424 
TA000425 
TA000426 



112000.07 70 

004000.06 70 
235116.34 02" 
304000.12 FO 

040000.06 70 
140000.12 FO 



ACCTH 



T12 

,10)IV 
Z -BL 
$LZC+. 



+ n,.12I$l) -PICK UP 2 HEX CHARACTERS 

ANK COL STORE A ZERO 

3 



2i* 
3C« 
31* 
32* 

33* 
34* 



235073 
235074 
235075 
235075 
235076 
235077 



• cc 

.00 
.00 
.40 
.40 

.40 



JJJJJJ^' 
COGCOO. 
235070. 
232551. 
OOCCOO. 
232545. 



6.2__81_ 
04 82 
42 48 
CO 80 
40 83 
42 60 



_88»_T»l^i^ 
SF(BU,4){ 

CB,$1,AGC 
LF(EU,32) 
SF(BU,32) 
V+,$1,AGP 



1)»ACC 

V+ICR) 

TH 

,AADD 

IV+I), 

T24 



THJ 

,.4{$2) 

-Simt HALF kORO INSTRUCTION 
.32l$3) 

r^py mcE_ _qvE r .blanks 

rH A V£_ AJ-i-_ .CORRECTIONS _ BE E N L A D_e D 

pcate hiwd 



-UPDATE OCTAL CARD LOCATION CTR 

_-M.R MA_L _R e T UR N I N J C B CONTROL 

ICR),.3{$2) 



TA000427 
"TA000428" 
TA000429 
TA000430 
TA000431 
TA000432 



ACCTH2 
ACCT2A 



36* 
37* 
3E* 

39* 
4C« 



235100 
235100 
235101 
235101 
235102 
235102 



.40' 

.00 

.40 

.00 

.40 



2_3_5_C_62_. 
232554. 
235102. 
232554. 
232552. 
235233. 



46 4_8 

06 90 
33 40 

07 00 

47 DO 
10 CO 



_CB_,$3,_Aqc 

KV,$3,AHI 
8ZX|-,$ + l. 
SVA«$3,AH 
SVA,$3,AL 

B.ANORMR 



IL3 

hO 

IWD 
DTC 



1*000433 
'TA000434' 
TA000435 
TA000436 
TA000437 
TA000438 



ACCT4A 



-U 



42* 
43* 
44* 
45* 
4£« 



2351G3 
235104 
235104 
235105 
235106 
235106 



i99 

.00 
.40 
.40 
.00 
.40 



_ooAQ.o_o_. 

235054. 
000000. 
235075. 
OOOCOO. 
235114. 



C3_82 
50 00 
04 82 
10 00 
07 04 
72 C2 



304gqc.cc__Fq 

304000,00 FO 



J\CCTZ_ 
ACCTHZ 
ACIGNR 

TCICHZ 



_CMqcqq{^By 

B,ACCTL2 
CMOCOC(BU 
B,A0CT2A 
KVI,$3,C 

BX£,ACIGN 



,4)(y+ 

,4HV+ICR),.4{$2) 



TA000439 

TA000440' 

TA000441 

TA000442 

TA000443 

TA000444 



1 

,$+1. 



_- I_GNORe _k<HQI-E^ CARD 

-SET 1 BIT TO ZERO IF ON 



46* 
4S* 
5C* 



235107 
2 3 5110 
235111 
235111 



•0P_ 
.00 
.00 
.40 



J3q_0_G_ll. 
410200. 
235113. 
OOCCOO. 



67_80 
CC 80 
34 CO 
47 05 



235liq.34_ 06_ 
414000.15 70 



8BZ,$R.55 
CTICllCCB 
BZRZ,AOIG 
V+I,$3, .3 



TAggg445 

'TA000446~ 
TA000447 
TA000448 



U,12), 

N3 
2 



(8)4102 



-LAST HLF hO ON CRD TESTED 
-ADVANCE OCTAL CRD LOC CTR A HLF WD 



■Kfll 



c 



TIME CLOCK 0C054CA1 



PUNID 22LCACER 



CARD ID TA000500 



OIST. OF 3/CI 



3/01 



PAGE NUMBER 330 



LINE 



LOCATICN 



BINARY OUTPUT 



NAME 



STATEMENT 



LOCATION 



235154 



I» 235154.00 « 

2* 235155.00 

I* 235156.00 

4« 235157. CO 



000000.00 84 
235237.40 80 
C00C0O.40 84 
C0CGC0.40 83 



040040.06 70 
040000.06 70 
140000.12 FO 
140040.12 FO 



LF{BU,32),($4),64 
LF(BU,32),APN0P 

SFIBU,32MV+I),.32($4) -STORE NOP 
SF{BU,32)(V+I),.32($3),64 -STORE HLF 



-PICK UP OTHER HLF OF INSTR 



WD IN PATCH AREA 



TA000500 
TA000501 
TA000502 
TA000503 



t* 235160.00 



235150.50 00 



B,APCRD4 



TA000504 



£» 235160.40 

7» 235161.00 

£* 235161.40 

?» 235162.00 

1C» 235163.00 



C00G00.47 
000000.10 
232545.42 
235062.23 
235150.50 



OD 
33 

BO 
80 
00 



001000.36 FO 



APCRD5 V-I,$3,.32 
LV,$4,0C$3J 
V+,1,A0PT24 
CMllll(BU,l),A0CTLP.19 

B,APCRD4 



PICK UP BRANCH BACK TO PROGRAM 

-SAVE AND DECREMENT $3 BY A HLF WD 



-RESET TO NOP 



TA000505 
TA000506 
TA000507 
TA000508 
TA000509 



U» 235163.40 



232543.06 80 001000.00 FO APCRND CMOCOO { BU, 1 ) , APCRDI 



-TURN OFF P CARD INDICATOR 



TA000510 



12» 
13» 
14» 
15* 
16» 



235164.40 
235165.40 
235166.40 
235167.40 
235170.00 



235233.23 
235237.00 
000000.00 
000000.11 
000000.47 



80 
80 
83 

03 
05 



001000.36 FO 
040000.06 70 
040000.12 FO 



CMllll(BU,l),ANORMR+, 
LF{BU,32),APBRCH 
SF(BU,32J,C$3» 
SVA,$4,($3) 
V+Ii|3i.32 



19 -SET TO NOP 
-STORE BRANCH TO 
-IN PATCH AREA 



PROGRAM- 



■UPDATE HIWO AND ALDCTC 



TA000511 
TA000512 
TA000513 
TA000514 
TA000515 



\1* 
1S» 
1S» 
2C« 
21» 
22* 



235_17P 
235171 
235171 
235172 
235172 
235173 



.00 
.40 
.00 
.40 
.CC 



_2_325_54._ 
232552. 
235233. 
232554. 
CGCGOO. 
235226. 



OI_DQ 
47 DO 
10 00 
C6 30 
07 04 
72 C2 



SVAt|3,AHJWp_ 
SVA,$3,ALDTC 
BfANQRMR 
LV,3,AHIWD 
KVI|3,0 
_BXElAERR5B__ 



IA00p516 
TA000517 
TA000518 
TA000519 
TA000520 
TA000521 



ADCARD 



23» 
2<» 
25* 
26* 
27* 
2f » 



235173 
235174 
235175 
235176 
235176 
235177 



•5C_ 

.40 

.40 

.CO 

.40 

.00 



2i25Ji3, 
235C62. 
235037. 
000002. 
232553. 
235226. 



10 _80 
23 80 
50 00 
07 05 
46 90 
73 42 



QOiogo.36_Fp 

001000.00 FO 



_CMlllliByilj,ApCRC_I 

CMOCOO (BU,1),ACCTLP. 19 

BtAOCTLA 

V+I»$3,2. 

KV,$3,AHGHW0 

8XH,AERR5B 



IAQQQ522 
TA000523 
TA000524 
TA000525 
TA000526 
TA000527 



ADCRDl 



29» 

3C* 
31» 
32* 
33» 
34* 



235177 
235200 
235201 
235202 
235203 
235204 



•^0 
.40 
.40 
.40 
.40 
.CO 



_2_3_524p_« 
777776. 
235241. 
777777. 
777777. 
235237. 



c_o_ao 

00 8 3 
CO 80 
CO 83 
07 03 
CO 80 



000000.20 50 
000000.20 DC 
040000.06 70 
040000.12 FO 

040000.06 70 
040000.12 FO 



L(_BlJ,_64),ABpMP 

ST(eU,64),-2.l$3) 

LF(BU,32),A0FHA 

SF{BU,32),-1.{$3J 

SVA,$3,-1.($3) 

LF(BU,32),APBRCH 



TA000528 
'TA000529" 
TA00053O 
TA000531 
TA000532 
TA000533 



_35_» 
36* 
37* 
3£» 
3S* 
4C» 



235205 
235206 
235206 
235207 
235210 
23521C 



•GO 
.00 
.40 
.00 
.00 
.40 



IJJJJJj- 

mm. 

235151. 

235C62. 
235C62. 
020000. 



^_0__8_3_ 
51 03 
50 00 
23 80 
50 00 
CO 80 



Afi(_BU,_32)_t-.32($3_) 

SVA,$4,-.32l$3) 

8,APCRC4+1. 

CMllll(BU,l},A0CTLP.19 

B,A0CTL3 

LFI(BU,5),1 -CHECK SUM ERROR 



TAqg0534 
TA000535 
TA000536 
TA000537 
TA000538 
TA000539 



001000.36 FO 
405000.06 70 



ACCRD2 

_A EA^A _ 
AERRA 



42* 
42* 

44* 
45* 
4£* 



235211, 

235212 

235213, 

235214, 

235215, 

235216, 



40 
40 
40 
00 
CO 



PP_0_C_0_2_, 
231462, 
00CG02. 
COOCOl, 
04CG00. 
235211. 



1_5_8F 
30 80 
00 8F 
50 OF 
CO 80 
50 CO 



0C5ppp.l2_Fp 
014000.06 7C 
014000.12 FO 

405000.06 70 



SF(_ByL5)f2.13i$15) 

LF{eU,12),ALDeF.24 

SF(EU,12),2.($15) 

B,1.32($15) 

LFI(8U,5),2 

B, AERRA 



TA00p54O 

TA000541" 

TA000542 

TA000543 

TA000544 

TA000545 



AERR2 

aejCra 

AERR8 



■SEC- NO. OR IDD ERROR 

-TlX E G A L ~ N C 1^ ~ 8 S S ~ F U N C Tl N" 



4£* 
4S* 

5C* 



235216 
235217 
235220 
235221 



•:4P_ 
,40 
,00 
.CO 



_ip_c_c_pp, 

235211. 
20GC00. 
235211. 



CQ_80 
50 00 
CO 80 
5C 00 



4p5ppp_.p6_7p_ 
405000.06 70 



LFIL8y,51,4 
B, AERRA 
LFHRU,5),8 
BtAERRA 



TA0CP546 
TA6o0547' 
TA000548 
TA000549 



-NO ORIGIN CARD 



'Hai 



TIME CLOCK 0CC54C41 



PUNIO 22LCA0ER 



CARD ID TA0C0551 



DIST, OF 3/Cl 



3/01 



PAGE NUMBER 331 



LINE 



LOCATICN 



BINARY OUTPUT 



NAME 



STATEMENT 



LOCATION 



235221 



1» 

2* 

2* 



235221. AC 
235222.40 
235223.40 
235224.40 



060000, 
C0CC02, 
CCCCC2. 

coccoi. 



CO 80 
15 8F 
CO 8F 

50 GF 



405000. C6 70 AERR3 
005000.12 FO AERRB 
014000. GO FO 



LFI(BU,5),3 
SF{BU,5},2.13($15) 
CM0C00{BU,12),2.<$1 
B,l. 321115) 



-ILLEGAL TYPE OF CARD 



5) 



TA000551 
TA000552 
TA000553 
TA000554 



5* 

1* 
b* 

IC* 



2 35225.00 
235226.00 
235226.40 
235227.40 
235230.00 
235231.00 



120000 
235211 
120000 
235222 
140000 
235222 



CO 80 
50 00" 
00 80 
.5C CO 
CO 80 
50 00 



4050 00. C6 70^ 
405000.06 7C 
405000. C6 7C 
405000". 06" 70 



AERR5A 
AERR5B 
AERR6 



LFUBU.Sj.S 
BtAERRA 
LFnBU,5),5 
fl, AERRB 
LFI{BUt5),6 
B, AERRB 



„- QARJD AQADEDGUTSJDEOF- 
-A AND 8 



-C OR P CARD INCORRECTLY PUNCHED 



TA00055_5_ 
'TA000556 
TA000557 
TA000558 
TA000559 
TA0005&0 



11* 
12» 
13* 
14» 
15* 
16* 



23 5231.40 
235232.40 
235233.00 
235233.40 
235234.40 



16 0000. 
235222. 
235163, 
232543. 
000C03, 



qq 80 

'50 00 

70 00 

11 80 

50 GF 



AERR7 LFI{BU,5],7 

B, AERRB 
ANORMR NOP,APCRND 

BB,AFPCI,ARNRMl 

B,3.32($15) 

CNOP 



_-NP_ A^JA IN ^P y NC H E D_ I N F I R SJ C - 
-CARD ENCOUNTERED 



TAqqq56i 

"TA000562" 
TA000563 
TAG00564 
TA000565 
TA000566 



235004.74 02 



VL* 
It* 

19* 

2C* 

21* 

22* 



235235. 
235236. 
235237. 
235237. 
235240. 
235240. 



c_c_ 

00 
00 
40 
GO 
40 



oo_qc_qq.qq 80 

COCCOI. CO 84 

235237.10 00 

COCC00.3C CO 

00CC40.10 00 

_c_o_o_i_c_o_. qq a q 

000000.00 80 



000000.20 50 

lobobo. 2"c "5b 



A SET Z 3 
ALC4 
APBRCH 
APNDP 

AEDMP 



L(_8U,64) 
~L{Bl,64) 
B,$ 

NCP 
B,DMCP 

,DDUMP 



,UCJ 

( V+I),l. ($4 



-USED TO 
-TO LOAD 
-USED IN 
-USED IN 



CHANGE 
ZEROS 
P CARD 
P CARD 



ALOADl- 



ROUTING 
ROUTINE 



-USED IN ADC ARD 

.-M.SEq IN ADCARO 

-ORIGIN 

-FLOW 

-FORTRAN BRANCH CARD 5,6,7,8,9 
-BINARY DATA CARD 6,7,8,9 
-BINARY INSTR. CARD 5,7,9 



TAqq0567 
'TA000568" 
TA000569 
TA000570 
TA000571 
TA000571 



22* 
2A* 
25* 
26* 
27* 
2£* 



23524U 
235241. 
235241. 
235241. 
235242. 
235242. 



00 

40" 

54 

70 

04 

20 



ADFWA 
ATBL 



sic.q 

DD{eU,12 
DD(8U,12 
DD{BU,12 
DD<BU,12 
DDCBU,12 



TAqqq572 

"TA000573" 
TA000574 
TA000575 
TA000576 
TA000577 



0007 
0005 
0037 
0017 
G025 



),(8)C0C7 
),{8)G005 
), (8)0037 
), (8)0017 
),(8)C025 



2i* 

"3C* 
31* 

32* 
33* 

3A* 



235242^ 
235242. 
235242. 
235243. 
235243. 
235243. 



34 

50' 

64 

00 

14 

30 



20^0 

0027" 

C035 

4040 

C015 

1100 



_DDL.8y,_12),i8j2qiC rJ-JlAP_E_R_AllJ-__CARD_C 

DD(BU, 12), (8)0027 -COMMON DEFINITION CARD 5,7,8,9 
0D{BU, 12), (8)0035 -FORTRAN PROGRAM CARD 5,6,7,9 
DD(BU, 12), (8)4040 -D CARD 

DD(BU,12),(8)G015 -BRANCH 
DD(6U, 12), (8)1100 -T CARD 



TAqqq578 

"TA000579" 
TA000580 
TA000581 
TA000582 
TA000583 



3_-_* 
36* 

37* 

36* 

39* 

4C* 



235243, 
235243. 
235243. 
235244. 
235245. 
235246. 



44 
60 
74 
10 
00 
00 * 



2004 

"1300" 

4100 

4200 

OCCCOC 

OCCCOO 



DD(BU,12 
D0(BU,12 
DD(BU,12 
XW,-15., 
XW,-13. , 



)^(^8)2qq4 
)^, (8)1300 
), (8)4100 
), (8)4200 
0,,7 
35,, 7 



-P CARD 

-SUPERT 
-C CARD 
-B CARD 



TAqqq584 

"TA000585" 
TA000586 
TA000587 
TA000588 
TA000589 



CCC017. 
_C_C_00_15_. 
231462." 



00- 
00- 



111 
111 

000 



COOOOO 
000043 
000006 



AREADl 

_A_R_E_A_D_S_ 
ACXKl 



'42* 
43* 
44* 
45* 
46* 



235247. 
235250. 
235251. 
235252. 
235253. 
235254. 



99 

00 
00 
00 
00 

00 



16 + 

00 + 
00+ 
30+ 
00+ 
60 + 



qccqqq 

235251" 

235252 

235251 

235254 

235253 



XW,ALDBF 
XW, AADD, 
XW,AAD0, 
XW,AADD+ 
XW,ALDBF 
XW, ALOBF 



.14,6 

7,A0XW3 
8,A0XW4 
.24,2,A0XW3 
,2,ACXW3A,0-4 
.48,67, ACXW3 



j^PICICS U P 
-STORES LOG 
-STORES 
-STORES 

-USED 

-USED 
___-lNDI_CATES 

-INDICATES 



COLUMNS ON QCJJU^CARjq 
FIELD OF OCTAL CARDS 
OCTAL CHAR. 
HEX CHAR. 
IN CHECKSUM SETS XF 

IN CHECKSUM 

OR I GIN CARD 

FLOW CARD 



TAoqqsgq 

TA000591' 

TA000592 

TA000593 

TA000594 

TA000595 



232551. 
232551. 
232551. 
231462. 
231462. 



000 

coo 

COO 
100 

000 



000007 
COOOIO 
000002 
000002 
000103 



ACXW2 
ACXW3 
A0XW4 
ACXW3 
ACXW3A 



^1? 
48* 
49* 
5G* 
51* 



235255. 
235256. 
235257. 
235260. 
235261. 



CC 
00 
00 
00 « 



23146J. 
231462. 
235241. 
231463. 
231463. 



64 + 
64 + 
40 + 
40 + 
70 + 



ccq 

COO 
000 
000 

coo 



cqqqqq 

000014 
C00017 
COOOOO 
COOOOO 



OCCCOC 
OCCCOO 
OCCOOO 
OCCCOO 
OCCCOC 



AX^W_ORG 

AXiwFLW 

ATXWl 

AXWBIN 

AXRDAT 



XW,ALCBF 
XW,ALCBF 
XW,ATBL, 
XVi/,ALDBF 
XW,ALCBF 



.52, 12 
15,0 
.96 
.120 



TA0qq596 
"TAb00597' 
TA000598 
TA000599 
TA000600 



*Nai 



C 



TIME CLOCK 00054C41 PUNIC 


22L0A0ER 


( 


:ard 


ID TBOOOOOl DIST. OF 3/01 


3/01 PAGE NUWBER 332 




LINE LOCATICN 


BINARY OUTPUT 




NANt 


STATEMENT 


LOCATION 




1* 
2* 
















__ — _ — DCCiiUC: 


1 fiAn __________ ■_ _____ __ ___ _■ 


TBOOOOOl 
TB000002 


235262.00 


215001.03 


80 


235266. 


.74 


02 


YRESLl 


___ — __ _ — KcoUric: 
8B,SC0RG,YRESL2 


L.UAU __________ _ _____ __ _ — _ _ 


2* 


235263.00 


220452.23 


80 


235266, 


.74 


00 




BZB,KSIiO+1.19,YRESL2 




TB000003 


A* 


235264.00 


220453.00 


80 


022000. 


.20 


5C 




L{8U,ia),KSIL0+2. 




T8000004 


5* 


235265. CO 


232542. CC 


80 


022000. 


.23 


10 




KF(EU,18),ABSSIC 




TB00000.5 


£» 


235266.00 


235340.36 


C2 










BAEjYARSL 




TB000006 


!• 


235266.40 


231426.00 


80 


235315, 


.02 


AC 


YRESL2 


TI,1,YLLSAV, YRLLL 




TB000007 


£« 


235267.40 


231427.00 


80 


235307. 


.02 


AC 




TI, 1,YDFCS,YRL0TA 




TB000008 


S» 


235270.40 


215467.32 


10 










LX,$13,SREADS 


-SET READ SOURCE 


TB000009 


1C» 


235271.00 


232557.62 


80 


235272. 


,74 


00 




8ZB,YRLTT+2.5C,$+1.32 




TBOOOOIG 


1I» 


235272.00 


C0CG35.22 


00 










Z,$13 




TBOOOOii 


12* 


235272.40 


235315.31 


80 


235277. 


.34 


00 




BZB,YRLLL+.25fYRLCR 




TB000012 


13* 


235273.40 


215G05.C2 


50 










LC,$l,SBAPP 


-CLEAR PP MEMORY 


TB000013 


14» 


235274.00 


00CC41.C3 


01 










LVI,$1,(8>41. 




TB000014 


15^* 


235274.40 


C0CC41.C3 


08 










C-I,$l,f8)41. 




TB000015 


U* 


235275. CC * 


C0CC00.22 


01 










z,i$n 




TBO00Q16 


n» 


235275.40 


235275.03 


48 










CB+,$l,$-.32 




TB000017 


le* 


235276.00 


215001. C3 


80 


235313, 


.34 


00 




BZB,SCORG,YLOAD 




TB000018 


IS* 


235277.00 


0OCC35.31 


80 


235303. 


.74 


02 


YRLCR 


BB, $13. 25, YRDISK 




TB0000I9 


2C» 


235300. OC 


000040.10 


CO 










BtDMCP 




TB000020 


21* 


235300.40 


000104.40 


80 










,DSCR 




TB000021 


22* 


235301.00 


231462. CG 


80 










,YBCBU 




TB000022 


23» 


235301.40 


COCCOl.CO 


80 










,1.0 




TB000023 


2^» 


235302.00 


OOCCOO.CG 


80 










,0 




TB000024 


25* 


235302.40 


235346.50 


00 










8,YLERR 




TB000025 


26* 


235303.00 


235313.10 


00 










B.YLOAC 




TB000026 


27* 


235303.40 


000017.33 


06 








YRDISK 


V+IC,13,15. 




T8000027 


2£» 


235304. CC 


235305. 7C 


40 










BZXCZ.YCOMDK 


-IF AT END-OF-ARC, ADD TWO WORDS 


TB000028 


2S* 


235304.40 


C00C02.33 


05 










V+I,$13,2.0 




TB000029 


3C« 


235305.00 


C00C42.33 


02 










LCI, $13, 34.0 


-RESET END-OF-ARC COUNTER. 


TB000030 


31* 


235305.40 


235310.33 


DO 








YCCMDK 


SVA, $13, YDFRDA 




TB000031 


32* 
















CNOP 




TB000032 


33* 


235306.00 


000040.10 


00 










B,DMCP 




TB000033 


34* 


2353C6.40 


000102.40 


80 










tOFETCH 




TB000034 


35* 


235307.00 « 


OOGGOl.CC 










YRLOTA 


DR(N),{1) 




TB000035 


36* 


23531C.CC 


OOCCOO.CO 


80 








YDFRDA 


,0 




TB0G0036 


37* 


235310.40 


231462. CO 


80 










.YBCBU 




T6000037 


36* 


235311.00 


C0C017.C0 


80 










,15. 




TB000038 


39* 


235311.40 


COCCOO.CC 


80 










,0 




TBOOOoag 


AC* 


235312. CC 


000C00.3C 


00 










NOP 


-FORGET ERROR RETURN. 


T8000040 


41* 


235312.40 


235346.50 


CO 










B,YLERR 




T8000041 


42* 


235313.00 


235314.77 


01 








YLCAD 


LVI,15,YL0ADA 




TB000042 


43* 


235313.40 


000000.30 


00 










CNOP 




TB000043 


44* 


235314. CC 


234424.10 


CC 










B.ALOADR 




TB000044 


45* 


235314.40 


231462.00+ 










YLCADA 


VF,YBCBL 




TBOC0045 


4£* 


235315.00 


OOCCOO.CO 


80 








YRLLL 


_,o -. _ _ _ _ 




TB000046 


47* 


235315.40 


COOCOO.CC 


80 










,0 




TB000047 


48* 


235316.00 


235356.10 


00 










B,YLERR2 




TB000048 


4S* 


235316.40 


CCCCOC.CO+ 




' 






YLJSLT 


VF,0 




TB000049 


5C* 


23 531^0 
23 531^^0 


235320.50 


00 










B, YBCENC 




TB00005Q 


51* 


CCCOCC.OC+ 










YLBRA 


VF,C 




TB000051 


52* 


235320. CO 


235277. IG 


00 










B, YRLCR 


-NORMAL RETURN READ ONE ^*CRE CARD. 


TBOG0052 


53* 


235320.40 


235317.74 


30 








YBCENC 


LV, $14, YLBRA 




TB000053 


54* 


235321.00 


23C364.74 


30 


235345. 


74 


C6 




BBZ,REJJ0B+.60,YSUKFX 




TB000054 


55* 


235322.00 


232557.62 


80 


235323. 


74 


02 




BB,YRLTT+2.50,$+1.32 




TB000055 


56* 


235323.00 * 


215467.33 


10 










SX,$13,SREADS 




TB000056 



'NSI 



c 



IIME CLOCK 0CC54C41 PUNID 


22LCACER CARD 


ID TB0O0O57 DIST. OF 3/Cl 


3/01 PAGE ^1U^<BER 333 




LINE LOCATION 


BINARY OUTPUT 




Ktkf*,E 


STATEMENT 


LOCATION 235323 




I* 
2* 

3» 

4» 


235323.40 
235324.00 
235324.40 
235325.40 


232556.75 
215361.35 
231426.31 

C0CC4C.1C 


30 
30 
80 

CO 


001000. CC 


FO 




SV,$14,YRLTT+1.32 

SV,14,SICBU 

CMOCCO(BU,1J,YLLSAV*.25 

B,D^<CP 




TB0Q0057 
TB000058 
T8000059 
TB000060 


f « 


235326.00 


C0C041.G0 


80 








,DRET 




T8000061 


1* 

£* 

S» 

1C« 


235326.40 
235327.00 
235327.40 
235330.00 
235331.00 


CCCC32.02 
231204.40 
231172.10 
231501.01 
215001. C6 


30 
80 
CO 
80 
80 


001000.36 
OCIOOO.CC 


FO 
FC 


YRLLCG 


LV,1,$1C 

SICYPRRET 

B,YPR 

CM1111,YE0JS 

CMOCGO.SPINCL 




TB000062 
TB0G0063 
TB000063 
TB000064 
TB000065 


11* 


235332.00 


231426.31 


80 


235335.34 


04 


YRLEJJ 


BZBZ,YLLSAV.25,$+3.C 




TB000066 


12* 
13* 
14* 
15* 
16* 


235333. CC 
235333.40 
235334.00 
235334.40 

235335. CC 


215571. CC 
215570.10 
OOCIOI.OO 
235337. CC 
215571. CC 


80 
00 
80 
CO 
80 






YLREST 


SICSPRIMR 

B,SPRIME 

,DECJ 

BE, $+2. 32 

SICSPRIMR 


t 


TB000067 
TB000068 
TB000069 
TB000070 
TB000071 


17* 


235335.40 


215570.04 


00 








BD,SPRI^'£ 


. -HAVING DIAGNOSED ERROR FOR P.P., 


TB000072 


It* 
19* 
2C* 
21* 
22* 


235336.00 
235336.40 * 
235337. OC 
235337.40 
235340.00 


000104.00 
235337. CO 
000040.10 
000041.00 
220461.00 


80 
CO 
00 
80 
80 


022027.20 


50 


YARSL 


.OAEEOJ 

BE, $+.32 

B,DMCP 

,DRET 

L(BU,18),KSIL0+8.,46 


- GO TO ENOCFJOB. 
-SET UP LIMITS FROM COMHUN ICAT ION REG. 


TB000073 
TB000074 
TB000075 
TB000076 
TB000077 


23* 


235341.00 


220462. CO 


80 


022007. C6 


7C 




LF(EU,18),KSIL0+9.,14 




TB000078 


24* 
25* 
26* 
27* 
2£* 


235342. CO 
235343.00 
235344.00 
235344.40 
235345. CO 


235315. CC 
235315.31 
220462.44 
235314.77 
235C12.5C 


80 
80 
70 
01 

00 


000000.20 
001000.36 


CO 
FO 




STIEU),YRLLL 
CM111HBU,1),YRLLL.25 
LR,$2,KSIL0+9.32 
LVI,$15,YL0ACA 

B,ARNRN5 




TB000079 
TB000080 
TB000081 
T8000082 

TB0000a3 
























. ■ - 






. 











'Kai 



TIME CLOCK 0CC54C41 PUNIO 


22LCACER 


CARU 


ID TB000085 CIST. CF 3/Cl 3/01 PAGE NUMBER 334 




LINfc LOCATION 


BINARY OUTPUT 




NAME 


STATEMENT " LOCATION 




1* 
2* 

2* 
4* 
















LOADER REJECT - (YLERR2 - YLERR IS CASE WHERE BRANCH CARD IS MI 
SSING 1 - USE RETURN TO DIAGNOSE ERROR AND GOTO YBRLCG 


TB000085 
TB000086 
TB000087 

TB000088 


«=« 


235345.40 




235454.25 


01 








YSUKFX 


LVI,$1C,YSUKM 


TBooooag 


6» 
7* 
£* 
?« 

IC* 


235346.00 
235346.40 
235347.40 
235350.40 
235351.00 




235326.50 
220453.00 
232542. CC 
235352.36 
235374.25 


00 
80 
80 
02 
01 


022000. 
022000. 


.2C 
.23 


50 
10 


YLERR 
YAERR2 


B,YRLLGG 

L{BU,18r,KSIL0+2. 
KF(8U,18),ABSSI0 
BAE, YAERRl 
LVI,$IC,YL£M1 


TB000090 
TB000091 
TB000092 
TB000093 
TB000094 


11* 


235351.40 




235326.50 


CO 










B,YRLLGG 


TB000095 


12* 
13* 
14* 
15* 
Id* 


235352. CO 
235352.40 
235353.40 
235354.40 
235355.40 


« 


220462.42 
0CCC00.77 
COCGOl.CO 
232547. CO 
235C01.5C 


30 
81 
80 
80 
CO 


235351, 
422000, 
022000. 


,34 
.20 
,20 


00 
50 
CO 


YAERRl 


LV,$l,KSILO+9.32 -FETCH END RETURN ON A BSS JOE 

BZB,.63($1),YAERR2 

LI(6U,18),l. -LIBRARY ROUTINE WAS READ 

ST(RU,18),ARCDCT 

B,ARNORM 


TB000096 
TB000097 
TB000098 
TB000099 
T8000100 


17* 


235356.00 




235316.40 


80 


014300, 


,06 


70 


YLERR2 


LF(BU,12,3),YLJSLT 


TBOOOlOl 


18* 
19* 
2C» 
21* 
22* 


235357.00 
235357.40 
235360. CO 
235361. CO 
235361.40 




000C04.23 
000000.23 
235360.00 
235362.74 
024000. CC 


02 
01 
80 
CO 

80 


010000. 
410000, 


,13 
C6 


79 
79 


YLJL 


LCI, $9, 4.0 

LVI,$9,0.0 

CT0101(BU,8),$,0($9> - 

BZRZ,$+1.32 

LFI(BU,8),(2)C000101C»0{i9) 


TB000102 
T8000103 
TB000104 
TB000105 

TB000106 


22* 


235362.40 




000C04.23 


C5 










V+I,$9,4.0 


TB000107 


2^* 
25* 
2£» 
21* 

2e* 


235363. CO 
235363.40 
235364.40 
235365. CO 
235365.40 




235360.22 
235405.70 
235365.77 
230623. C4 
231477.40+ 


48 
80 
CI 
GO 


040000. 


20 


DO 




CB,f9,YLJL 
ST{eU,32),YMLJM+1.56 

LVI,$15,$+1.0 

BO, SCAB 

VF,ALD BF+13.32 


TB000108 
TB000109 
TBOOOllO 
TBOOOlll 
TB0001i2 


2?* 


235366. OC 


« 


CCCOIC 












CF,8 


TB000113 


3C* 
31* 

32* 
33* 
34* 


235366.40 
235367.00 
235367.40 
235370.40 
235371.00 




235407.00+ 
235316.62 

000031.00 
000031.22 
G00C31.22 


30 
80 
BO 

eo 


014000. 


CO 


FO 




VF,YMLJM+3.0 
LV,$9,YLJSLT 

CM0C00(BU,12),$9 ^^ 

V+,$9,$9 

V+,$9,$9 


TB000114 
TB000115 
TB000116 
T8000117 
TB000118 


35* 


235371.40 




235410. CO 


89 


235410. 


IC 


AC 




TI,4,YLJM1($9),YLJM1 


TB000119 


3t» 
37* 
38* 
39* 
4C* 


235372.40 
235373.00 
235373.40 
235374.00 
235400.00 


« 


235404.25 
235326.50 
000000-30 


01 
00 
00 








YLEMl 


LVI,$10,YMLJM 

BfYRLLOG 

CNGP 

(AX)DD{BU),-NC BRANCH CARD IN CURRENT DECK-X 

{AX5DD(BU), JOB REJECTED. X 


TB000120 
T8000121 
TB000122 
TB000123 
TB000124 


41* 


235404.00 














YHLJM 


{AX)DD(BU),-L0AD. REJ. CD. ID X 


TB000125 


42* 
43* 
44* 
45* 
4^* 


235410.00 
235414.00 
235420,00 
235424.00 
23543C.CC 


« 

« 


C0CC04.C0 










YLJPl 


DRZ(BU) ,(4) 

{AX)DD(EU), CHECKSUM ERROR. X 
(AXIDDIBU), SEQUENCE ERROR. X 
{AX)DD<BU), ILLEGAL TYPE OF CARD. X 
(A»)DD(EU), ILLEGAL NON-BSS FUNCTION * 


T8000126 
T8000127 
TB000128 
TB000129 
TB000130 


47* 


235434.00 
















{AX)OD(BU), TRIED TO LOAD OUTSIDE LIMITS. X 


TB00Q131 


4fc» 
4S» 
5C* 
51* 
52* 


23544C.C0 
235444.00 
235450. CC 
235454.00 
235462.10 


» 
* 












YSUKM 


{AX)DD{8U), C OR P CARD INCORRLCTLY PUNCHEDX 

{AX)CC{BU), FIRST C CARD HAS NO ORIGIN. X 

IAX)DD{BU),N0 ORIGIN IN FIRST CARD. X 

{AX)DD(6U),-JQB CANNOT BE RUN BECAUSE OF INPUT DIFF ICULT lES. X 

(AX)DD(BU), X 


TB000132 
TB000133 
TB000134 
TB000135 
TB000136 


52* 


235464.00 


« 


OOIGOO.CO 










CDSKBF 


DRZ{N),(512) - *•**« DISK FETCH BUFFER ***** 


TCOOOOOl 


54* 


236464. CC 




CCOOCC.OG+ 










ZFINIS 


VF,0 


TC000002 



'Hfll 



T IME CLCCK C0054CA1 

TiNt! locaTig'n 



PUNID 22LCACER CARD ID VAOOOOCl CIST. OF 3/Cl 

BIISARY ClJTPU~T ^NA>~E STATEMENT 



3/01 



PAGE NUMBER 335 
L C ATI C"N 



1* 
2* 

3* 
A* 



236464. 
2364 74, 



31 

65 



DEBUGGER 

PUNFUL 

(CC»)DDCBU,,12),e 
(CC»)CD(BU, ,12), 



HED, REP, 



22$DUHP, LOAD,, 

22$DUMP* 



VAOOOOOl 
VA000002 
VA000003 
VA000004 



5* 

1* 

€• 

S» 

1C» 



PUNORG 

"PUIMID,22$CUMP" 
RESEQ 

SLCYMPBUF 
L\/,$2,SICBU 
LVI,$12,$+1.C 



VAOOOOOS 
VA000006 
VA000007 
VAG00008 
VA000009 
VAOOOOIO 



234424.00 
234424.00 
234424.4_0_ 
234425.00 



215361. C4 30 
_2_m25.Il 01 
232574.10 CO" 



YDBEEG 



- TOK DISPLAY IC 



11* 
12* 
13* 
14* 
15» 

le* 



_B,PC4 

-ANY DEBUGGING" 

CT0011{BU,5),P 

BZRZ,PDB1 

B8, PNSLIN+ PSICK, POBl 

CT1100(BU,2), PNSLIN + PDKLS,0 



VAOOOOll 
"VA000012" 
VA000013 
VA000014 
VA000015 
VA000016 



234425.40 
234426.40 
234427.00 

234430.00 



232613.54 80 
234433.74 CO 
232613.20 80 
232615.20 80 



005000.07 70 

234433.74 02 

002000.31 70 



ACTICNS 
NSLIN+G 



DEFINED 
DELK 



IS ANY OF THE 5 KEYS CN 



-ARE BOTH ENTER FROM BINARY 



11* 

ie« 

19» 
2C» 
21* 
22* 



- KEYS AND DISPLAY ON _B I N AR Y KEY Lj JE S SET 

BRZ, PINC -YES TURN ON INCGMP CO^IBO LITE 

fiB,PNSLIN+PDKLS,PCfll -ANY OF SWITCHES ON 

BZB,PNSLIN+ PE8KS, P STR - NONE ON 

LVI,$14,$+,32 

6BZ,PNSLIN+Pt8KS,PEBK -ENTER FRCN BINARY KEYS 



y AGO 00 17 
'VA000018 
VA000019 
VA000020 
VA000021 
VA000022 



234431.00 
234431.40 
234432.40 
234433.40 
234434.00 



234454. 
232615. 
232615. 
234434. 
232615. 



74 
20 
21 
35 
21 



C2 
80 
80 
01 

80 



234433.74 02 
234656.74 00 

234535.74 06 



POBl 



23* 
2^* 
25* 
26» 
27* 
26* 



234435.00 
234435.40 
234436.40 
234437.00 
234440. CO 
234440.40 



234435. 
232613. 
234437. 
232615. 
234440. 
232613. 



75^ 
57 
35 
20 
75 
20 



CI 
"80 
01 
80 
CI 
80 



_lvIl*1^i_Ij:«32 

bb"z,pnslin+phdk,ph 

LVI,$14, $+.32 
8BZ,PNSLIN+P0KLS,PDKL 
LVI ,$14, $ + .32 
BBZ,PNSLIN+PSICK,PSC 



VA000023 
VA000024 
VA000025 
VA000026 
VA000027 
VA000028 



234502.34 06 
234507.34 06 
234456.74 06 



-HOLD KEY ON 

-DISPLAY ON BINARY KEY LITES 
-SET IC 



2S* 

"3C» 

31* 

32* 

33* 
34* 



23444U4C 
234442.00" 
234443.00 
234443.40 



234442_. 
232613. 
234443. 
232613. 



35 01 
56 80 
75 01 
60 80 



Ly][,$14, $+.32 

'B8Z,PNSLIN+PDUMK,PDU^" 
LVI,$14, $+.32 
BBZ,PNSLIN+PSTK,PSTR 



vAqqoo29 

"VA000030" 
VA000031 
VA000032 
VA000033 
VA000034 



234556.74 06 
234656.74 06 



-DUMP 
■START 



_-A0 MORE C N S L _ R E Q U E S T S_ AND S T A R_T_ KEY NOT ON 
Z,PCN0UT+2.0 



35* 
36* 
37* 
3fi* 
3S» 
4C* 



234444.40 

234445. CC' 

234446.00 

234446.40 

234447.00 

234447.40 



232632. 
232632. 
232613. 
232630. 
000040. 
OOGCOl. 



22 CO 
20 80 

04 10 

05 10 
10 CO 
41 80 



P El 
PE4 
P E2 



vAqqqq35 

~VA000036 
VA000037 
VA000038 
VA000039 
VA000040 



001000.36 FO 



CMllll(8U,l),P0N0UT+PHaLDS -TURN ON HOLD LITE 

LX, $2, PNSLIN -KEY SETTINGS 

SX,$2,P0N0UT -LEAVE NUM DISPLAY ALONE 

B,D MCP 

,D W S 



42* 
43* 
44* 
45* 
46* 



234450.00 
234450.40" 
234451. CO 
234452. CO 
234452.40 
234453.00 



00C_012_. 
232650." 
234663. 
215571. 
215570. 
OOCIOI. 



c_o__8q 

CO 80 

40 80 

CO 80 

04 00 

40 80 



, P _C DE F2 

,P CW5 

CMllll(BU,l),PHOLDB 
SIC, S PRIMR 
BO, S PRIME 
,D HOLD 



yAqqqq4i 

"VA000042 
VA000043 
VA000044 
VA000045 
VA000046 



001000.36 FO 



PE3 



-HOLD BIT ON 



47* 

"4e« 

45* 
5C» 
51» 



2 344 53.40 

234454.00" 

234454.40 

234455.00 

234456.00 



C_0C_G4q. 
00GC41. 
232632. 
232632. 
234446. 



cc_cq 

CO 80 
22 CO 
21 80 
10 CO 



BE.CMCP 

", D RET 
Z,PCN0UT+2.0 

CM111HBU,1J,P0NCUT + PINCS,0 
B,PE4 



yAqqqq47 

'VA000048" 
VA000049 
VA000050 
VA000051 



PINC 



001000.36 FO 



^nai 



C 



TIME CLOCK 0C054CA1 



PUNID 22$DUNP 



CARD ID VAC0G053 



DIST. OF 3/Cl 



3/01 



PAGE NUMBER 336 



LINE 



LOCATION 



BINARY OUTPUT 



NAME 



STATLMtNT 



LOCATION 



1* 

2* 

2* 234456.40 

<» 234457.00 



234677.40 80 
234666.10 CO 



PSC 



-SET INSTRUCTION COUNTER 

SIC,PA02 

B,PA1 -OBTAIN NEW BINARY ADDRESS IN ADDRESS PORTION 



VA000053 
VA000054 
VA000055 
VA000055 



-OF $R. $L=C 



VA000056 



6» 
1* 
f 
9* 
IC» 



234457.40 
234460.40 
234461.40 
234462.00 
234462.40 



215361.00 
232636.00 
215334.22 
232607.04 
232633. C5 



80 
80 
CO 
10 
10 



030024.20 DO 
030024.20 DO 



PSC3 



ST(BU,24), SIC BU, 40 -NC INSERT IC FOR MAINSTREAM RETURN 

ST{BU,24>,P0N0UT+6.C,40 

Z,SLRBU+8.0 

LX,I2,PSETIC -SET UP NMEMONIC SET IC 

SX,_$2,PCN0yT + 3.0 



VA000057 

vAoooosa 

VA000059 
VA000060 
VA000061 



11* 
12* 

12* 
14« 
15» 
Id* 



234463_.p_0 __ 
234464.00 
234465.00 
234465.40 
234466.00 * 



_2_326i4.Cg 80 

232631. CO 80 

14CC00.C5 01 

000012.05 30 

000010.00 30 



040000.20 50 
040000.20 DO 



060004.24 DO 
410044".C6"70" 



L f BU , 321, _PNSL_IN + 1.0,0 



yAoogo62 

VA000063 
VA000064 
VA000065 
VA000066 
VA000067 



ST{ EU,32),P0N0UT+1,C 
PSC5 LVI ,$2,49152. 
SV,$2,1C.C 
ST(CU,48,a),$L,8 



-LFT NUMERIC SWITCHES 

-2 14 + 2 15 
-SET ZERO BITS - 0011 
-EXPAND 1ST 6 4 BIT DEC CHARACTERS TO 

-8 BIT BYTES WITH ZERO BITS = 001 



il* 
1€» 
19* 
2C* 
21* 
22* 



234467. CO 



164000.00 80 



C LQO 1 1 ( e y , 8 )_,J_2_)_C_0_1_1_1_0_1_C_,_72 __- 1 NS E R T 1 _ Z ERC_ B_I J_ _+_ X ALLS OF _ 

-PERIOD, 
ST{DU,16,8),$L+0.56,C -EXPAND 2 DECIMAL CHARACTERS TO 8 BIT 

-BYTES 
BZB,PNSLIN+P0AS,PSC1 -TC INSERT (Oi 
Al_LByt241,(8)0451462 3,A2_ ~_LNS_EAL_0_BI_T + 23 B1JS_0F LOJ 



yAggpp68 

VA000069 
VA000070 
VA000071 
VA000G72 
VA000073 



234470.00 

234471.00 
234472.00 
234473^.00 
234474.00 
234475.00 

234476.00 
234476.40 
234477.00" 



000010.70 80 020000.24 DO 



232615.13 80 
J]4_5_1A6_._2_3 _8 q 

A76A0A.AC AQ. 

232634. CO 80 
232635.00 80 

000040.10 00 

o_GAQ_L»AL AQ. 

000012. CO 80 



234500.74 00 
430020.20 10 



11* 
24* 
25* 
26* 
27* 
2£» 



^11013. 46_7p 
000037.52 FO 
050013.52 FO 



PSC2 



_C 1_QC ll(.By,?j,J8J lib J 23 rJASEAL A^TH _BiTgF)_+_ENp_ CO ClE_ 
CM01Cl{eU,64),P0N0UT+4.C,63 
CM0101(BU,40),P0N0UT+5.C,23 



VApggp74 

'VA000075' 
VA000076 
VA000077 
VA000078 
VA000079 



BjDMCP 

,__D W S 

' , P C CEF2 



-LOG MESSAGE 



29* 

"3C* 
31* 
32* 

32* 
34* 



VAgggoag 
VAooooar 

VA000082 
VA000083 
VA000084 
VA000085 



234477.40 
234500.00 
234500.40 
234501.40 » 



232647. CO 80 
000001.10 CE 
045222.23 80 
234473.10 00 



430020.20 10 



,P CW4 
B,1.0($14) 
PSCl +I(BU, 24), (8 104522223, 32 -INSERT 
B,PSC2 



BIT + 23BITS OF lOJ 



A5_* 

3d* 
37* 
3£* 
39* 
4C» 



vAogog86 

VA000087" 

VA000088 

VA000089 

VA000090 

VA000091 



234502.00 
234502.40 
234503.40 
234504.00 



232632.22 CO 
232632.20 80 
232613.04 10 
232630. C5 10 



PH 



001000.36 FO 



-HOLD 

Z,PCN0UT+2.0 

CM1111(BU,1),P0N0UT+PH0L0S -TURN ON HOLD LITE 

LX,$2,PNSLIN -DISPLAY KEY SETTINGS 

SX,$2,PCN0UT -LEAVE NUM DISPLAY ALONE 



All 
42* 
43* 
44* 
45* 
4d* 



vAoggg92 

"VA000093" 
VA000094 
VA000095 
VA000096 

VA000097 



234504.40 
234505.00 
234505,40 
234506.00 
234506.40 



C00C40. 10 00 
000001.41 80 
000012.00 80 
232650.00 80 

OOGCOl.lO OE 



B.DMCP 
, D W S 

, P C DEF2 
,PCW5 
B, 1,01$14) 



-TURN ON HOLD LITE 



'Kai 



C 



TIME CLOCK CGC54G41 



PUNID 22$DUMP 



CARD ID VA000099 



DIST. OF 3/01 



3/01 



PAGE NUMBER 337 



LINE 



LOCATION 



BINARY OUTPUT 



NA^«E 



STATEMENT 



LOCATION 



1* 
2» 

3 • 
A* 



234507 
234507 
234510 



.00 
.40 



234535.00 
234515^10 
234677.40 



80 
CO 

ao" 



-DISPLAY ON BINARY KEY-LIGHTS 
P DKL SIC, P LOCK T 

8, P LT - TO TEST FOR LATCHED KEYS 



VA000099 
VAOOOIOO 
VAOOOlOl 

VAOOOlOl 



t* 



.00 
.40 
.00 
.40 
.00 
.40 



SIC|^PA02 

B.PAl 

LV,$2, $R 

LX,$3,0U2) 

SX,$3,P0N0UT -SET 

CMl 1 U t BU, 1 ) , PONOUT + PHOLOS 



yAO0O_102 
'VA000102" 
VA0G0103 
VA000104 
VA000105 
VA000I06 



S* 
IC» 



2345IC 
234511 
234511 
23*4512 
234512 



234666.10 
C00C11.04 
CCCCC0.C6 
232630.07 
232632.20 



CO 
30 
12 
10 
30 



-OBTAIN ADDR OF LCC TO BE DISPLAYED 



UP CONTENTS OF LOC TO BE DISPLAYED 



001000.36 FC 



11» 
12* 
13* 
14* 
15* 
16* 



234513 
234514 
234514 
234515 
234516 
234516 



.4_0_ 

.00 

.40 

.00 

.00 

.40 



234450.35 
232610.04 
234462.50 
232572.00 
000040.10 
C0CCG1.41 



01 
10 
CO 
80 
00 
80 



,0 



A^t»_|l^»PE3-l^ 
LX,$2,PCISKL 
8,PSC3 
CM1111(BU),PLTWA 

B,D MCP 

,D ki S 



yA000107 

vAoooioa" 

VA000109 
VAOOOllO 
VAOOOlll 
VA000112 



000000.36 FC PLT 



-INSERT ALL IS 
WRITE SEOP ALL ONES 



11* 

lei 

19* 
2C» 
21* 
22* 



23451_7 
234517 
234520 
234520 
234521 
234521 



•99- 

'.4 
.00 
.40 
.00 
.40 



_CiO_CCl_2._CC 
232651. CO 
000040.10 
000001.01 
000012.00 
232652. CO 



80 

80" 

00 

80 

80 

80 



,P C DEF2 
", PCW6 
8,0 MCP 
,D RD S 
,P C CEF2 
,PCW7 



yA000ll3 
'VA000114" 
VA000115 
VA000116 
VA000117 
VAC00118 



-ATTEMPT TO RO SEOP ALL ONES 



23* 
2<* 
25* 
26* 
21* 
2i* 



234522 
234522 
234523 
234523 
234524 
234525 



_.CC 

.40" 

.00 

.40 

.40 

.00 



C0C_C_40.10 
CCCC13.40 
000012.00 
232571.00 
234454.74 
232572.00 



00 
"80 
80 
80 
CO 
80 



_B_,DFCP 

,DWAIT 
,PCDEF2 

CT1100(8U),PLTRA 
BZRZ.P INC 
CM0C00(eU),PLTWA 



vAoooiig 

'\7A000120' 
VA000121 
VA000122 
VA000123 
VA000124 



000000.31 70 



000000.00 FC 



-OUT-KEY LATCHED TO ZERO 



2S* 
"3C* 
31* 
32* 
33* 
3^» 



234526 
234526 
234527 
234527 

234530 
234530 



.00 

.40' 

.00 

.40 

.00 

.40 



coACAQ-»_i_c 

000001.41 
000012.00 
232651.00 
000040.10 
OOCCOl.Ol 



CO 
80 
80 
80 
00 
80 



8,_DMCP 

»D liv S 
,P C DEF2 
,PCW6 
BiOMCP 
,D RD S 



yAG00l25 
VA000126 
VA000127 
VA000128 
VA000129 
VA000130 



-WRITE SEOP ALL ZEROS 



-ATTEMPT TO RD SEOP ALL ZEROS 



35* 
36* 
37* 
38* 
3S* 
4C» 



234531 
234531 
234532 
234532 
234533 
234533 
234534 
234535 



.00 

.40" 

.00 

.40 

.00 

.40 

.40' 

.00' 



CCCC_12.C0 
232652. CO 
C0CC4O.1C 
000013.40 
000012.00 
232571.00 
234454.74 
OOCCOC.IO 



8_0_ 
'80 
00 
80 
80 
80 
CO 
"00 



,P CDEF2 

,PCW7 

B,OMCP 

,DWAIT 

,PCCEF2 

CJ_OCll(eU)^^PLTRA 

~8Z_RZ,PINC ' 

B,0 



VAqqqi3i 

VA000132" 
VA000133 
VA000134 
VA000135 

\/Aqoqi36 
"yAqooi37' 

'VA000i38' 



000000.07 70 



41^* 
42* 



■mrr-KEX LATCHED TO ONE 
-RETURN TO PDKL 



P LOCK T 



'KSI 



TIME CLOCK CC054C41 



PUNID 22$DUfP 



CARD ID VAOOOIAO 



DIST. OF 3/Cl 



3/01 



PAGE NUMBER 338 



LINE LOCATICN BINARY OUTPUT NAI'E STATEMENT LOCATION 



1* 
2* 

2* 

A* 



234535 
2 34536 
234536, 



4G 

o_c_ 

40 



234677. 
234666. 
COCCI 1. 



40 80 

ic^co 

C6 30 



{ENTER FROM 
PESK SICtPAC2 
8,PA1 



BINARY KEYS 



VA000140 
VA000141 
VA000142 
VAC00I42 



1* 

s* 

ic» 



LV^$3,$R ^-'illl-SICRAGEAppR IN _$_3_ 

'L(BU,8),PNSLIN+1.56,C -LOADN 

Kneu,8),(2}iiiiiiii,o 

BAEfPEBKl -TO INSERT N=64 
KFHBU, 4), (2)1111,4 
_BAE,PERR1 



yA0p0143 
"VA000144 
VA000145 
VA000146 
VA000147 
VA000148 



234537, 

234540 

234541, 

234541, 

234542. 



CC 
CO 
00 
40 
40 



232614, 
776C00. 
234555, 
74CC00. 
234664, 



70 80 

CC 80 

76 C2 

CO 80 

36 C2 



010000.20 50 

410000.21 10 

404002.23 10 



11? 
12* 

13» 

14» 
15» 
16» 



234543, 
234544, 
234544< 
234545. 
234546. 
234547, 



po_ 
oc 

40 
40 
00 
CC 



JT^GCCO, 
234664, 
COCCOO. 
234555. 
31CC0O, 
234664. 



CC_80 

36 C2 
00 80 
76 C2 
CC 80 

37 42 



4g4ppp.2_3__lC_ 
410000.23 10 
410000.23 10 



KFItByi41,{2J_ll_l_l 

BAE,PERR1 
KFI(BU,8),0 
BAE, PEBKl 
KFI(BU,8),(16)64 

BAH,PERR1 



yApppi4g 

VAOOOISO" 

VA000151 

VA000152 

VA000153 

VA000154 



11* 
1£» 
IS* 
2C» 
21* 
22« 



23454Jj 
23455C, 
234551, 
234552, 
234553, 
23ff554, 
234554. 



40 
00 
CO 

00 

cp_ 

4C 



_Q.Q.co.Li_. 
coccio, 

000022. 
232613. 

ooccoo, 

_2_3_2AU_< 
234443. 



ZQ_80 

04 30 
CG 80 
00 80 
00 83 

0^_lQ 
75 01 



010473.64 30 



LCyiDy,8,4_) J _$_R_+ 0_«_5Af_U_9_ _- LO A p _N_INTp_yFTC_ _E F F £ C T LENGTH 
LV,$2,$L 
CMOCO0{BU,3),$2 
L(By,64l,PNSLIN,0 

ST{BU,0,8),C{$3),0($2) -STORE N BINARY BITS 
_LX»^$2,PENTBK 



yApppl55 
VA000156 
VA000157 
VA000158 
VA000159 
VA000160 



003000. CO FO 
000000.20 50 
000000.20 D2 



PEBK2 



lit 
2<» 
25* 
26» 
27 » 
2£» 



LVI f $14iPElrl.C 



-JHPi _M_OR„E SCANNING 

-SCANNING 

-SET M=64 I.E. LENGHT = 



YApppl61 
VA0001&2 
VA000163 
VA000164 
VA000165 
VA000167 



234555.00 
234555.40 
234556. CC 



234462.50 CO 
000000. C5 01 
234552.10 00 



PEBKl 



B,PSC3 
LVI ,$2,0 
B,PEBK2 



2i» 
3C» 
31* 
32* 
33* 
34* 



yA000167 
"VA000168" 
VA000169 
VA000170 
VA000171 
VA000172 



234556. 4C 
234557.40 ♦ 
234560.00 
234560. 4C 



232615.15 80 
CCCCC7.44 30 
C0CC01.05 04 
234454.72 40 



003000.07 70 



-DUPP 
PDUN CT0C11(BU,3),PNSLIN+PFPS 
LV,$2,7.32 
KVI,$2, 1.0 
BZXL.PINC 



234561.00 
234562.00 
234562.40 
234563.00 
234564.00 



212J)JL4j03jC .80. 
234454.72 40 
234573.34 CO 
232614.40 80 
234664.34 CO 



040000.31 70 



AI1_10 LB y 1^3 2 1 1 P N S L j N + 1 . C 

BZXL,PINC 

BZRZ,PCUM9 

CT11C0(BU,32),PNSLIN+1.32,0 

BZRZfPERRl 

-OBTAIN 



yA0p0173 
VA000174 
VA000175 
VA000176 
VA000177 
VAO00178 



36* 
37* 
36 • 
3?» 
4C* 



040000.31 70 



-NC-8Y 
-RIGHT 



PASS 
ADDR. 



BLANK. 



RANGE FROM LIMIT CARD 



Alt. 
42* 
43* 
44* 
45* 
46* 
47* 



234564.40 

234565. CC 

234565.40 

234566.40 

234567.40 

2 3457G_.4C_ 

234571.40 



215324.70 30 



_Ly.»_il2^SPPLB 

LV,$13,SPPUB 

L(DU,21»3),$12,4 

ST{BU,32),PNSLIN+1.0 

L(DU,21,3),$13,4 

ST(_By,321,PNSL_IN_+_l_._3_2____ 

CMOCOO ( BU , 1 ) , PNSL IN + 2_._1_1_ 



yAp00179 

VAOOOiao' 

VA000181 

VA000182 

VA000183 

yA0Gpi84 

VAOOOIBS 



215324.32 
000034.00 
232614.00 
C0CC35.CC 
232614.40 



30 
80 
80 
80 

80 



025302.24 50 

040000.20 DO 

025302.24 5C 

040000. 2 C CO 

001000.00 FO 



232615.13 80 



*Nai 



TIME CLOCK CC054C^1 



PUNID 22$CUNP 



CARD ID VA000187 



DIST. OF 3/Cl 



3/01 



PAGE NUFBER 339 



LINE 



LOCATION 



BINARY OUTPUT 



NA^«E 



STATEMENT 



LOCATION 



234572 



1* 234572.40 

2* 234573.00 

2» 234573. 4C 

^* 234574.00 



234605. 10 00 
234677.40 80 
234666.10 00 
000011.30 30 



8, P DUF5 -1.0 
PCUMg SIC,PA02 

e,PAl -OBTAIN 

LV,$12, $R 



INITIAL AODR 
-INITIAL ADDR 



OF DUMP IN $12 



VA000187 
VA000188 

vAOooiea 

VA000189 



5» 234574.40 



232614.00 80 000000.20 50 



L{8U),PNSLIN+1.0,C 



-LOAD INITIAL AND END ADDR 



VA000190 



?» 

9* 
1C« 



234575.40 
234576.40 
234577.40 
234600.00 
234600.40 



232614.40 80 
232614.00 80 
234677.40 80 
234666.10 00 
C0CC11.32 30 



040040.20 10 
000020.20 DO 



+(BU,32), PNSLIN+1.32,64-ADD END ADDR 

ST(eU), PNSLIN+i.G,32 -REVERSE ORDER 

SIC,PA02 

8,PA1 -OBTAIN END AODR 

LV,$13 ,$R -PUT END ADDR IN 



LEFT OF INT ADLR 

OF INT AND END ADDR) 



VF OF $13 



VA000191 
VA000192 
VA000193 
VA000194 
VA000195 



11* 234601.00 



232614. CO 80 000000.20 50 



LCBU) ,PNSLIN+1.C,0 



-LOAD END AND INITIAL ADDRS 



VAOOOigS 



12* 
12* 
14* 
15* 
16* 



234602.00 
234603.00 
234604.00 
234604.40 
234605.00 



232614, 
232614, 
000035. 
234664, 
234624. 



40 80 
00 80 
30 90 
33 42 
71 DO 



040040.20 10 
000020.20 DO 



+ {B 
ST( 
KV, 
BXH 
SVA,$12tP DU DAT 



U,32), PNSLIN+1.32,64-A0D INITIAL ADDR LEFT OF END ADDR 
BU), PNSLIN+1.0,32 -RESTORE ORDER OF INT AND END ADDRS 
$12, $13 
, PERRl 



VA000197 
VA000198 
VA000199 
VA000200 
VA000201 



ie» 
is» 

2C» 
21* 

22* 



234605.40 
2 3460 6.00 
234607. CO 
234610.00 
234611.00 
234612.00 



234625. 
232615, 
232615, 
232615, 
234625, 
232615. 



^3 DO 

15 80 

16 80 

17 80 
40 80 
14 80 



SVA,$13,Ppti_ p_AJ_+_»_32_ 

BB,PNSLIN+PFPS,PFP -FP 
BB, PNSLIN + P OHSS, POHS 
88,PNSLIN+PXWS,PXW -XW 
CM000C(BU,18),P DU CAT+1.0 
BB,PNSLIN+PSSRS,PDUN!ti 



yA000202 
"VA000203~ 
VA000204 
VA000205 
VA000206 
VA000207 



234652.34 02 
234653.74 02 
234655.34 02 
022000.00 FO 
234623.34 02 
'001000.00 FO" 



Pt;UI«5 



P DUMl 



OCT HEX SUPPRESS MNEMONICS 
-SET TO OCTAL-HEX 



22* 
2^* 
25* 
26* 
27* 
2£» 



234613.CC 

234614.00" 

234614.40 

234615.00 

234615.40 



234625, 
232612, 
232633, 
234650, 
234626. 



62 80 

04 10 

05 10 
CO 80 
10 00 



CMOCOO l^BU , n , P piJ P A_T + 1 . 1 8 

LX,$2,PDUMP 

SX,$2,PONOUT+3.0 

SICPMfcSl 

B,PMES -INSERT AODR 

-WRITE OUT DAMP LINKAGE 



-PRINT LOWER REGS 



VA000208 
~VA000209' 
VA000210 
VA000211 
VA000211 
VA000212 



PCUM7 



-INSERT DUMP CHAR CODE 



RANGE 
TYPED 



MESSAGE 



2S* 
"3C» 
31* 
32* 
33* 
34* 



234616, 
234616' 
234617, 
234617, 
234620. 
234620, 



CO 

40' 

CO 

40 

CO 

40 



C0C_C_40. 
COCCOl. 
000012. 
232647. 
COCCOl. 
234622. 



10 _C0 
41 80 
GO 80 
CO 80 
35 05 
7 5 CO 



_8,pi*^CP 

, D W S 

, P C CEF2 
,P CW4 
V+I,$14,1.0 
SVA,$14,PCUM6 



-LOG DUMP REQUEST 



VA000213 

VA000214 

VA000215, 

VA000216 

VA000217 

VA000218 



35* 

36* 
37* 

38* 
3S» 
4C* 



234621 

234621^ 

234622, 

234622. 

234623, 

234624, 



CC 
40 
00 
40 
CO 
00 



000040. 
OCCICC. 
234624. 
234622. 
234625. 
234614. 



1C__G_0 
CO 00 
40 80 
50 CO 
62 80 
10 00 



MCP 

, CUMP 



8,0 
BE" 

,P DU CAT 
B,$ 
CMl 
B,P 



-TO $0UMP 



V A 0002 19 

VA000220" 

VA000221 

VA000222 

VA000223 

VA000224 



001000.36 FO 



PCUM6 
P DUM8 



111(EU,1),P 

CUM7 



CU OAT+1.18 -SUPPRESS LOWER REGS 



42* 
43* 
44* 
45* 
46* 



234624, 
234625. 
234625, 



40 

CO" 

40 



C_OC_C_00. 
OOOCOO. 
000000. 



CO _ao 

CC 8 
30 00 



f_ilu__DAL_»_o _ 

fO 
NOP 



VAq00225 
"VA000226" 
VA000227 
VA000228 
VA000229 
VA000230 



»0 



"SET UP AppR_ RANGE FOR TYPING^ 

\(_8y,32),PNSLI N + 1 . 3 2 ,_0_ _ -PUl „ENP_AppRIN$R 

LVI, $2,49152. -2 TO 14TH PLUS 2T0 15TH 

SV, $2,10.0 -SET ZEONE BITS=C011 

ST{DU,48,8),$L,8 -EXPAND 1ST 6 4 BIT NEC CHAYS OF END 



4 7* 

'48* 

4c» 

5C* 



234626^00 
234627.00' 
234627.40 
234630. OC 



23_2_6_14.4 80 
14CCC0.C5 01 
CCCG12.05 30 
OOGCIO.CO 80 



400 00 .2 C 50 PJIEA 
060004.24 DO 



yA000231 
VA600232" 
VA000233 
VA000234 



*Hai 



IIME CLOCK GCC54C41 PUNID 


22$DUKP CARD 


ID VA00C236 DIST. OF 3/Cl 3/01 PAGE NUMBER 


340 




LINE LOCATION 


BINARY OUTPUT 




NAME 


STATEMENT LOCATION 






1» 
2* 

3* 
<* 


234631.00 


164000.00 


80 


410044.06 


70 


- 


-ADD2 
-TO 8BIT BYTES. BITS 0-47 OF $L 
CIOOIKBU, 8), (2)00111010,72 -INSERT 1 ZERO BIT 8 7BITS OF 

-PERIOD 


VA0G0236 
VA000237 
VA000238 
VA000239 


"=» 


234632. CC 


000010.70 


80 


020000.24 


CC 




ST(CU,16,8),$L+0.56,C -EXPAND THE 2 4 BIT DEC BIT ACDR 


VA000240 


e* 

s» 

IC* 


234633. CO 
234634.00 
234635.00 » 
234636. CC 


232615.13 
045146.23 

776000.00 
232635. 10 


80 
80 
80 
80 


234650.74 

430020.20 
411013.46 
010000. GO 


00 
10 
70 
FO 


PMES3 


-TC 8 BIT BYTES 
8Z8,PNSLIN+P0AS,PM£S2 -TO INSERT {0) 
+ICeU, 24), {8104514623,32 -INSERT BIT + 23 BITS OF (D) 
CIOOIKBU, 9), (8)776,23 -INSERT 24TH BIT OF ) + END CODE 
CM0000(BU,8),PONOUT+5.O8,C -INSERT SPACE BETWEEN INITIAL 


VA000241 
VA000242 
VA000243 
VA000244 
VA000245 


11* 












— 


-ADDR + END ADDR 




VA000246 


12* 
12* 
14* 
15* 

16* 


234637.00 
234640.00 
234641.00 
234642.00 
234642.40 


232635.20 
232636.20 
232614.00 
14CC00.C5 
000012.05 


80 
80 
80 
01 

30 


000037.52 
050013.52 
040000.20 


FC 
FO 
50 




CM0101(BU,64),P0NCUT+5.16,63 -INSERT END ADDR- 

CM0101(BU,40),P0NOUT+6.16,23 -XXXXXX. XX(D) END CODE 

L1BL,32),PNSLIN+1.0,0 -PUT INITIAL ADDR IN $R 

LVI,$2,49152. 

SV, $2,10.0 -SET ZONE BITS=0011 




VA000247 
VA000248 
VA000249 
VA00025O 
VA000231 


1/* 


234643.00 


000010. CO 


80 


060004.24 


CO 




ST{CU,48,8),$L,8 -EXPAND BIT 6 4 BIT CHAR OF INITIAL ADDR 


VA000252 


le* 

19* 

2C* 
21* 
22* 


234644.00 
234645.00 
234646.00 
234647.00 
234650.00 


164000.00 
000010.70 
232634.00 
232635.00 
COCCOO. 10 


80 
80 
80 
80 

00 


410044.06 
020000.24 
000037.52 
010033.52 


70 
DO 
FO 
FO 


p^«ESl 


CIOGIKBU, 8), (2)00111010, 72 -PUT 1 ZERO BIT + 7 BITS 
ST(DU,l6,8),$L-»-0.56,0 -FIND CHAR=0 OF PREVIOUS LOAD 
CM0101(BU,64),PONOUT+4.0,63 -INSERT INITIAL ADDR- 
CM0101{BU,8),PONOUT+5.0,55 -XXXXXX. XX 
B,0 


OF PERIOD 
UNITS 


VA000253 
VA000254 
VA000255 
VA000256 
VA000257 


23* 


234650.40 * 


045222.23 


80 


430020.20 


10 


Pf^£S2 


+I(BU,24),( 8)0452222 3,32 




VA000258 


24* 
25* 
26* 
27* 

28* 


234651.40 
234652.00 
234652.40 
234653.00 
234653.40 


234635.10 
000001.01 
234625.41 
234612.10 

000017.01 


CO 
01 
DO 
00 
01 


"', 




P FP 
P CHS 


B,PMES3 

LVI, $0,1.0 - FL PT FORMAT 

SVA,$G,PDUDAT+1.0 

B, P DUNl + 1.0 

LVI,$0, 15.0 -0-H WITH MNEMONIC SUPPRESSION FORMAT 


VA000259 
VA000260 
VA000261 
VA000262 
VA000263 


25* 


234654. CO 


234625.41 


DO 








SVA,$0,PDUDAT+1.C 




VA000264 


3C» 
31* 
32* 
33* 

34* 


234654.40 
234655.00 
234655.40 
234656.00 


234612.10 
000002.01 
234625.41 
234612.10 


00 
01 
DO 
00 






P XM 


8, P CUNl + 1.0 
LVI,$0, 2.0 - XVt FRMAT 
SVA,$0,PDUDAT+1.C - 
8, P OUMl +1.0 




VA000265 
VA000266 
VA000267 
VA000268 
VA000269 


35* 


















VA000270 








3£* 
37* 
38* 
35* 
4C* 


234656.40 
234657.40 
234660.00 
234660.40 


232632.20 

000040.10 
C0CC01.41 

C0CG12.C0 


80 
00 
80 

80 


001000. CO 


FO 


P STR 


-START 

CM0000(8U,l),PONOUT+PHOLDS -TURN OFF HOLD LITE 

8,0 MCP 

,D W S 

,P C DEF2 




VA000271 
VA000272 
VA000273 
VA000274 
VA000275 


41* 


234661.00 


232650. CO 


80 








,P CW5 




VA000276 


42* 
42* 
4^» 
45* 
46* 


234661.40 
234662.40 
234663,00 
234663.40 


234663.40 
000040.10 
C0CC41.C0 
GCOOOC.OO+ 


80 
CO 
80 


001000.00 


FO 


P HOLD 


CM0CC0{BU,1),PH0LDB -TURN OFF HOLD BIT 
B,D MCP 
, D RET 
B VF,0.0 
CNOP, 




VA000277 
VA000278 
VA000279 
VA000280 
VA000281 


47* 


234664.00 


232632.22 


GO 






PERRl 


Z,PGN0UT+2.C 




VA000282 









*KSI 



I IME CLOCK CC054CAI 



PUNID 22$DUMP 



CARD ID VA000284 



DIST. CF 3/Cl 



3/01 



PAGE NUMBER 341 



LINE 



LOCATION 



BINARY CUTPUT 



NANfc 



STATEMENT 



LOCATION 



234664 



1* 234664.40 
2* 234665.40 

2« 
A* 



232632.22 8C 001000.36 FC 
234446.10 CO 



CMlllH8U,l)fP0NCUT + PIASS 
B,PE4 



-INCOM. ADDR. LIGHT ON 



VA000284 
VA000285 
VA000286 

VA000287 



-SUBROUTINE PAl 



VA000288 



7* 
£* 

1C» 



234666 
234667 
234667 
234670 
234671 



.00 
.00 
.40 
.40 
.00 



232614. 
232605. 
74CG00. 
234664. 

00GCG2. 



CO 80 

04 10 
00 80 
36 C2 

05 OD 



040000.60 50 PAl 
404000,21 12 P AOl 



L{BU, 
LX,$2 
KKEU 
BAE.P 
V-I,$ 



32), 
,PK1 
,4), 
ERRl 
2,2. 



PNSLIN+1.0,1 -LOAD FRCf^ LEFT NUMERICAL SWITCHES 
(2)1111, 0{$2) - CHECK DIGIThlSE FOR BLANKS 
-SUBTRACT 4 FROM OFFSET 




01 



VA00C289 
VA000290 
VA000291 
VA000292 
VA000293 



U* 
12» 

13* 

14« 

15« 

16* 



234671 
234672 
234673 
234674 
234675 
234676 



.40 
.00 
.00 
.00 
.00 
.00 



234667. 
232615. 
000011. 
000011. 
000017. 
215012. 



4 4 4C 
13 80 
67 80 
37 80 
65 80 
40 80 



C8R^$ 
BZB.P 
LTRCV 
LCV(D 
+ (BL, 
K(8U, 



2^PA 
NSLI 
(CU, 
U,24 
7,8) 
24,8 
PERR 



VA000294 
"VA000295" 
VA000296 
VA000297 
VA000298 
V/f000299 



234700.34 CO 
010400.26 30 
030427.24 30 

007024.20 10 

030024.21 10 



PAG4 



N+P0AS,PA03 
8,4),$R+C,55 ■ 
,4),$R+C.31,46 
,$TR+0.53,4C ■ 

J J f J J^_VACl» AQ_ 

1 



-OCTAL SWITCH ON 
-CONVERT BIT ADDR TO $TR 
-CONVERT hORD ADOR TO $R 
-WORD ADDR + BIT ADDR 
-iS ADDR INVALID 



17* 
1£» 
19* 
2C» 
21* 
22* 
22* 



234677 
2 346 77 
234700 
234701 
234701 
234702 
234703 



.C_C_ 

.40 

.00 

.00 

.40 

.4C)_ 

^40 



234664. 
000000. 
OOOOIO. 
234664. 
232614. 
C_0CC_11. 
2346 76." 



36 40 
10 00 
00 80 
34 CO 

00 80 
CO _8Q 
10 GO 



BZAL^ 
~B,0 
ST(CU 
BZRZ, 
L{BU, 
ST ( DU 
B,"PAO 



yA000300 
VA000301 
VA000302 
VA000303 
VA000304 
VAq00305 
"VA000306" 



010102.24 CO 

040000.20 50 
030300.24 DO 



PAC2 
PAC3 



,8,1),$L,4 

PERRl 

32},PNSLIN+1.0,0 

l^24,3),$R,0 

4 



■LINK OUT 

■ANY LEAD BIT = 1 



-REMOVE LEAD BIT FROM EACH DEC CHAR 



'Kai 



TIME CLOCK CCC54C41 



PUNIO 22$DUMP 



CARD 10 VBOOOOOl 



DIST. OF 3/01 



3/01 



PAGE NUMBER 342 



LINE LOCATICN 


BINARY OUTPUT 





NAME 


STATEMENT LOCATION 


1* 
I* 

4* 


234704. CC 
234704.40 
2347C5.4C 


234704.10 
OOCGOO.CO 
215324.00 


CO 
80 

80 


236044.06 
236047.00 


AO 
AC 


APUHL6 
AWOUMP 


C\i i JUID 


— . _. —.— \itif\c\r\f\t\i 


— ~ — — UUnF — — — — — 

B,$ 

TI,3,0.,ABUFF 

TI»16,SLRBU,ABUFF+3. 


VB000002 
VB000003 

VB000004 


5« 


234706.40 


215344.00 


80 


236067.32 


AC 




TI, 13,SLRBU+16.,ABUFF + 19. 


VB000005 


^* 
1* 

fc* 

S* 

1C« 


234707.40 
234710.40 
234711.40 
234712.00 
234712.40 


215361. CO 
236147.02 
C0CC20.22 
234422.00 
234717.41 


80 
80 
00 
30 
DO 


236104.02 
002000.00 


AO 
FO 




TI,l,SICBU,ABUFF+32. 

CM0000{BU,2J,ASPUBI 

Z,$0 

LV,$0,PCUMPT+3. 

SVA,$0,APUMP9 


VB000006 
VB000007 
VB000008 
VB000009 
VBOOOOIO 


11* 


234713.00 * 


234417.04 


80 


234716.34 


02 


ADMPl 


8B,PDUMPT.4,APUMP8 


VBOOOOli 


12* 
12* 
14* 
15* 
It* 


234714.00 
234714.40 
234715.00 
234715.40 

234716.00 


215324.40 
235235.32 
215324.00 
235235.33 

236065.00 


90 
42 

90 
42 
80 


000021.36 


AO 


APUf'PS 


KV,$0,SPPLB 

BXLiAUNERR 

KV,$0,SPPUB 

BXH,AUNERR 

ri,15,A8UFF+l7.,$l 


VB000012 
VB000013 
VB000014 
VB000015 
VB000016 


n* 


234717.00 


234717.44 


00 








BD,$.32 


VB000017 


ie» 

19* 
2C» 
21» 
22* 


234717.40 
234720.00 
234721.00 
234721.40 
234722.40 


234717.43 
C0CC21.20 
236425.03 
236065.00 

000000.41 


BO 
80 
DO 
80 
05 


011000.00 
000021.02 


FO 
AO 


APUMP9 


LVE,$1,$ 

CMOCOO(BU,9},$1.16 
SVA,$1,ADMPBG 
T1,I,ABUFF+17.,$1 

V+I,$0,.32 


VB000018 
VB000019 
VB000020 
VBOOOOZl 
VB000022 


23* 


234723.00 


234723.41 


DO 








SVA,$C,$.32 


VB000023 


24* 
25* 
26* 
27* 

2e* 


234723.40 
234724.00 
234724.40 
234725.00 
234726.00 


234723.43 
C0CC01.C3 
236162.03 
236065.00 
CCCC00.41 


BO 
05 
DO 
80 
C5 


000021.02 


AO 




LVE,$l,i 

v+r,$ifi. 

SVA,$l,ADMPNO 
TI,1,ABUFF*17.,$1 

V+I,$0,.32 


VB000024 
VB000025 
V8000026 
VB000027 
VB000028 


2S* 


234726.40 


234727.01 


00 








SVA,$0,$.32 


VB000029 


3C« 
31* 
32* 

33* 
34* 


234727.00 » 
234727.40 
234730.00 
234730.40 

234731.00 


234727.31 
234730.10 
234730.50 
234731.00 
236425.32 


BO 
C6 
46 
00 
30 








LVE»$12,$ 
BUSAZ,$.32 
BAD2,i.32 
BE, $.32 
LV,$13,ADNPBG 


VB000030 
VB000031 
VB000032 
VB000033 

VB000034 


35* 


234731.40 


236162.04 


30 








LV,$2,ACMPND 


VB000035 


36* 


234732.00 


234417.04 


80 


234744.74 


02 




BBtP0UHPT.4,ADMPPR 


VBC00036 















*Kai 



TIME CLCCK 0CC54C41 PUNID 


22$CUNP CARD 


ID VB000038 DIST. GF 3/Cl 3/01 PAGE NUMBER 343 


. / 


LINE LCCATICN 


BINARY OUTPUT 


NAME 


STATEMENT 


LOCATION 234733 




1* 
2* 

■ 3* 
4* 


234733.GC 
234733.40 
234734.00 
234735. CO 


215324.72 
234740.32 
236147.03 
236147,02 


90 
40 

80 

80 


234736.34 OC 
235231.34 02 




KV,$13,SPPLfi 
eZXLtAPUMPS 
BZBl,ASPLBI,$+2. 
BB,ASPUBI,ADLWER 




VB000038 
VB000039 
VB000040 
VB000041 


5* 


234736-CC 


215324.72 


30 






LV,$13,SPPLB 




VB000042 


6* 
1* 
€« 
S* 

IC* 


234736.40 
234737.40 
234740.00 
234740.40 
234741.00 


000G35.20 
236425.33 
215012.44 
234744.73 
236147.02 


80 
DO 
90 
40 

80 


011000. CC FO 
234743.34 OC 


APUMP5 


CM0C00(BU,9),$13.16 
SVA,$13,ACMPBG 
KV, $2, SHARK 
BZXH,AOMPPR 
BZBl,ASPUBI,$+2. 




VB000043 
VB000044 
VB000045 
V8000046 
VB000047 


11* 


234742.00 • 


236147. C3 


80 


235231.34 02 




BB,ASPLBI,ACLV<ER 




V6000048 


12* 
12* 
14* 

15* 
16* 


234743.00 
234743.40 
234744.00 
234744,40 
234745.00 


215012.44 
000001.05 
236162. C5 
000035,04 
235231.33 


30 
05 
DO 
90 
40 




ADMPPR 


LV, $2, SHARK 

V+I,$2,l, 

SVA,$2,ACMPND 

KV,$2,$13 

BZXH,ACLWfcR 




VB000049 
V6000050 
VB000051 • 
VB000052 

VB000053 


17* 


234745.40 


000034.22 


80 


234747.74 04 




BZ8Z,$12.18,$+2. 




VB0C0054 


16* 
IS* 
2C» 
21* 
22* 


234746.40 
234747.40 
234750. CC 
234750.40 
234751. CO 


234763.23 
000002.31 
234751.73 
000017.31 
235231.32 


80 
04 
40 
04 

CO 


001000.00 FO 




CM0000{BU,1), APANEL. 19 -SUPPRESS PANEL 

KVI,$12,2. 

BZXH,$+1.32 

KVI,$12,15. 

BZXE,ACLl«tR 


VB000055 
VBOO0a56 
VB000057 
VB000058 

Ve000059 


22* 


234751.40 


000034.16 


80 


004066.60 50 




L{BU,4),$12.14,-19 




VB000060 


24* 
25* 
26* 
21* 
2i* 


234752.40 
234753.00 
234753.40 
234754.40 
234755.00 


C00010.30 
000020.02 
000000.30 
235226.11 
234704.11 


30 
30 
81 
01 

DO 


235221.74 00 


APUMP6 


LV,$12,$L 

LV,$1,$C 

BZB,.24{$l),ALSRQ 

LVI,$4,APUML? 

SVA,$4,APUML6 




VB000061 
VB000062 
VB000063 
VB000064 
VB000065 


29* 


234755.40 


OOCC00.41 


05 






V+I,$0, .32 




VB000066 


3C* 
31* 
32* 

33* 
34* 


234756.00 » 
234756.40 
234757.00 
234757.40 

234760.00 


234717.41 
236105.35 
235210.40 
235205.50 
236126.35 


DO 
01 
80 
00 
01 






SVA,$0,APUMP9 

LVI,$14,APC0L1 

SICAINTLB 

B,AINITL 

LVI,$14,AMNMBF 




VB000067 
VB00006B 
V8000069 
V8000069 
VB000070 


35* 


234760.40 


235210.40 


80 






SICAINTLB 




VB00007I 


36* 
37* 

3£« 
39* 
4C* 


234761. CC 
234761.40 
234762.00 
234762.40 
234763. OC 


235205.50 
000021.27 
235327.40 
235325.50 
235175.30 


00 
01 
80 
CO 
00 




APANEL 


B.AINITL 
LVI,$11,17. 
SICAWRITB 
B,AWRITE 

NCP,AF0RMT-.32 




V8000071 
V6000072 
VB000073 
VB000073 
V8000074 


41* 


234763.40 


236161.74 


30 






LV,$14,AMNTCP 




VB000075 


42* 
43* 
44* 
45* 
46* 


234764.00 
234765. CC 
234766.00 
234766.40 


106314.00 
000000.30 
236104.32 
235373. CO 


80 

aE 

30 

80 


420000.06 70 
120000.12 FO 


- 


PANEL LINE 1 

LFHBU, 16), (8)021463 -LC 

SF(BU,16)(V+1),.24{$14) 

LV,S13,ABUFF+32. 

SICALCRFB 




VB000076 
VB000077 
VB000078 
VB000079 
VB000080 


47* 


234767.00 


235370.10 


CO 






BtALCRF 




VB000080 


48* 
49* 
5C» 


234767.40 
234770.40 
234771.40 * 


166000.00 
777777.60 
000000.75 


80 
8E 
05 


410004.06 70 
020000.12 FO 




LFHBU, 8), (8)73, 8 

SF(BU,16),-.16{$14) 

V+I,$14,.32 




VB000081 
VB0000a2 
VB000083 


^ 


. "^ 



'wai 



C 



riME CLOCK CC05AC41 PUNID 


22$0UWP ( 


:aro 


ID VB00C085 GIST. OF 3/01 3/01 PAGE NUMBER 344 


LINE LOCATION 


BINARY OUTPUT 




NAME STATEMENT LOCATION 


234772 


1* 
2* 

2 * 
4* 


234772.00 
234773.00 
234774.00 
234775.00 


162114.00 
000000.30 
236045.00 
236045.01 


80 
8E 
80 

80 


420000.06 
120000.12 
001030.20 
022300.06 


70 

FO 
50 
70 


LFIC8U, 16), 18)034423 -IT 
SF(8U,16)(V+I),.24($14) 
L(BU,1),ABUFF+1.,48 
LF{BU,18,3),ABUFF+1.1 


V8000085 
VB000086 
VB000087 
VB000088 


5» 


234776.00 


235376.40 


80 






SICAOCTLB 


VB000089 


e* 
?« 

f * 
s» 

1C» 


234776.40 
234777.00 

235000.00 
235001,00 
235002.00 


235373.50 
000001.30 
050310.00 
000000,30 
236047. CO 


CO 
8E 
80 
8E 

80 


170000.12 
420000,06 
120000.12 
022300. C6 


FO 
70 
FO 
7C 


B,AOCTLC 

SFCBU,56){V*I),1.24I$14) 
LFn8U,16),<8)0l2062 -UB 
SF(BU,16)(V+I),.24($14J 

LF{BU,18,3),ABUFF+3. 


VB000089 
VB000090 
V BO 00091 
VB000092 
V8000093 


11* 


235003.00 


235376.40 


80 






SICAOCTLB 


VB0C0094 


12* 
13* 
lA* 
15* 
16* 


235003.40 
235004.00 
235005.00 * 
235006.00 
235007.00 


235373.50 
000001.20 
106310.00 
000000.30 
236047.40 


00 
8E 
80 
8E 
80 


160000.12 
420000.06 
120000.12 
022300.06 


FO 
70 

FO 
7C 


B.AOCTLC 

SF{EU,48,8){V+I3,1.16{$14) 
LFKBU, 16), (8)021462 -LB 
SF(BU,16){V+I),.24($I4) 
LFIBU,18,3),ABUFF+3.32 


VB000094 
VB000095 
VB000096 
V8OO0097 
VB000098 


17* 


235010.00 


235376.40 


80 






SICAOCTLB 


VB000099 


18* 
19* 
2C* 
21* 
22* 


235010.40 
235011.00 
235012.00 
235013.00 
235014. CO 


235373. 5C 
000001.20 
236223.30 
000000.40 
236053.21 


CO 
8E 
80 
8E 
80 


160000.12 
030000.06 
130000.12 
001010.20 


FO 
70 
FO 
50 


B,ACCTLC 

SF(8U,48,8){V+U,1.16{$14) 
LF(BU,24),ALZC -LZC 
SF{BU,24)(V+I),.32($14) 
L(BU,1),ABUFF+7.17,16 


VB000099 
V BOO 01 00 
VBOOOlOl 
VB000102 
VB000103 


22* 


235015.00 


236053.22 


80 


006300.06 


70 


LF{BU,6,3),A8UFF+7.18 


VB000104 


24* 
25* 
2£» 
21* 
2£» 


235016.00 
235016.40 
235017.00 
235020.00 « 
235021.00 


235376.40 
235373.50 
000000. fO 
236223.60 

C0CC0O.40 


80 
00 
8E 
80 

8E 


130000.12 
030000.06 
130000.12 


FO 
70 
FO 


SICAOCTLB 

B,ACCTLC 

SF(BU,24){V+I),.56($14) 

LF(BU,24),AA0C 

SF(BU,24)(V+I),.32l$14) 


VB000105 
VB000105 
VB000106 
V8000107 
VB'000108 


2S* 


235022.00 


236053.54 


80 


001010.20 


50 


L(BU, 1) ,A8UFF+7.44, 16 


VB000109 


3C* 
31* 
32* 
33* 
34* 


235023.00 
235024,00 
235024.40 
235025.00 
235026.00 


236053.55 
235376.40 
235373.50 
000000.70 
154114.00 


80 
80 
00 
8E 
80 


006300.06 

130000.12 
420000.06 


70 

FO 

70 


LF{BU,6,3),A8UFF+7.45 

SICAOCTLB 

B.ACCTLC 

SFI8U,24)(V+l),.56($14) 

LFKBU, 16), C8)033023 -FT 


VBOOOllO 
VBOOOlll 
VBOOOlll 
V8000112 
VB0C0113 


35* 


235027.00 


000000.30 


8E 


120000.12 


FO 


SF{BU,16){V+I),.24($14) 


VB000114 


36* 
37* 
3fc* 
3S* 
4C* 


235030.00 
235030.40 
235031.00 
235031.40 
235032.00 


236062.03 
235221. CO 
235211. 10 
235327.40 
235325.50 


01 
80 
00 
80 

CO 






LVI,il,AeuFF+14. 

SICAFTRMB 

BtAFTRMT 

SICAWRITB 

B.AWRITE 


VB000115 
VB000116 
VB000116 
VB000117 
VB000117 


41* 












PANEL 2NC LINE 


VB000118 


42* 
42* 
44* 
45* 
46* 


235032.40 
235033.00 
235033.40 
2 3 5034.00 * 
235035.00 


236126.35 
235210.40 
235205.50 
142314.00 
000000.10 


01 
80 
00 
80 
8E 


420000.06 
020000.12 


70 
FO 


LVI,$14,AMNMBF 

SICAINTLB 

B,AINITL 

LFKBU, 16), <8)030463 -AC 

SF(BU,16),.8{$14) 


VB000119 
VB000120 
V8000120 
VB000121 
VB000122 


47* 


235036.00 


000000.75 


05 






V+I,$14,.32 


VB000123 


4E» 
4S* 
5C* 


235036. 4C 
235037.00 
235040.00 


236150.02 
000000.02 
000C00.C6 


10 
81 
81 


102010.20 
106300, C6 


50 
70 


LX,$1,APNLW1 

L(BU,2)(V+I),.2<$1),16 

LF(BU,6,3){V+I),.6($1) 


VB000124 
VB000125 
VB000126 







'Nai 



1 IME CLOCK 0C054C41 



PUNID 22$DUI«P 



CARD ID VB000128 



DIST. OF 3/Cl 



3/01 



PAGE NUMBER 345 



LINE 



LOCATIGN 



BINARY OUTPUT 



NANfc 



STATEMENT 



LOCATION 



235041 



1* 235041.00 

2« 235041.40 

3* 235042.00 

'« 235043.00 



235376.40 
235373.50 
000000.40 

C0CGC0.30 



80 
00 
BE 
81 



130000.12 
130300.06 



FC 
70 



APNLPl 



SICAOCTLB 

B,AGCTtC 

SFCEU,24MV + n,.32($14) 

LF{BU,24,3)<V+I),.24($l) 



VB000128 
VB000128 
VB000129 
VB000130 



f* 235044.00 



235376.40 80 



SICAOCTLB 



VB000131 



i* 235044.40 

1* 2 3 504 5.00 

£* 235046.00 

S» 235046.40 

1C» 235047.00 » 



235312. bC 
COCCOl.lO 
235043.02 
C0CC00.75 
044310.00 



CO 
.8E 
48 

05 

80 



100000.20 CO 



420000.06 70 



B,ACCTLC 

STCBU,64MV+I},1.8($14) 
CB,$1, APNLPl 
V+I,$14,.32 

LFKBU, 16), 18)011062 



-SB 



VB000131 
V8000132 
VB000133 
VB000134 
VB000135 



11» 
12* 
13» 
14» 
15* 
16» 



235050, 
235051" 
235052. 
235052, 
235053, 
235054, 



00 
CO 
CO 
40 

00 
CO 



coccoq. 

236056. 
235376. 
235373, 
236056. 
140000. 



3q_at 

CO 80 

40 80 

50 00 

04 80 

CO 80 



120000.12 FC 
010100.06 70 



235055.74 02 
410014.06 70 



SF(eU|^16Hy + 

LF(BU,8,1),A 

SICAOCTLB 

B.ACCTLC 

BB.ABUFF+IO. 

LFI(BU,8),C8 



IJ,.24($14) 

BUFF+10. 



04, $+2. 32 
)60,24 



yBqooi36 

"V8000137" 
VB000138 
VB000138 
VB000139 
VB000140 



ie» 
i?» 

2C* 
21» 
22* 



235C55j 
235055, 
235056, 
235057, 
235060. 
235061. 



GO 
40 
40 
40 
40 
40 



235C_56. 
lOCCOO. 
OOOGOl, 
122220. 
CQCCOO. 
236C61. 



50 CO 
CO 80' 
40 8E 
GO 80 
30 8E 
03 01 



8t$+1.32 

'LFI{BU,8),(8 
ST(BU,64) ( V+ 
LFICBU,16),< 
SFIBU,16)(V+ 
LVI,$1,ABUFF 



y 6000141 
VB000142 
VB000143 
VB000144 
VB000145 
VB000146 



410014. C6 7C 

100000.20 CO 

420000.06 70 

120000.12 FO 



)40,24 

I),1.32{$14) 
8)024444 
I),.24{$14) 
+ 13. 



•RM 



22* 
2<« 
25* 
26* 
27* 
26* 



235062 
235062^ 
235063, 
235063, 

235064 
235064 
235065 
235065 
235066 
235067 
235070 



CC__ 
40 

00 * 
40 

.00 
.40" 



235221. 
235211. 
235327. 
235325. 



C_C 80 
10 00 
40 80 
50 00 



SIC^A 
B,"AFT 
SICA 
BfAWR 
PANEL 
LVI,$ 



FTRMB 
RMT 
WRITB 
ITE 

3RD L 
14,AMNM 



yBqooi47 

"VB000147" 
VB000148 
V BOO 0148 
VB000149 
VB000150 



23A1_2„6 
235210 
235205 
OOOOCO 
236224 
000000 
236151 



.35 01 
.40 80 



INE 
BF 



2S» 
'3C* 
31* 
32* 
33* 
34* 



SIC, A 

8,AIN 
V + I,$ 
LF(BU 
SFfBU 
LX,$1 



INTLB 
ITL 

14,. 32 
,24), AI 
,24)CV* 
,APNLW2 



VBOOOISI 
"VB000151" 
VB000152 
VB000153 
VB000154 
VB000155 



.00 
.40 
.00 
.00 
.CC 



.5C CO 

.75 05 

.10 80 

.40 8E 

.C2 10 



030000.06 70 
130000.12 FO 



NO 
I),.32($14) 



35* 
36* 
37* 
3t* 
3S» 
4C« 



235070, 
235071^ 
235C72, 
235072. 
235073, 
235074, 



4C 

40" 

00 

4C 

40 

00 



0000_00 
235376 
235373 
COOOOl 
235070 
OOOGGO 



.10 81 

.40 80 

.50 00 

.CO 8E 

.42 48 

.10 81 



110100.06 7C 



APNLP2 



_L/J_EU »_8 »_i n y + 1 ) , . 8 j $ 1 ) 

SICAOCTLB 

B,AGCTLC 

ST{EU,64)(V+: 

CB,$1,APNLP2 

LFtBU,8,l)(V- 



VBqqqi56 

"V8000157' 
VB000157 
VB000158 
V6000159 
VB000160 



100000. 2C CO 
110100.06 70 



n,i.($i4) 

'+I),.8{$1) 



41_« 
4i* 
43* 
44* 
45* 
4d* 



235075, 
235075" 
235076. 
235077. 
235100. 
235100. 



40 

CC • 
00 
00 
40 



235376. 
235373. 
000000. 
COCCOO. 
000003. 
COCCOO. 



40 80 
50 CO 
50 8E 
40 aE 
03 02 
10 81 



AlC,_AqCTLB__ 
E,ACCTLC 
SF(BU,32){V+ 
SF(EU,32){V+ 
LCI, $1,3 
LF{EU,8,1){V+I),.8{$1) 



yBqooi6i 

"Vfi00016l" 
VB000162 
VB000163 
VB000164 
VB000165 



140020.12 FO 
140000.12 FO 

110100.06 70 



I ),.40{$14),32 
I),.32{$14) 



APNLP3 



47* 

'4e* 

49* 
5C* 



235101, 
235102, 
235102. 
235103. 



4C 
CO 
40 
40 



23 5376, 
235373. 
OOCOOl. 
235100. 



40 80 

'50 00 

00 8E 

42 48 



SIC.AOCTLB 

"B,ACCTLC 

ST{BU,64){V+I),1.($14) 
CB,$1,APNLP3 



yB000166 

'VB600166" 

VB000167 

VB000168 



100000.20 DO 



*Nai 



C 



IIME CLOCK CCC5AC^1 



PUNID 22$DUMP 



CARD ID VBC0017C 



DIST. OF 3/Cl 



3/01 



PAGE NUMBER 346 



LINE LOCATICN 


BINARY OUTPUT 




HAHt STATEMENT LOCATION 235104 


1* 


235104.00 


236155.34 


BO 






V+,$14,APT8 


VB000170 


2* 


235104.40 


00CC02.C3 


02 






LCI, $1,2 


VBO00i71 


3* 


235105.00 


COCCCO.IO 


81 


110100.06 


70 


APNLP4 LF{BU,8,13(V + n,.8{$l) 


V8000172 


A* 


235106.00 


235376.40 


80 






SICAOCTLB 


VB000173 


£« 


235106.40 


235373.50 


00 






8,ACCTLC 


V8000173 


e* 


235107.00 


OOCGOl.CO 


8E 


100000.20 


DO 


ST(BU,64)(V+I),1.{$14) 


VB000174 


7» 


235110.00 


235105.02 


48 






CB,il,APNLP4 


VB000175 


£♦ 


235110.40 


000000.75 


05 






V+I,$14,.32 


VB000176 


S» 


235111.00 


000035.22 


00 






Z,$13 -SET UP $MR 


VB000177 


1C« 


235111.40 


236050.33 


01 






LVI,$13,A8UFF+4. 


VB000178 


11» 


235112.00 » 


236147.05 


80 


001000.36 


FO 


CKlllljAPNLI 


VB000179 


12* 


235113.00 


C0CC01.33 


02 






LCI, $13,1 


VB000180 


12* 


235113.40 


110244.00 


80 


420000.06 


70 


LFHBU, 16), (16)2429 -MR 


VB000181 


14« 


235114.40 


000000.40 


8E 


120000.12 


FO 


SF{BU,16)(V+n,.32C$14) 


V8000182 


15» 


235115,40 


235726,10 


00 






BrACNVER 


VB000183 


16* 












PANEL 4TH LINE 


VB000184 


17» 


235116. CO 


236126.35 


01 






APNL4 LVI ,$14,AMNMBF 


VBOOOiaS 


18* 


235116.40 


235210.40 


80 






SICAINTLB 


V8000186 


19. 


235117.00 


235205.50 


00 






B,AINITL 


VB000186 


2C» 


235117.40 


236231.50 


80 


040000.06 


7C 


LF(EU,32),AMASK 


VB000187 


21* 


235120.40 


000000.30 


8E 


040000.12 


FO 


SF(8U,32),.24C$14) 


VB000188 


22* 


235121.40 


236160.74 


BO 






V+,$14,A3PT40 


VB000189 


22» 


235122.00 


236152.02 


10 






LX,$1,APNLW3 


VB000190 


2A* 


235122.40 


CCOOOO.IO 


81 


110100.06 


7C 


LF{BU,8,1){V+I),.8($1) 


VB000191 


25* 


235123.40 


235376.40 


80 






APNLP6 SICAOCTLB 


VB000192 


26* 


235124.00 


235373.50 


00 






B,ACCTLC 


VB000192 


21* 


235124.40 


OOOOGl.CO 


8E 


100000.2C 


CO 


ST(eU,64)(V + n,l.($14) 


VB000193 


26* 


235125.40 * 


235122.42 


48 






CB, 1,APNLP6-1. 


VB000194 


2S« 


235126. CO 


COCCOO.CO 


81 


004100.06 


70 


LF{BU,4,1),<$1) 


VB000195 


3C* 


235127.00 


235376.40 


80 






SICAOCTLB 


VB000196 


31* 


235127.40 


235373.50 


00 






B,ACCTLC 


VB000196 


32* 


235130.00 


000003. CO 


8E 


140000.12 


FC 


SF(8U,32)(V+I),3.($14) 


VB000197 


33» 


235131.00 


236231.00 


80 


050000.06 


70 


LF(BU,4C),ATR16 


VB000198 


34* 


235132.00 


COCC00.60 


8E 


150000.12 


FC 


SF(eU,4C)(V+I),.48($14) 


VB000199 


35* 


235133.00 


236153. C2 


10 






LX,$1,APNLW4 


V8000200 


36* 


235133.40 


C0CG00.C4 


81 


104065.60 


5C 


APNLP7 L(BU,4) {V+I),.4($l) ,-21 


VB000201 


37* 


235134.40 


000010.32 


30 






LV,$13,$L 


¥8000202 


38* 


235135.00 


236232.10 


8D 


010000.06 


70 


LF(BU,8),AHXT8($13) 


VB000^03 


39* 


235136.00 


000000.10 


8E 


110000.12 


FO 


SF{EUr8)(V+n,.8($14) 


V8000204 


AC* 


235137. CO 


235133.42 


48 






CB,$1,APNLP7 


VB000205 


41* 


235137.40 


236225. CO 


80 


236143.10 


AO 


TI,4,AMCMDE,AMNMBF+13. 


VB000206 


42* 


235140.40 • 


215021.75 


80 


235143.34 


02 


BB,SPRGGS+SSI0,$+2.32 -SIO MODE 


VB000207 


43* 


235141.40 


122C00.CC 


80 


410000. C6 


70 


LFHBU, 8), 116)29 -R 


VB000208 


44* 


235142.40 


235144.10 


00 






B,$+l.32 


VB000209 


45* 


235143.00 


044000.00 


80 


410000.06 


70 


LFI(BU,8),I 16)12 -S 


VB00021Q 


46 » 


235144.00 


COCC00.40 


8E 


010000.12 


FO 


SF(eU,8),.32($14) 


VB000211 


47* 


235145.00 


215021.31 


80 


235150.34 


00 


BZB,SAS+SPR0GS,$+3.C 


VB000212 


48* 


235146.00 


040100.20 


80 


430000. C6 


70 


LFI(BU,24),C16) ICIOIO -3 BLANKS 


¥6000213 


49* 


235147.00 


COCCOl.lO 


8E 


030000.12 


FO 


SF(BU,24),.72($14) 


VB000214 


5C» 


235150.00 


235327. 4C 


80 






SICAWRITB 


VB000215 


5]* 


235150.40 


235325.50 


CO 






B,AWRITE 


VB000215 




- 



'Nfll 



e 



TIME CLOCK CC054C41 



PUNID 22$DU«P 



CARD ID VBCO0217 



GIST. OF 3/CI 



3/01 



PAGE NUMBER 347 



LINE 



LOCATION 



BINARY OUTPUT 



NAME 



STATEMENT 



LOCATION 



235151 



1» 235151. CO 

1* 235151.40 

I* 235152.00 

«» 235152. 4C 



236126.35 01 
235210.40 80 
235205.50 00 
235327. '+C 80 



LVIt$14,AMNMBF 
SIC,AINTL8 
8,AINITL 
SICAWRITB 



VB000217 
V8000218 
VB000218 
VB000219 



5» 235153. CO 



235325.50 00 



B,AWRITE 



VB000219 



t* 
1* 
i* 
9* 
IC* 



235153.40 
235154.00 
235154.40 
235155.40 



236154.32 10 
000004.35 02 
235244.23 80 
235271.63 80 



001000.00 FO 
001000.00 FC 



INDEX REGISTERS 
LX,$13,APNLW5 
LCI ,$14,4 

CM0C00(BU,l),ANCX3.ig 
CM0C00(BU,1),ANDX4. 19 



VB000220 
VB000221 
VB000222 
V8000223 
VB000224 



11* 235156.40 



C0CC0O.C3 01 



LVI,$1,G 



VB000225 



12* 
13* 
14* 
15* 
16* 



235157. CC 
235157.40 
235160.00 
235160.40 
235161. CC 



235240. 10 
236161.74 
C0CC04.C3 
236156.74 
056CC0.CG 



GO 
30 
02 
BO 
80 



410044.06 70 



B,ANDXWC.32 
APNLl LV,$14,AMNT0P 
LCI, $1,4 
V+,$14,APT40 
LFI{BU,8) , (8)27,72 



VB000226 
VB000227 
VB000228 
Ve000229 

VB000230 



18* 
19* 
2C* 
2I» 
22* 



235162 
235163 
235164 
235164 
235165 
235165 



.00 
.00 
.40 
.GO 
.40 



236232. 
C0CC04. 
236155. 
235162. 
235327. 
235325. 



10 
CO 
02 
02 
40 
50 



81 

ae" 

BO 
48 
80 
00 



010040.06 
120040.12" 



7P_ 
FC 



APNLP8 



LF(.By,8), A H X J_B_(_$_lJ_»A'i 

"SF(BU,16)(V+I),4.($14),64 
V+,$1,APT8 
CB,$1,APNLP8 
SICAWRITB 
B,AV<RITE 



yB000231 
"VB000232 
VB000233 
VB000234 
VB000235 
VB000235 



23» 
2<* 
25* 
26« 
21« 
2t* 



235166 
235166 
235167 
235167 
235170 
235171 



.00 
.40 
.00 
.40 
.00 
.CC 



G00C_04. 
236126. 
236157. 
235251. 
235244. 
235271. 



33 02 
35 01 
74 BO 
74 48 
23 80 
63 80 



LCI, $13, 4 

LVI,$14,AMNMBF 

V+,$14,A1PT8 

CB,$14,ANDX1 

CMllllC8U,l),ANDX3.ig 

CM1111(8U,1),ANDX4.19 



VB000236 
VB000237 
V8000238 
VB000239 
VB000240 
VB000241 



001000.36 FC 
001000.36 FO 



29* 
"3C» 
31» 
32» 
33* 
34* 



235172 
235173 
235173 
235174 
235174 
235175 



.00 

.00' 

.40 

.00 

.40 

.00 



G0C_C33. 
235327. 
235325. 
236425. 
235233. 
235175. 



00__80 
40 80 
50 00 
32 30 
70 00 
50 OC 



023000. CC FO 



SICAWRITB 

B,AWRITE 

LV,$13,ADMPB6 

N0P,APUMP7 

B,AF0RMT($12) 



VBqq0242 
"VB000243" 
VB000243 
VB000244 
V8000245 
VB000246 



ANCRMP 
~AfC~R>T 



35» 
3£« 
37* 

3£* 
39* 
4C* 



235175 
2351 76 
235176 
235177 
235177 
235200 



.40 
.OC 
.40 
.OC 
.40 
.00 



235275. 
235713. 
235237. 
235275. 
235275. 
235275. 



5 00 

50 00 

50 00 

5 CO 

5C CO 



B.ACCT^LH 
B,AFLPNT 
B.ANDXWD 
B,AGCTLH 
B,ACCTLH 
a.AGCTLF 



'A _CC_IA L 
-1 FLOATI 

-2 INDEX 

-3 UNOEFI 

-4-UNDEFI 

-5-UNDEFI 



HEX 

NG POINT" 

WORD 

NED 

NED 

NED 



V BO 0024 7 
VB000248 
V8000249 
VB000250 
V8000251 
VB000252 



41_» 
42* 
43* 
44* 
45* 
46* 



235200, 
235201^ 
235201, 
235202, 
235202, 
235203, 



40 

CO" 

40 

00 

40 

00 



235275. 
235275. 
235275. 
235275. 
235275. 
235275. 



50 qq 

50 00 

50 CO 

5G 00 

5C 00 

50 00 



B.ACCTLH 
B,ACCTLH 
B,ACCTLH 
B,AGCTLF 
B,ACGTLH 
B,A0GTLH 



:6-LNDEFI 
■7-UNDEFI 
■8-UNOBFI 
-9-UNDEFI 
-10-LiNDEF 
•ll-UNDEF 



NEO_ 

NED 

NED 

NED 

INED 

INED 



VBqqq253 

~VB000254 
VB000255 
Ve000256 
VB000257 
VB000258 



"48* 
49* 
5C* 



235203, 
235204" 
235204, 
235205. 



5C_ 
CC 
40 
00 



23_52_75. 
23 5275. 
235275. 
235275. 



5C_qo 

5G 00 
50 00 
50 00 



B,ACCTLH 

"b,agctlh" 

B,AOGTLH 
8,A0CTLH 



■12-UNpEF 
"13-LNDEF 
•14-UNDEF 
■15-NO MN 



INED 

INED 
INED 
EMONICS 



yBqqq259 

"VB600260' 
VB000261 
VB000262 



'Hai 



TIME CLOCK CC054CA1 



LINE 



LOCATION 



PUNID 22$CUNP 



aiNARY OUTPUT 



CARD ID veCOOZd-!. 



NAME 



DIST. OF 3/Cl 



STATEMENT 



3/01 



PAGE NUMBER 348 



LOCATION 



235205 



1* 


235205.40 


236216.00 


80 


000000.02 


AE 


AINITL 


TI,1,APLC,($14J 


V8000264 


2* 


235206.40 


236220.00 


80 


000001. C2 


AE 




TI,1,ABLNK,1.($14) 


VB000265 


3» 


235207. 4C 


OOGCOl.CO 


8E 


000002.36 


AE 




TI, 15,1. ($14), 2. ($14) 


VB000266 


<« 


235210.^0 


235210.50 


00 






AINTLB 


B,$ 


VB000267 


5* 


235211.00 


COCCOO.Ol 


81 


101024.20 


50 


AFTRMT 


L(BU,l)(V+I)t.l($l),4C 


VB000268 


£♦ 


235212. CO 


COOC00.17 


81 


117300.06 


70 




LF{eua5,3)(V+I),.15($l) 


VB000269 


1» 


235213.00 


235376.40 


80 








SICAOCTLB 


VB000270 


e» 


235213.40 


235373.50 


00 








8,ACCTLC 


VB000270 


s» 


235214.00 


C0CG00.60 


SE 


160000.12 


FO 




SF(BU,48)(V+I),.48($14) 


V8000271 


IC* 


235215. CO 


000002. C3 


02 








LCI, $1,2 


VB000272 


11» 


235215.40 


000000.30 


81 


130300.06 


70 


APNLP5 


LF(BU,24,3)(V+I),.24{$n 


VB000273 


12* 


235216.40 


235376.40 


80 








SICAOCTLB 


VB000274 


12* 


235217.00 » 


235373.50 


CO 








8,ACCTLC 


V8000274 


14* 


235217.40 


000001.00 


8E 


100000.20 


DO 




ST(BU,64)(V+n,l.($14) 


VB000275 


15* 


235220.40 


235215.42 


48 








CB,$1,APNLP5 


VB000276 


16* 


235221.00 


235221.10 


00 






AFTRf«B 


B,$ 


VB000277 


17* 


235221.40 


235223.11 


01 






ALSRC 


LVI,$4,APUMP1 


V8000278 


le* 


235222.00 


234704.11 


00 








SVA,$4,APUML6 


VB000279 


19* 


235222.40 


234755.50 


00 








8,APUMP6+2.32 


VB0002BO 


2C* 


235223.00 


236063.00 


80 


000020. CO 


AO 


APUKPl 


TI, 16,ABUFF+15.,$0 


VB000281 


21* 


235224.00 


234763.23 


80 


001000.36 


FC 




CM1111(BU,1),APANEL.19 


V8000282 


22* 


235225. CO 


000040.10 


00 








B,DMCP 


V8000283 


23* 


235225.40 


C0C041.G0 


80 








,DRET 


VB000283 


2<» 


235226.00 


234717.40 


30 






APUML7 


LV,$0,APUMP9 


VB000284 


25* 


235226.40 


000020.23 


80 


006000.00 


FO 




CP0C00{BU,6»,*0.ig 


VB000285 


26* 


235227.40 


234763.23 


80 


001000.36 


FO 




CM111UBU,1),APANEL.19 


VB000286 


27* 


235230.40 


234713.10 


00 








B.ACMPl 


VB000287 


2€* 


235231.00 


235174.63 


80 


001000.00 


FO 


ACLWER 


CM0C00(BU,1),ANQRMP.19 


VB0002B8 


2S» 


235232.00 » 


234763.23 


80 


001000.36 


FC 




CMlllllBU,l),APANEL.ig 


VB000289 


3C« 


235233.00 


234753.10 


00 








B,APUMP6 


VB000290 


31* 


235233.40 


235174.63 


80 


001000.36 


FO 


APUMP7 


CM1111(BU,1),AN0RMP.19 


V6000291 


32* 


235234.40 


234704.10 


00 








B,APUML6 


VB000292 


33* 


235235.00 


235174.63 


80 


OOIOOO.CC 


FO 


AUNERR 


CM0C00(BU,1),AN0RMP.19 


V8000293 


34* 


235236.00 


234763.23 


80 


001000.36 


FO 




CMllll(BU,l),APANEL.ig 


VB000294 


35* 


235237.00 


235221.50 


00 








B,ALSRQ 


VB000295 


36* 


235237.40 


236105.35 


01 






ANCXWD 


LVI,$14,APC0L1 


VB000296 


37* 


235240.00 


236217.00 


80 


000001.02 


AE 




TI,1,APXW,1.{$14) 


VB000297 


38* 


235241.00 


236217.00 


80 


000005.02 


AE 




Tit 1,APXW,5.($14) 


VB000298 


39* 


235242.00 


236217.00 


80 


000011.02 


AE 




TI,l,APXW,9.($i4) 


VB000299 


4C* 


235243.00 


236217.00 


80 


000015.02 


AE 




TI,1,APXW,13.{$14) 


V8000300 


41* 


235244.00' 


235274.70 


CO 






ANDX3 


N0P,ANDX5 


V8000301 


42* 


235244.40 


235245.77 


01 






ANCX2 


LVI,$15,$+1. 


VB000302 


43* 


235245.00 


235330.10 


00 








B.AhDCMP 


VB000302 


t^i^» 


235245.40 


000001.33 


02 








LCI, $13,1 


yB000303 


45* 


235246.00 » 


235251.50 


00 








B,ANDX1 


VB000303 


46* 


235246.40 


236161.34 


30 








LV,$14,AH0TP 


V8000304 


47* 


235247.00 


000033.00 


80 


023000.00 


FO 




CM0C00(8U,19),$11 


VB000305 


46* 


235250.00 


235373. CO 


80 








SICALCRFB 


VB000306 


49* 


235250.40 


235370.10 


00 








B.ALCRF 


VB000306 


5C* 


235251.00 


000004.33 


02 








LCI, $13, 4 


VB000307 







^Kfll 



c 



TIME CLOCK 0C054C41 



PUNID 22$DU^'P 



CARD ID VB000309 



DIST. OF 3/Cl 



3/01 



PAGE NUMBER 349 



LINE 



LCCATICN 



BINARY OUTPUT 



NAME 
ANDXl 



STATEMENT 



LOCATION 



235251 



1* 
2« 

2* 



235251.40 
235252.40 
235253.00 
235253.40 



000000.31 
235376.40 
235373.50 

000000.70 



80 
80 
CO 
8E 



130300.06 70 



160010.12 FO 



LF(BU,24,3)CV+I3,.25($13} 

SICAOCTLB 

B,ACCTLC 

SFIBU,4 8,8)(V+I),.56($14),16 



VB000309 
VB000310 
VB000310 
VB000311 



5* 235254.40 



00CCOO.20 ae 120000.12 fo 



SF{BU,16){V+I),.16($14) 



^tL5^»i:?Ji y J i J_»_'_iJ°J 

BB,-,l{$13},$+2.32 
LFnBU,8),<8)60 
B,$+1.32 
LFI(BU,8),CB)40 
SF(eU^8HV + I J,.16U14) 



VB000312 



i* 235255.40 

1* 235256.40 

e« 235257.40 

S« 235260.00 

IC» 235261.00 » 



iimi,ii 

140000.00 
235261.10 
100000.00 
C0CC00.20 



BD 
80 
00 
80 
8t 



235260.34 
410000.06 

410000.06 
110000.12 



02 
70 

70 

FO 



VB000313 
VB000314 
VB000315 
VB000316 
VB000317 



12* 
13« 
14» 
15* 

16* 



2 3 5262. 
235263. 
235263. 
235264. 
235265. 
235266. 



00 
CO 
40 
00 
00 
00 



c_c_ccqq 

235376 
235373 

ooccoo 

OOCCCO 

COCCOO 



.25 80 

.40 80 

.50 00 

.20 8£ 

.70 8E 

.22 80 



125300.06 70 



ii^L?yi2i,3]( y + J ) , . 2 IJ $ 1 3 ) 

SICAOCTLB 
B,ACCTLC 
SF<EU,8,8)(V 
SF{BU,48,8H 
LF{BU,ie,3) ( 



yB0003_18 
'VB000319~ 
VB000319 
VB000320 
V8000321 
VB000322 



110030.12 FC 
160000.12 FO 
122300.06 70 



+ !}« .16($14)|48 
V+I ),.56($14) 
V+I),.18{$13) 



\1* 
'l8i" 

19* 

2C* 

21* 

22* 



2 3 5267. 
2 3 5267. 
235270. 
235271. 
235271. 
235272. 



0_0_ 

40 

00 

CO 

40 

00 



235376 
235373 
COCOOl 
235251 
235157 
235327 



.40 80 

.50 CO" 

.40 8E 

.72 48 

.70 00 

.40 80 



SIC.ACCTLiB 

B.ACCTLC 

SF(eU,48,8){V+I),1.3 2($14) 

CB,I13,ANCX1 

NCP.APNLl 

SICAWRITB 



y8000323 
"VB000323 
VB000324 
V8000325 
VB000326 
VB000327 



160000.12 FO 



ANCX4 



23* 
2<* 
25* 
26* 
27* 
2£* 



235272j. 
235273. 
235273. 
235274. 
235274. 
235275. 



4C 
CO 
40 
CO 
4C 
CO 



235325 
23 6162" 
235244 
234704 
236157 
235251 



-_5_C GO 
.32 90 
.72 42 
.10 00 
.74 80 
.50 00 



B_, AV^iRITE 

KV,$13,ADHPN 
BXL,ANDX2 
B,AFUML6 
V+,$14,A1PT8 
B, ANDXl 



VBq00327 

VB000328' 

VB000329 

VB000330 

VB000331 

VB000332 



D 



ANCX5 

~accTl"h 



2i» 
3C» 
31* 
32* 
33* 
34* 



235275^ 
235276. 
235277. 

235300. 
235301. 
235301. 



4C 

CC" 

CO 

CO 

00 

40 



236105 
236217" 
000001 
236147 
235302 
235330 



.35 01 

.00 80 

.00 8E 

.06 80 

.37 01 

.10 CO 



Lyi,$14,APC0 
"TI,2,APXW,1. 
TI, 14,1. {$14 
CM1111(BU,1J 
LVI,$15,$+1. 
B,AkCCMP 



LI 

r$i4) 

),3.($14) 
,ACTLBT 



yBqqo333 

"VB000334" 
VB000335 
VB000336 
VB000337 
VB000337 



000001.04 AE 
000003.34 AE 
001000.36 FO 



ACCTHB 



35* 
36* 
37* 
38* 
3S* 
4C* 



235302. 
235302. 
235303. 
235303. 
235304. 
235305. 



CC 

40" 

00 

40 

40 

00 



qoc_o_o_2_. 

235306. 
236161. 
000033. 
235373. 
235370. 



33 02 

"10 00 

34 30 

00 80 

CO 80 

10 00 



LCI ,$13 ,2 

B,AOCTLJ 
LV,$14,AHQTP 
CM0C00(BU,19),$ll 
SICALCRFB 
B.ALCRF 



V BOO 03 38 

V8000338 

VB000339' 

VB000340 

VB000341 

VB000341 



023000.00 FO 



41* 
'^ 2* 
43* 
44* 
45* 
46* 



235305j. 
2^5306. 
235307. 
235307. 
235310. 
235311. 



40 

00 

00 

40 

00 * 

00 



000010. 
000000. 
235376. 
235373- 

000000. 
000000. 



33 02 
30 80 
40 80 
50 00 
70 8E 
30 8E 



LCI, $13 ^8 

LF(BU,24,3){ 
SICAOCTLB 
B.ACCTLC 
SF{BU,48,8)( 
SF(BU, 16,8)1 



VBqq0342 
"VB000343" 
VB000344 
VB000344 
VB000345 
VB000346 



130300.06 70 



160010.12 FO 

120000.12 FC 



AOCTLJ 



V+I ),.24($13) 



V + U,.56t$14),l6 
V+I),.24($14) 



47* 
46 » 
49* 
5C* 



235312^ 
235312. 
235313. 
235314. 



99 

40 
40 
CO 



00 0X02. 
COCCOO. 
000010. 
236232. 



35 02 

04 80 

02 30 

10 81 



LCI^$14,2 
"L{BU,4)(V + I) 
LV,Sl,iL 
LF{BU,8),AHX 



yB00q347 

'VB000348" 

V8000349 

V8000350 



104065.60 50 
010000.06 70 



ACHEX 



,.4{$13),-21 
T8{$1) 



'Mfll 



c 



TIME CLOCK 0C054C^1 



PUNIO ZZSCUNP 



CARD ID VB000352 



DIST. GF 3/Cl 



3/01 



PAGE NUI«BtR 350 



LINE 



LOCATION 



BINARY OUTPUT 



NAME 



STATEMENT 



LOCATION 



235315 



1* 235315.00 
2« 235316.00 
3* 235316.40 
A* 235317.00 



000000.10 
235312.74 
000000.75 
235306.32 



8E 
48 
05 
48 



110000.12 FO 



SF{BU,8){V+I)f .08<$14) 

CB,$14,ADHEX 

V+I,$14,.32 

CB,$13,A0CTLJ 



VB000352 
VB000353 
VB000354 
VB000355 



=» 235317.40 



235327.40 80 



SICAWRITB 



VB000356 



i* 
?» 

£» 

<;» 
ic» 



235320.00 
235320.40 
235321.00 
235321.40 
235322.00 



235325.50 
235322.30 
000000.31 
235402.32 
236162.32 



00 
00 
04 
C2 
90 



B.AWRITE 
ACHMN N0P,A0OHND 
KVI ,$12,0 
BXE.AMNEMO 
_A_C„CHND liV,$13,ACMPNp 



VB000356 
VB000357 
VB000358 
V6000359 
VB000360 



11? 
12* 
13* 
14» 
15« 
16* 



235322 
235323 
235324 
235325 
235325 
235326 



•i«0_ 

.40 

.00 

.00 

.40 

.00 



_2_3 5 320. 
235301. 
236147. 
234704. 

CCC040. 
C0C103. 



63_80 
32 42 
C6 80 
10 00 
10 00 
40 80 



gciggp^36_FC_ 

001000.00 FO 



-CiliiUlBy 

BXLfAOCTh 
CMO0OO(BU 
B,APUML6 
B,DMCP 
,_DSPR 



ilJjrAPHi^N_«_l_l 
B 

,lifACTLBT 



yBOog36i 

VB000362 
VB000363 
VB000364 
V8000365 
VB000366 



AURITE 



.1I?_ 

ie« 

15* 
2C* 
21 • 
25» 



23_5_326 
235327 
235327 
235330 
235331 
235331 



.00 
.40 
.00 
.00 
.40 



_2_3_61_05. 
OOCCOl. 
235327. 
COGGOO. 
000022. 
OOCCOl. 



cg_aB 

GO 80 

50 00 

CO 80 

33 30 

05 05 



»_APC0L1($ 

tU 

B,$ 

L(BU,64), 

SV,$13,i2 

V+I,$2, 1. 



11J___ 
{$13) 



yBCgp367_ 

VB000368 

VB000369 

VB000370 

VB000371 

VB000372 



000000.20 50 



AWRITB 
AWCCMP 



23? 
2<« 
25* 
26« 
21* 
26* 



235332 
235333 
235333 
235334 
235335 
235335 



.00 
.00 
.40 
.00 
.00 
.40 



_C0G_G_0_1_. 
235332. 
00 0001. 
C00022. 
000035. 
235336. 



CO _8 2 
36 C2 
05 00 
20 80 
04 90 
72 CO 



100000.21 10 



_KJ_Byi_64ii 
BAE,$-1. 
V-I,$2, 1. 
CM0C00(EU 
KV,$2,$13 
BZXE,$+1. 



ytjj»i_.j$_2j_ 

,8), $2. 16 



VBg0g373 
"V8000374' 
VB000375 
VB000376 
V8000377 
VB000378 



OiOOOO.OO FO 



2it 
3C* 
31* 
32* 

33* 
34* 



235336 
235336 
235337 
235337 
235340 
235340 



.40" 

.00 

.40 

.00 

.40 



C_G_CCP_1_» 
236126. 

235210. 

235205. 

236161. 

C0CC21. 



35 01 
40 80 
50 CO 
74 30 
27 01 



ACI^PB 



AfA'JAl^l 
LVI,$14,A 

SICAINTL 
B,AINITL 
LV,$14,A« 
LVI,$11, 1 



VB000379 

VB000380' 

VB000381 

VB000381 

VB000382 

VB000383 



MNM8F 
B 

NTGP 
7. 

PNC 



35^* 
36* 
37* 
3€» 
39* 
4C* 



235341 
235341 
235342 
235342 
235343 
235343 



•00 
.4C 
.00 
.40 
,00 
.40 



23_6_1_6_2_. 
235342. 
236162. 
COCCOO. 
235373. 
235370. 



OA _9 g_ 

72 42 
04 30 
45 OD 
CC 80 
10 00 



AV»_i2,_ACM 
BXL,$+1. 
LV,$2,ACM 
V-I,$2, .3 
SICALCRF 
B,ALCRF 



VBq00384 
VB000385 
VB000386 
VB000387 
VB000388 
V8000388 



PNC 

2 

B 



Al* 
42* 
42* 
4^* 
45* 
46* 



235344 
235345 
235346 
235346 
235347 
235350 



•PP 
.00 
.00 
.4C 
.40 
.40 



_1A6_0_0_0_« 
777777. 
236155. 
046230. 
COCCOO. 
CC0022. 



CC._8p 
60 8E 
34 80 
CO 80 
30 8E 
32 30 



^lQPP4^C6_7p_ 
020000.12 FO 

420000.06 70 
120000.12 FO 



SF(BU, 16) 
V+,$14,AP 
LFKBU, 16 
SF(eU,16, 
LV,$13,$2 



tl8173_,8 

,-.16($14) 

T8 

), (8)011446 

8)(V+I),.24U14) 



VB000389 
"VB000390" 
VB000391 
V800O392 
VB000393 
VB000394 



48* 
49* 
5C* 



235351 
235351 
235352 
235353 



•CC___ 
.40 
.00 
.00 • 



23_5_3_73. 
23 5370. 
166000. 

mm. 



Qc„§g 

10 00 
00 80 
60 BE 



SLCj.ALCRF 
B,ALCRF 
LFKBU, 8) 
SF(BU,16) 



B 



vBoppsgs 

V8000395 
VB000396 
VB000397 



410004. 06 70 
020000.12 FO 



,{8)73,8 
,-.16{$14) 



'Nai 



C 



TIME CLOCK CCC54C41 PUNID 


22$DUf«P 


:arc 


IC vBooosgg cist, gf 3/ci 3/01 page 


NUMBER 351 


LINE LOCATIGN 


BINARY OUTPUT 




NAME 


STATEMENT LOCATION 235354 


1* 
i* 

3* 
4* 


235354.00 
235354.40 
235355.40 
235356.40 


236155.34 
236222.00 
000001.00 
236223.00 


BO 
80 
8E 

80 


000000. 2C 
100000.20 
030000.06 


50 
DO 
7C 




V+,$14,APT8 
L<BU,64,8),ALLCN 
ST(BU,64,8){V+IJ,1.{$14) 
LF(BU,24,8),ALLCN+1. 


Ve000399 
VB000400 
VB000401 
VB000402 


S» 


235357.40 


000001.30 


8E 


130000.12 


FC 




SF(eU,24)(V+I),1.24($14) 


V8000403 


6* 
1* 
£• 

S» 

IC* 


235360.40 
235361.00 
235362.00 
235363.00 
235364.00 


000000.73 
236147. CI 
236217.00 
236147.06 
235320.63 


OD 
80 
80 
80 
80 


235366.74 
236133. C2 
235366.34 

001000. CC 


02 
AO 
CC 
FC 




V-I,$13, .32 
BB,AFLPTI,ACMP1 
TI,l,APXW,AMNMBF+5. 
BZB,ACTLBT,$43. 

CM0C00(8U,1),A0HFN.19 


VB000404 
VB000405 
VB000406 
V8000407 
VB000408 


11* 


235365.00 


236217. CC 


80 


236135. C2 


AO 




TI,l,APX»^,AMNMBF + 7. 


VB000409 


12* 
12* 
14* 
15* 
Id* 


235366. CO 
235366.40 • 
235367.40 
235370.00 
235371.00 


OOCCCO.IO 
236221. CO 
OOOCOO.IO 
000035. CO 
235376.40 


OF 
80 
OF 
80 
80 


236134. C2 

025300.06 


AG 

70 


ACMPl 

alcrf 


B,0{$15) 

TI, l,APFL,AMNMBF+6. 

8,0C$15) 

LF(8U,21,3J,$13 

SICAOCTLB 


VB0004iO 
VB000411 
V8000412 
V8000413 
VB000414 


17* 


235371.40 


235373.50 


CO 








e,ACCTLC 


VB000414 


Ifi* 
IS* 
2C* 
21* 
22* 


235372. CC 
235373.00 
235373.40 
235374.40 
235375.40 


COCCOl.CO 
235373.10 
236174.22 
236175.22 
236176.22 


8E 
00 
80 
80 
80 


160004.12 

000400.24 
000000.20 
000000.02 


FO 

10 
10 
70 


ALCRFB 
AOCTLC 


SF{8Ut48)(V+I),l.($14),e 

B,$ 

+{0U,64,4),AK0N9 

+(BU,64,e),AK0Nl 

C0001(8U,64),AKONZ 


VB000415 
VB000416 
VB000417 
VB000418 
V80004ig 


23* 


235376.40 


235376.50 


00 






ACCTLB 


B,$ 


VB000420 


24* 
25* 
26* 
27* 
2£* 


235377.00 
235377.40 
235400.00 
235400.40 
235401.00 


C0CC02.01 
000036.01 
235406.72 
235327.40 
235325.50 


05 
30 
C8 
80 

00 






ARETRN 


V+I,$G,2. 

SV,$0,$14 

CBH,$13,AMNEM1 

SICAWRITB 

B,AV«RITE 


VB000421 
VB000422 
VB000423 
V8000424 
VB000424 


29* 


235401.40 


235322.10 


CO 








8,AC0HND 


V8000425 


3C* 
31* 
32* 

33* 
34* 


235402.00 » 

235402.40 

235403.00 

235403.40 

235404.00 


236126.35 
235210.40 
235205. 5C 
236161.74 

00C021.27 


01 
80 
GO 
30 
01 






AHNEHO 


LVI,$14,AMNMBF 

SICAINTLB 

B.AINITL 

LV,$14»AMNT0P 

LVI,*11,17. 


VB000426 
VB000427 
VB000427 
V8000428 

VB000429 


35* 


235404.40 


000004.33 


00 








V-I,$13,4. 


VB000430 


36* 
37* 
38* 
39* 
4C» 


235405.00 
235405.40 
235406.00 
235406.40 
235407.40 


000010.33 
236157.74 
000020.35 
236147.00 

000000.33 


02 
80 
30 
80 
80 


235427.74 
235667.74 


06 
02 


Af^NEKl 


LCI, $13, 8 

V+,$14,A1PT8 

SV,$14,$C 

BBZ,AHLFWD,AFULL 

B8,.27($13},A0IRX 


VB000431 
VB000432 
VB000433 
VB000434 
VB000435 


41* 


23541C.4G 


000000.32 


8D 


235567.34 


02 




BB,.26($13),AFLPT 


VB000436 


42* 
43* 
44* 
45* 
46* 


235411.40 
235412.40 
235413.40 
235414.40 
235415.40 * 


000000.31 
COCC00.30 
000000.27 
000000.26 
C0CCOO.23 


80 
8D 
80 
8D 
80 


235643.74 
235436.74 
235636.74 
235677.34 

003000. C6 


02 
02 
02 
02 
70 




BB,.25( $13),A8RCH 
BB,.24($13),AFULL2 
6B, .23{$13),AIHNCX 
BB,.22($13J,AMISC 
LF(eU,3),.ig($13> 


VB000437 
VB000438 
VB000439 
VB000440 
VB000441 


4 7* 


235416.40 


700000.00 


80 


403000.23 


10 




KFICBU,3),7 


VB000442 


46* 
49* 
5C* 


235417.40 
235420.00 
235421.00 


235425.36 
000000.23 
236174.14 


C2 
8D 
30 


003024.20 
006012.21 


50 
90 


AUNCNE 


BAE,ANVLC0 

L(BU,3),.ig{$13),40 

»(8U,6),AL24,20 


VB000443 
V8000444 
VB000445 







'Kai 



TIME CLOCK 0CG54C41 PUNIO 


22$DUf'P ( 


:ard 


ID VB000447 OIST. OF 3/01 


3/01 PAGE NUMBER 352 




LINE LOCATICN 


BINARY OUTPUT 




fs/^HE 


STATEMENT 


LOCATION 235422 




1* 
i* 

3* 
A* 


235422.00 
235422.40 
235423.40 
235424.40 


C0CC11.C2 
236250.50 
COCOOO.CO 
235377. 10 


30 
81 
8E 

00 


030000.06 
030000.12 


70 
FG 




LV,$1,$R 

LF(BU,24),A8RTBL{$1I 

SF{BU,24),I$14) 

B,ARETRN 




V8000447 
V8000448 
VB000449 

VB000450 


5* 


235425.00 


236420.30 


80 


050000.06 


70 


ANVLDO 


LF(EU,4C),AERR0R 




VB000451 


€* 
1* 
€» 
S* 

10* 


235426.00 
235427.00 
235427.40 
235430.40 * 
235431.40 


000000.00 
235377.10 
000000.33 
000000.32 
000000,27 


8E 
00 
80 
8D 
8D 


050000.12 

235451.74 
235703.34 
235425.34 


FG 

02 
02 

02 


AFOLL 


SF[BU,40),0C$14) 
B,ARETRN 

BB,.27($13)»AIMTCC 
BB, .26($13),ATRNST 
BB, .23{$13), ANVLDO 




VB000452 
VB000453 
VB000454 
VB000455 
VB000456 


n* 


235432.40 


000000.34 


80 


003066.60 


50 


ABRBT 


L{BU,3),.28C$13),-19 




VB000457 


12* 
13* 
1^» 
15* 

16* 


235433.40 
235434.00 
235435.00 
235436. CO 
235436.40 


000010.02 
236244.50 
COCGOO.OO 
235377.10 
00CC00.73 


30 
81 
8E 
00 
80 


040000^06 
040000.12 

235450.74 


70 
FC 

02 


AFULL2 


LV,$1,$L 

LFIEU,32),ABRBTB($U 

SF(BU,32),{$14} 

B,ARETRN 

BB, .5g{$13),AFULL4 


-INT. OR CONN. 


Ve000458 
VB000459 
¥8000460 
VB000461 
V8000462 


17* 


235437.40 


000000.72 


80 


235450.74 


02 




BB, .58J$133 ,AFULL4 


-TRANSMIT 


VB000463 


It* 
IS* 
2C« 
21* 
22* 


2354'!t0.4C 
235441.40 
235442.40 
235443.40 
235444.40 * 


000000.71 
000000.70 
000000.67 
OOCC00.63 
700000.00 


80 
80 
80 
80 
80 


235446.34 
235425.34 
235450.74 
003000.06 
403000.23 


02 
02 
02 
70 
10 




BB, .57(3il3), ASICCP 
BB,.56($13),ANVLC0 
B8,.55($13),AFULL4 
LF(PU,3),.51($13) 

KFHBU,3),7 


-SIC, CB OR BIND 

-SICERRCR 

-INPUT-OUTPUT 


VB000464 
VB000465 
V8000466 
VB000467 
VB000468 


23* 
2<« 
25* 
26* 
2?* 
28* 


235445.40 
235446.00 
235447.00 
235450.00 
235450.40 
235451.40 


235450.76 


C2 








8AE,AFULL4 


-BB 


VB000469 


236420.00 
000000. CO 
235377.10 
236147.00 
000000.31 


80 
86 

00 
80 
80 


030000.06 
030000.12 

235377.34 

003000.06 


70 
FO 

OC 
70 


ASICCP 

AFULL4 
AINTCC 


LF(BU,?4),ASIC 

SF(BU,24),0{$14) 

E.ARETRN 

8ZB1,AHLFWD,ARETRN 

LF{eu,3),.25($l3) 


-SICUNCONOITICNAL BRANCH 
-AHLFWD ALWAYS EQUALS ZERO 


V80004?0 
VB000471 
VB000472 
VB000473 
VB000474 


2S* 


235A52.40 


700000.00 


80 


403000.23 


10 




KFI{BU,3»,7 




VB000475 


3C» 
31* 
32* 

33* 
3^* 


235453.40 
235454.00 
235455.00 
235456.00 
235456.40 


235562.36 
"000000.26 
236174.06 
000011.02 
236362.03 


C2 
80 
80 
30 

05 


005024.20 
006012.21 


50 
90 


AINTC3 


BAE,ACONN 

LIBU,5J,.22C$13J,40 
•{8U,6),AL40,20 
L¥, $l,$R 
V+I,$1,AQPT8L 


-- ■ 


VB000476 
VB000477 
VB000478 
VB000479 

VB000480 


3f* 


235457.00 


000000.00 


81 


040014.06 


70 




LF(EU,32),<$1),24 




VB0004B1 


36* 
37* 

3£* 
3S* 
4C« 


235460.00 » 

235461.00 

235462.00 

235463.00 

235464.00 


000000.24 
04CC00.C0 

cooooo.cc 

000000.00 
235511.36 


80 
80 
80 
80 
C2 


235531.34 
410010.06 
003040.06 
403040.23 


02 
70 
70 
10 


AINTCl 


BB,.2C($13),AMNUS 
LFII8U, 8), (8)20,16 
LF(EU,3),0{$13),-64 
KFI(8U,3),0,64 
BAE.ADIRCT 




VB000482 
V8000483 
VB000484 
V8000485 
VB000486 


41* 


235464.40 


400000.00 


80 


403040.23 


10 




KFn8U,3),4,64 




VB000487 


42* 
43* 
A^* 
45* 
^6* 


235465.40 
235466.00 
235467.00 
235470.00 
235471. CC 


235513.76 
000000.45 
777777.60 
000000.44 
000000.01 


C2 
81 
8E 

81 
80 


235425.34 
0500i0.12 
235563.74 

002024.20 


02 
FO 
02 
50 


AINTC2 


8AE,AIMf«ED 
8B,.37($1), ANVLDO 
SF{BU,4C),-.16($14),16 
B6,.36{$1),AC0NNP 
L{BL,2),.1($13),40 




VB00048B 
V8000489 
VB000490 
VB00049I 
VBC00492 


47* 


235472.00 


236174.06 


80 


006012.21 


90 




«{8U,6),AL4G,20 




VB000493 


48* 
4S* 
5C* 


235473.00 
235473.40 * 
235474.40 


000011.04 
070000.00 
236410.40 


30 
80 
82 


410034.20 
040014. C6 


50 
70 




LV,$2,$R 

LI(eU,8J,(8}34,56 

LF(BU,32),2.32+AIMNTB($2) 


,24 


VB000494 
VB000495 
V8000496 




■ . 



'Nai 



TIME CLOCK 00054C41 PUNID 


22$cu^<p ( 


:ard 


IC VB000498 DIST. OF 3/01 


3/01 PAGE NUMBER 


353 


LINE LOCATICN 


BINARY CUTPUT 




NAfE 


STATEMENT 


LOCATION 


235475 


1* 
2* 

3* 
A» 


235475.40 
235476.40 
235477.40 
235500. 4C 


000000.00 
100000.00 
17CC00.00 
000000.25 


80 
80 
80 
8D 


235477.74 
410024.06 
410010. C6 
235503.34 


00 
70 
70 

C2 




8ZB,0(tl3),$-»-2. 
LFKBU, 8), (8)40,40 
LFI(BU,8),I8}74,16 
B8,.21($l3),$+2.32 


-CHN6E. + TO - 
-) 


VB000498 
V8000499 
VB000500 
VB000501 


5* 


235501.40 


144000. CO 


80 


410004. C6 


70 




LFKBU, 8), (8)62, 8 


-B 


V8000502 


e* 
1* 

€« 
9* 

ic*. 


235502.40 
235503.00 
235504.00 
235505.00 
235506.00 


235504.10 
150000.00 
000000.23 
050000.00 
235507.50 


00 
80 
80 
80 

00 


410004.06 
235506.74 
410000.06 


7C 

00 
70 




B,$+1.32 

LFKBU, 8), (8)64, 8 

BZ8,.l9C$l3»,$+2.32 

LFnBU,8)»(8)24 

B,$+1.32 


-D 

-u 


VB000503 
Vfi000504 
VB000505 
VB000506 
VB000507 


u* 


235506.40 * 


040000.00 


80 


410000. C6 


7C 




LFKBU, 8), (8)20 


-BLANK 


VB000508 


12* 
13* 
14* 
15* 
16* 


235507.40 
235510.40 
235511.00 
235512.00 
235513.00 


000000.30 
235377.10 
C0CC00.44 
040000.00 
2355*17.50 


8E 
00 
81 
80 

00 


000000.20 

235555.74 
410004.06 


CO 

02 
7C 


ADIRCT 


ST(EU,64), .24{$14) 

B,ARETRN 

BB, .36($l),ACaNNI+l. 

LFKBU, 8), (8)20, 8 

B,AIMMD1 




VB000509 
VB000510 
VB000511 
VB000512 

VB000513 


17* 


235513.40 


000000.47 


81 


235425.34 


00 


AIHMED 


8ZB,. 39(11), ANVLDO 




VB000514 


18* 
19* 
2C» 
21* 
22* 


235514.40 
235515.40 
235516.40 
235517.40 
235520.40 


000000.43 
000000.44 
162000.00 
000000.60 
000000.25 


81 
81 
80 
8E 

80 


235545.74 
235554.74 
410004.06 
160004.12 
235523.34 


02 
02 
70 
FO 
02 


AINMOl 
AINMD2 


BB,.35($1),AMPY1A 
BB,. 36(11), ACONNI 
LFKBU, 8), (8)71, 8 
SF(BU,48)(V+I),.48($14) 
BB, .21($13) ,$+2.32 


-I 
,8 


VB000515 
V8000516 
VB000517 
VB000518 
VB000519 


22* 


235521.40 


144000.00 


80 


410004. C6 


70 




LFKBU, 8), (8)62, 8 


-B 


VB000520 


2A* 
25* 
26* 
21* 

28* 


235522.40 * 
235523.00 
235524.00 
235525.00 
235526. CO 


235524.10 
150000.00 
000000.23 
050000.00 
235527.50 


00 
80 
80 
80 
00 


410004.06 
235526.74 
410000.06 


70 
00 
70 




B,$+1.32 

LFKBU, 8), (8)64, 8 

BZ8,.19(*13),$+2.32 

LFKBU, 8), (8)24 

B,$+1.32 


-D 

-u 


VB000521 
VB000522 
VB000523 
VB000524 
VB000525 


29* 


235526.40 


040000.00 


80 


410000.06 


70 




LFKBU, 8), (8)20 


-BLANK 


VB000526 


3C* 
31* 
32* 
33* 
34* 


235527.40 
235530.40 
235531. CO 
235532.00 
235533.00 


000000.00 
235377.10 

000000.46 
000000.44 
000000.27 


8E 
00 
81 
81 

80 


020000.12 

235540.74 
235462.34 
004040.06 


FO 

02 
02 
70 


Af^NUS 


SF(BU,16),0($14) 

B,ARETRN 

B8,.38($1),ANEG 

BB,.36($l),AINTCl 

LF(eU,4),.23(*13),64 


- 


VB000527 
VB000528 
VB000529 
VB000530 
VB000531 


3E* 


235534.00 


000000.00 


80 


404040.23 


10 




KFKBU,4),0,64 




VB000532 


36* 
37* 
3£* 
39* 

4C* 


235535.00 
235535.40 * 
235536.40 
235537.00 
235540.00 


235537.36 
100000.00 
235461.10 
100000.00 
235461.10 


C2 
80 
CO 
80 

00 


410024,06 
410030.06 


70 
70 




8AE,$+2. 

LFKBU, 8), (8)40, 40 

B,AINTC1-1. 

LFKBU, 8), (8)40,48 

B,AINTC1-1. 




VB000533 
VB000534 
VB000535 
VB000536 
VB000537 


41* 


235540.40 


000000.43 


81 


235543.34 


02 


ANEG 


88,.35($1),AMPYA 




VB000538 


42* 
43* 
44* 
45* 

46* 


235541.40 
235542.40 
235543.00 
235544.00 
235545.00 


112000.00 
235462.10 
000011.30 
112000.00 
235^61.10 


80 
00 
80 
80 

CO 


410010.06 

010024.12 
410024.06 


70 

FO 
70 


AMPYA 


LFKBU, 8), (8)45, 16 

8,AINTG1 

SF(BU,8>,$R.24,40 

LFHBU,8),(8)45,40 

B,AINTC1-1. 




VB000539 
VB000540 
VB000541 
VB000542 

VB000543 


47* 


235545.40 


000000.24 


80 


235552.34 


02 


AHPYIA 


BB, .20(113), AHPY2A 




V8000544 


46* 
49* 
5C* 


235546.40 
235547.40 
235550.40 


000011.30 
162000.00 
162000.00 


80 
80 
80 


010024.12 
410024.06 
410024. C6 


FO 
70 
70 




SF{BU,8),SR.24,4C 
LFKBU, 8), (8)71, 40 
LFKBU, 8), (8)71,40 




VB000545 
VB000546 
VB000547 







'wai 



C 



TIME CLOCK 00054C41 PUNID 


22$DUPP < 


:aro 


IC VB00C549 UIST. OF 3/01 3/01 PAGE NUMBER 354 


LINE LQCATICN 


BINARY CUTPUT 




NAME 


STATEMENT LOCATION 


235551 


1* 
2* 

3* 
A* 


235551.40 • 
235552.00 
235553.00 
235554.00 


235517.50 
000011.40 
162000.00 
235517.50 


00 
80 
80 

00 


010020.12 
410020.06 


FC 
70 


AMPY2A 


B,AIMMDl 

SF(BU,8I,$R.32,32 

LFI(BU,8),(8)71,32 

B,AIMMC1 


VB000549 
V6000550 
VB000551 
VB000552 


t* 


235554.40 


162C00.CC 


80 


410024. C6 


70 


ACCNNI 


LFI(BU,8),{8)71,4C 


VB000553 


i* 
«« 
£♦ 

S* 
1C» 


235555.40 
235556.40 
235557.40 
235560.00 
235560.40 


000000.30 
000000.23 
235376.40 
235373.50 

000000.40 


8E 
80 
80 
CO 
8E 


130024.12 
004100.06 

140000.12 


FO 
70 

FO 




SF{BU,24)(V+n,.24{$14),4C 

LF{BU,4,l),.ig($13J 

SICAOCTLB 

BfAGCTLC 

SF(BU,32,8){V+I) ,.32{$14) 


VB000554 
VB000555 
VB000556 
VB000556 
VB000557 


11* 


235561.40 


235377.10 


00 








B,ARETRM 


VB000558 


12* 
12* 
14* 
15* 
16* 


235562.00 
235563. OC 
235563. 4C 
235564.40 
235565.00 « 


000000.27 
235455.10 
000000.23 
235376.40 
235373.50 


80 
00 
8D 
80 
00 


005024.20 
004100. C6 


50 
70 


ACCNN 
i^CCNNP 


L(BU,5),.23C$13),40 

B.AINTC3 

LF{BU,4,l),.ig($13} 

SICAOCTLB 

B,ACCTLC 


VB00055g 
VBQ00560 
VB000561 
VB000562 
VB000562 


17* 


235565. 4C 


000000.40 


ae 


140000.12 


FC 




SF^BU,32)(V + n,.32($14) 


VB000563 


18* 

i«;* 

2C* 
21* 

22* 


235566.40 
235567.00 
235570.00 
235571.00 
235571.40 


235377.10 
000000.25 
236174.06 
000011.02 
236336.03 


00 
8D 
80 
30 
05 


005024.20 
006012.21 


50 
90 


AFLPT 


BfARETRN 

L{BU,5),.21{$13),40 

*(BU,6),AL40,20 

LV,$1,$R 

V+I,$1,AFLTBL 


VB000564 
VB000565 
¥8000566 
VB000567 
VB00056a 


22* 


235572.00 


000000.00 


81 


040020.20 


50 




L(BU,32),($1),32 


VB000569 


24* 
25* 
26« 
27* 
26* 


235573. CO 
235574.00 
235575.00 
235576.00 
235577.00 


000000.24 
040000.00 
000000.23 
C4CC00.00 
070000. CO 


80 
80 
80 
80 
80 


235607.34 
410014. C6 
235625.34 
410010.06 
410004.06 


02 
70 
02 
70 
70 


AFLPTl 
AFLPT2 


BB,.2C{$13),AFLMIN 
LFHBU,8),(8J20,24 
BB,.19|$13J,AFLABS 
LFI(8U,8),C8I20,16 
LFI{BU,8),(8)34,8 


VB000570 
VB000571 
V8000572 
VB000573 
VB000574 


29* 


235600.00 * 


000000.22 


80 


235602.74 


02 




BB,.18($13J,AUN0RM 


V8000575 


3C* 
3J* 
32* 

33* 

34* 


235601.00 
235602.00 
235602.40 
235603.40 
235604.40 


112000.00 
235603.50 
050000.00 
000001.00 
17CC00.G0 


80 
00 
80 
8E 
80 


410000.06 

410000.06 
100000.20 
410000. C6 


70 

70 
DO 
70 


AUNCRM 


LFI(8U,8),(8)45 -N 

B,$+1.32 

LFI(BU,8),(8)24 -U 

ST(BU»64){V+I),1.($14) 

LFI(BU,8),{8)74 


V8000576 
V8000577 
VB000578 
VB000579 
V8000580 


35* 


235605.40 


000000.00 


8E 


010000.12 


FO 




SF18U,8),C($14) 


VB000581 


36* 
37* 
3f* 
S?* 
4C» 


235606.40 
235607.00 
23561C.00 
235611.00 
235612.00 


235377.10 
000000.47 
000000.25 
000000.00 
235615.76 


CO 
81 
80 
80 
C2 


235617.34 

005000.06 
405000.23 


02 
70 

10 


AFLNIN 


B,ARETRN 

BB,.39Ul), AFLNEG 
LF{BU,51,.21{$13) 
KFI(BU,5),0 
BAE.AFLMNl 


VB000582 
VB000583 
VB000584 
VB000585 
VB000586 


41* 


235612.40 


200000.00 


80 


405000.23 


10 




KFn8U,5),{2)C10C0 


VB000587 


42* 
42* 
44* 
45* 
4£« 


235613.40 
235614.00 * 
235615.00 
235615.40 
235616.40 


235615,76 
100000.00 
235574. IC 
100000.00 
235574.10 


C2 
80 
00 
80 

00 


410030.06 
410034.06 


7C 
70 


AFLNNl 


8AE,AFLMN1 
LFI(BU,8),{8)40,48 
B, AFLPTl 

LFI(BU,8),t8)40,56 
B, AFLPTl 


VB000588 
VB000589 
V8000590 
V8000591 
VB000592 


47* 


235617.00 


000000.44 


81 


235622.74 


02 


AFLNEG 


BB,.36($1),AF«PY 


VB000593 


48* 
49* 

5C* 


235620.00 
235621.00 
235622.00 


O0CCCO.45 
112000.00 
235575. 10 


81 
80 
CO 


235622.74 
410014.06 


02 
70 




BB, .37($1),AFMPY 

LFI{BU,8),(8}45,24 

8,AFLPT1+1. 


VB000594 
V8000595 
yB000596 























'Kai 



TIME CLOCK 0CC54C41 PUNID 


22$CUFP 


:arc 


ID VB0005g8 CIST. OF 3/Cl 3/01 PAGE NUMBER 355 


LINE LOCATICN 


BINARY OUTPUT 




NAME 


STATEMENT LOCATION 235622 


1* 
2* 

3* 
^* 


235622.40 
235623.40 
235624.40 
235625. CO 


000011.20 
112000.00 
235574.10 
C0CC00.46 


80 
80 
00 
81 


020024.12 
410030. C6 

235634.34 


FO 
70 

02 


AFMPY 
AFLABS 


SFCBU,16),$R.16,40 

LF1CBU,8),<8I45,48 

B,AFLPT1 

68, .38($1), AFLEI 


VB000598 
V8000599 
VB000600 
VB000601 


5* 


235626.00 


000000.44 


81 


235630.74 


02 




BR, .36($1), AFMPYA 


VB000602 


i* 
7* 
t* 

c* 
IC* 


235627.00 « 

235630.00 

235630.40 

235631.40 

235632.40 


142000. CO 
235577.10 
C0CCC0.24 
000011.20 
142C00.C0 


80 
00 
8D 
80 
80 


410010. C6 

235634.34 
010030.12 
410030.06 


70 

02 
FO 
7C 


AFMPYA 


LFI{BU,8),(8)61, 16 
B,AFLPT2 

BB,.20C$13), AFLEI 
SF(BU,8I,$R.16,48 
LFI{BU,8),{8)61,48 


VB000603 
V8000604 
VB000605 
VB000606 
VB000607 


11* 


235633.40 


235576. 10 


CO 








B,AFLPT2-1. 


VB000608 


12* 
13* 
14* 
15* 
16* 


235634.00 
235635.00 
235636.00 
235636.40 
235637.40 


000011.30 
142000.00 
235576.10 
00CC00.34 
236174.06 


80 
80 
CO 
8D 
80 


010024.12 
410024,06 

004024.20 
006012.21 


FO 
70 

50 
90 


AFLEI 
AIMNDX 


SF(8U,8),$R.24,4C 

LFI(BU,a),(8)6l,40 

8,AFLPT2-1. 

L(BU,4),.28($13),40 

*(BL,6),AL4C,20 


VB000609 
VB000610 
VB000611 
VB000612 
VB000613 


17» 


235640.40 


000011.02 


30 








LV,$1,$R 


VB000614 


18» 
19* 
2C* 
21* 
22* 


235641.00 
235642.00 
235643.00 * 
235643.40 
235644.40 


236406. CC 
000000.10 
235672.10 
000000.34 
236264, C3 


81 
8E 

00 
8D 
01 


050010.20 
110030.12 

235653.34 


50 
FO 

00 


A8RCH 


L(BU,4C),AIMNTB($1),16 
SF{BU,8)(V+I ),.8{$14»,4e 
8,ACIRX2 
8ZB,.28($13), ABRIND 

LVI,$1,ANXBR 


V8000615 
VB000616 
VB000617 
VB000618 
VB000619 


23* 


235645. CC 


000000.35 


8D 


002024.20 


50 




L{BU,2), .29{$13),40 


VB00062C 


2A* 
25* 
26* 
27* 
2£» 


235646. CO 
235647.00 
235650.00 
235650.40 
235651.40 


C0CC00.27 
236174.06 
000011.C2 
000000.00 
000000.10 


80 
80 
80 
81 
8E 


002025.06 
006012.21 

050010.20 
110030.12 


7C 
90 

50 
FO 




LF(eU,23,.23($13),42 
»(BU,6) ,AL40,2C 
V+,$l,$R 

L(BU,40),C($1),16 
SF{8U,8)(V+I),.8($14),48 


V8000621 
VB000622 
VB000623 
V8000624 
,/B000625 


29* 


235652.40 


235672, IG 


CO 








8,ACIRX2 


VB000626 


3C» 
31* 
32* 

33* 
34* 


235653.00 
235654.00 
235654.40 
235655.40 
235656.40 « 


000000.23 
COCG10.02 
144000.00 
236276.00 
000000.36 


80 
30 
80 
81 
80 


006066.60 

410020.20 
040000.06 
235664.34 


50 

50 
70 

00 


ABRIND 


L(BU,6), .19($13),-19 

LV,$1,$L 

LI(EU,8),18J62,32 -B 

LF(BU,32),AINDCR($1) 

BZB,.30{$13), ABINDF 


VB000627 
VB000628 
VB000629 
VB000630 
VB000631 


3f* 


235657.40 


00CC00.50 


8E 


150000.12 


FO 




SF(BU,40)(V+I),.40{$14) 


VB000632 


36* 
37* 
3£« 
3S* 
4C* 


235660.40 
235661.40 
235662.40 
235663.40 
235664.00 


000000.35 
062000.00 
000000.00 
235377.10 
000011.20 


80 
80 
8£ 
00 
80 


235377.34 
410000.06 
010000.12 

010020.12 


00 
7C 

FO 

FO 


ABNDl 
ABINDF 


BZB,.29{$13),ARETRN 

LFI(BU,8),{8)31 

SF(BU,8J,C$14) 

B,ARETRN 

SF{eU,8),$R.16,32 


VB000633 
VB000634 
VB000635 
VB000636 
VB000637 


41* 


235665.00 


062000.00 


80 


410020,06 


70 




LFI(8U,8),{8)31,32 -Z 


VB000638 


42* 
43* 
44* 
45* 
46* 


235666.00 
235667.00 
235667.40 
235670.40 
235671.00 


000000.60 
235660.50 
000000.27 
000010.02 
236254.00 


8E 
00 
80 
30 
81 


160000.12 
004066.60 
040010.20 


FO 
50 
50 


ADIRX 


SF{BU,48)(V+I),.48($14) 
B, ABNDl 

L{8U,4),.23C$13),-19 
LV,$l,$L 
L{BU,32),A0RN0X{$1),16 


VB000639 
VB000640 
VB00064i 
VB000642 
VB000643 


47* 


235672.00 * 


066000.00 


80 


410004.06 


70 


ACIRX2 


LFI{BU,8),{8)33,8 


VB000644 


48* 
49* 
5C» 


235673.00 
235674.00 
235674.40 


000000.23 
000010.02 
236232.10 


80 
30 
81 


004065.46 
010000.06 


70 
70 




LF(fiU,4),.19i$13),-21 

LV,$1,$L 

LF(BU,8J,AHXT8{$1) 


VB000645 
VB000646 
VB000647 


. 


. ■ . •- ' 



'Hai 



TIME CLOCK C0054C41 PUNID 


22$DU^'P CARD 


ID VB000649 DIST. OF 3/Cl 


3/01 PAGE NUMBER 356 




LINE LOCATICN 


BINARY OUTPUT 




NAME 


STATEMENT 


LOCATION 235675 




I* 
2* 
3* 


235675.40 
235676.40 
235677.00 

2357CC.C0 


OOOCOO.CO 
235377.10 
000000.23 
000010.02 


8E 
00 
80 
30 


060000.12 
003066.60 


FO 

5C 


AHISC 


SFfBU,48),{$14) 
B.ARETRN 

L(BU,3),.19C$13),-ig 
LV,$1,$L 




VB000649 
VB000650 
V8000651 
VB000652 


f • 


235700.40 


236242.10 


81 


040000.06 


70 




LF(BU,32),AMISTB{$1) 




VB000653 


£* 
7* 
6* 
S* 
IC* 


235701.40 
235702.40 
235703. OG 
235704.00 

235705.00 


COCOOO.OO 
235377.10 
000000.27 
236174.00 

000011.02 


8E 
00 
80 
80 
30 


040000.12 

003024.20 
006012.21 


FO 

50 
90 


ATRNST 


SF(EU,32),($14) 
BtARETRN 

L{BU,3)«.23($13I,40 
»IBU,6I,AL48,20 

LV,$1,$R 




VB000654 
VB000655 
VB000656 
VB000657 
VB000658 


11* 


235705.40 » 


236234.10 


81 


060010.20 


50 




L{BU,48),ATRNTBl$l),16 




VB000659 


12* 
13* 
14* 
15* 
16* 


235706.40 
235707.40 
235710.40 
235711.00 
235712.00 


066000.00 
00CC00.23 
000010.02 
236232.10 

000000.00 


80 
80 
30 
81 
8E 


410004.06 
004065.46 

010000.06 
000000.20 


70 
70 

70 

DO 




LFI(BU,8),(8)33,8 

LFieU,4),.l9(il3),-21 

LV,$1,$L 

LF(BU,8|,AHXTB($l) 

ST(BU,64),{$I4) 


~» 


VB000660 
VB000661 
VB000662 
VB000663 
VB000664 


17* 


235713.00 


235377.10 


CO 








8,ARETRN 




VB000665 


18* 
IS* 
2C* 
21* 
22* 


235713.40 
235714.00 
235715.00 
235716.00 
235717.00 


236105.35 
236221.00 
236221. CO 
236221.00 
236221.00 


01 
80 
80 
80 
80 


000002.02 
000006.02 
000012. C2 
000016. C2 


AE 

AE 
AE 
AE 


AFLPNT 


LVI,$14»APC0L1 
TI, l,APFL,2.t*14) 
TI,1,APFL,6.{$14) 
TI,1,APFL,10.{$14) 
TI, 1,APFL,14.I$14) 




VB000666 
VB000667 
VB000668 
VB000669 
VB000670 


22* 


235720.00 


236147.01 


80 


001000.36 


FO 




CM1111(8U,1),AFLPTI 




VB000671 


24* 

25* 
26* 
27* 
2f* 


235721. CC * 
235721. 4C 
235722. CO 
235722. 4C 
->35723.CC 


235722.37 

23533C.10 
CCCCC1,33 
235726.10 
236161.34 


01 
00 
C2 
00 
30 






AFLPl 


LVIr$15,$+l. 
B, AWDCMP 
LCI, $13,1 
B, ACNVER 
LV, J14, AhGTP 




VB000672 
VB000673 

VB000674 
VB0O0674 

VB000675 


2^* 


235723.40 


CCCC33.00 


CO 


023000. CC 


FO 




CM0G0C{BU,ig),$ll 




VB000676 


3r* 

31* 
32* 

33* 
34* 


?35724.40 
235725. CC 
235725.40 
235726.00 
235727. CC 


235373. CC 
235370.10 

00GC04.33 
000013.77 

C0CC00.2C 


80 
CO 

02 
HO 

8E 


001000.36 

OIOOOO.CC 


FO 
FO 


ACNVER 


SICALCRFB 

B.ALCRF 

LCI, $13,4 

CM1111{BU,1»,$IND.63 

CM0C00(BU,8),.16($14) 


-SET NOISY MODE 


VB000677 
VB000677 
VB000678 
V8000679 

VE0006a0 


3::* 


23573G.CC 


COOCOO.CO 


8D 


235732.34 


00 




8ZB,0($13),$+2. 




veooo6ai 


3^« 
37* 
38* 
39* 
4C* 


235731. CC 
235732.00 
235732.40 
235733.40 
235734. CO « 


236147.04 
CCCC00.04 
COOCIO.CO 
235740.74 
CGCG13.51 


80 
60 
80 
CO 
80 


001000.36 
235733.74 
0C1000.36 


FO 
G6 
FO 


ALCGP2 


CMnii{8y,i),AexPF 

DL(N),C{$13) 
BBZ,$L,S+1. 
BZRZ,AL00P4 
CMllll(aU,l),$PGC 


-INDICATE X FOR FRACTION 


Ve00G682 
VB000683 
V8000684 
VB000685 

VB000686 


41* 


235735.00 


000010.14 


au 


001000.36 


70 




cllll(BU,l),$L.IZ 


-ASSUMc lXISTlNCE OF BIT 49 


VR000687 


42**235736. CC 
42* 235736.40 
44* 235737.40 
45* 235740.40 
4£« 235741.40 


C14C0C.57 
000010.00 
236147.04 
000012.04 
236017. C3 


6 
80 
80 
80 
30 


235740.74 
001000.36 
235743.34 

001000.00 


04 
FO 
04 
FO 


ALCCP4 


F-I ,48 

BZBZ,$L,AL00P4 
CM1111{BU,1),AEXPF 
BZBZ, 10. 04, ACPLUS 

CMOCOCAFRACI 


-'ADJUST FXPNT AS IF NORMALIZED 


VB000688 
VB000689 
VB000690 
VB000691 
VB000692 


47* 


235742.40 


235744.10 


00 








B,ACPLUS+1. 




VB000693 


4e« 


235743.00 


236017.03 


80 


001000.36 


FO 


ACPLUS 


CM1111,AFRACI 




VB000694 







'KSI 



IIME CLOCK 0CC5AC41 PUNID 


22$CUKP ( 


:ard 


ID VB000696 CIST. OF 3/Cl 


3/01 PAGE NUMBER 357 




LINE LOCATION 


BINARY OUTPUT 




NAME 


STATEMENT 


LOCATION 2357AA 




1* 
2* 

2* 


2357AA.C0 
2357AA.A0 
2357A5.C0 
2357A6.C0 


000000.01 
236A2A.C6 
OOOCOO.GC 
2357A7.76 


01 
10 
80 
C2 


013072.63 


10 




LVI,$0,C 
LX,$3,AFXW1 
KFCBU, 11), 0,-11 
8AE,$+1.32 




VB000696 
VB000697 
VB000698 
V8000699 


I* 


2357A6.A0 


000010.13 


80 


235752. 3A 


00 




8ZB,$L.11,ATEXP-1. 




VB000700 


t* 
1* 

8* 
S» 

IC* 


2357A7.A0 * 
23575C.A0 
235751. AO 
235752.00 
235753.00 


236015.03 
236200.00 
235753.10 
236201.00 
236212. CO 


80 
80 
00 
80 
83 


001000. cc 
235757. C2 

235757.02 
013072.63 


FO 

AC 

AO 

ic 


ATEXP 


CM0C00{BU,1),AALL15 

TI,1,ADBLMP,ATAH 

B, ATEXP 

TI,1,ADLDVD,ATAH 

KF(BU,ll,8),AFL10+8.($3) 


,-11 -FIT EXPNT OF X BETWEEN N 


VB000701 
VB000702 
VB000703 
VB000704 
VB000705 


11* 


23575A.00 


236213. CO 


83 


013072.63 


50 




KFR{BU,ll,8),AFL10+g.($3),-ll -AND N+1 POV^ERS OF 10 IN 


VB000706 


12* 
13* 
14* 
15* 
16* 


235755.00 
235755. AO 
235756. OC 
235756. AO 


235756.76 
235753.07 
235760. 5C 
236173.00 


C2 
C8 

CO 
83 






AGO 


BAEtAGO 
CB-,$3,ATEXP 
B.ACUT 
V+,$0,AB0EC+8.($3) 

CNOP 


-BINARY 

-HAVE ALL RANGES BEEN TESTED 
-ADO N TO VALUE OF EXPNT 


VB000707 
VB000708 
VB000709 
VB000710 
VB000711 


1?* 


235757.00 


C0CC00.30 


00 






ATAH 


NOP 




VB000712 


U* 
IS* 
2C* 
21* 
22* 


235757. AC 
235760. CO 
235760. AO 
235761. AO 
235762.00 


C00C00.3C 
235753.10 
236015. C3 
236163.00 
236202. C5 


00 
00 
80 
BO 
AO 


235762. 7A 


02 


AOUT 


NOP 

B, ATEXP 

Bfl,AALL15,ACUT2.-.32 

V+,$0,AfiD£C 

D»{N),AFL10 


-SCALE EXPNT AND CREATE INTEGRAL 
-PART WHEN EXPNT NEGATIVE 


VB000712 
VB000713 
V800071A 
VB000715 
VB000716 


23* 


235762. AC 


235773. 6A 


C2 








BPG0,A0UT2A 


-SKIP FRACTION CONVERSION 


V8000717 


2<* 
25* 
26* 
21* 

2e* 


235763.00 • 
23576A.00 
23576A.A0 
235765. AO 
235766.00 


COOCOO.CO 
235765. 7A 
000023.07 
2360A3.C2 
236CA3.0A 


80 
06 
80 
EO 
60 


00AA72.13 
O0AA72.6O 


70 
DC 


ADUT2 


CT0101(BU,A,A),0,116 
BRZZ,$+1.32 
ST(BU,A,A),$3.07,-ll 
SRO(N),AT£MPD 
DLIN) ,AT£MPD 


-TEST FOR ZERO INTEGER 
-RETAIN EXPNT H 


VB000718 
VB000719 
V8000720 
VB000721 
VB000722 


2S* 


235766. AO 


001000.37 


20 








SHFR,A -CREATE A 


BIT SPARE DIGIT FOR RESULT 


VB000723 


3C* 
31* 

32* 

33* 
3A* 


235767.00 
235767. AO 
235770. AO 
235771. AO 
235772. CO 


000000. C7 
2360A3.00 
000010. lA 
235376. AO 
235373.50 


23 

80 
80 
80 
00 


0600A0.20 
00A000.06 


DO 
70 




SHF,0($3) 

ST{BU,A8,a),ATEMP0,-6A 
LF{BU,A),$L.12 
SICAOCTLB 

B.ACCTLC 


-SHIFT W BITS INTO RESULT CHARACTER 
-RETAIN FRACTION 


VB00072A 
V8000725 
VB000726 
VB000727 
VB000727 


35* 


235772. AO 


000001.00 


8E 


010000.12 


FO 




SF(BU,8),.6A{$1^) 


-STORE 1ST CHAR AS INTEGER 


VB000728 


36* 
37* 

3e* 

3S* 
AC* 


235773. AO 
23577A.A0 
235775. AO 
235776.00 
235776. AO » 


000020.00 
000017.60 
235376. AO 
235373.50 
000000.30 


80 
80 
80 
00 
8E 


022000.22 
01AA00.06 

030000.12 


30 
7C 

FO 


AGUT2A 
ACUT3 


LTRCV(BU,18,8),$0 

LF{BU,12,AJ,$TR-A8 

SICAOCTLB 

B,AOCTLC 

SF{8U,2A,8),.2A($1A) 


-N IN DEC TO TRANSIT REG 


VB000729 
y8000730 
VB000731 
V8000731 
VB000732 


Al* 


235777. AO 


23603A.2A 


C6 






A0UT6 


BPGCZ.AZFRTN 




VB000733 


A2* 
A3* 
AA* 
A5» 
A6* 


236000.00 
236001.00 
236002.00 
236003.00 
23600A.0C 


2360A3.C0 
23621A.C0 
COOCOO.CO 
2360A3.00 
2360A3.C0 


80 
80 
80 
80 
80 


060000.20 
060000.21 
060000.21 
G70A00.2A 
0A0A00.C6 


50. 

90 

BO 

DO 

7C 




L(BU,A8,8),ATEMPC 

*(Bt,A8),AlElA 

CV(EU,A8) 

ST(CU,56,A),ATEMPD 

LF1CU,32),ATEMPD 




VB00073A 
VB000735 
V8000736 
VB000737 
VB000738 


A7» 


236005.00 


235376. AO 


80 








SICAOCTLB 




VB000739 


A€* 
AS* 


236005. AC 
236006.00 


235373.50 
000001.20 


00 
8E 


000000.20 


DO 




B,ACCTLC 
ST(EU,6A),1.16($1AI 




VB000739 
VB0007A0 




- ' " . - 



'NSI 



TIME CLOCK 0OC5AOA1 PUNID 22$DUMP ( 


:ard 


ID VE0007A2 DIST. OF 3/01 


3/01 PAGE NUMBER 358 




LINE LOCATICN 


BINARY OUTPUT 




NAME 


STATEMENT 


LOCATION 236007 




1* 
2* 

3* 


236007,00 
236010.00 
236010. AO 

236011.00 


236QA3.A0 80 
235376. AO 80 
235373.50 00 

CGCC02.20 BE 


030400.06 

060000.12 


70 

FO 




LFCCU,2A,A),ATEHPC.32 

SICAOCTLB 

B,ACCTLC 

SF{eU,A8),2.16($14) 




VB000742 
VB000743 
V8000743 
VB000744 


I* 


236012. CC » 


2361A7,C4 80 


236015.34 


04 


AUP 


8ZBZ, AEXPF, S+3. 




VB000745 


t* 
7* 
6* 
9* 
1C« 


236013. CC 
236C1A.00 
236015.00 
236016.00 
2 36017, CC 


15AC00,C0 80 
000000.20 8e 
lACOOG.OO 80 
000000.10 8E 
lACCCO.GO 80 


410000. G6 
010000.12 
410000. C6 
010000.12 
410000. C6 


70 
FO 
70 
FO 

70 


AEXPS 
AFRACS 


LFI{BU,e),(8)66 

SF(BU,e),.16($lA) 

LFI(BU,8),C8)60 

SF{eU,8l,.8C$l49 

LFHBU,8),(8)60 


• 


Vfi000746 
VB000747 
VB000748 
VB000749 
V8000750 


11* 


236020.00 


000000,70 8E 


010000.12 


FO 




SF{BU,e),.56($14) 




VB000751 


12* 
13* 
1A» 
15* 
16* 


236021.00 
236022.00 
236023.00 
236023. AO 
23602A.A0 


000000.75 80 
23617A.1A 80 
000011.02 30 
236A21.00 81 

C0COO3.iO 8£ 


003024.20 
006012.21 

030000.06 
030000.12 


50 
90 

70 

FC 




L(BU,3),.61C$13),40 

«(BU,6),AL24,20 

LV,$1,$R 

LF{BU,2A),AFLGTB($1) 

SF{eU,2A),3.8{$lA) 




VB000752 
VB000753 
VB000754 
VB000755 

VB000756 


17* 


236025. AC * 


236015.03 80 


001000.36 


FO 




CM111UBU,1),AALL15 




VB000757 


16* 
19* 
2C* 
21* 
22* 


236026. AO 
236027.00 
236027. AO 
236030. CC 
236030. AO 


00CC0A.35 05 
235726.33 A8 
235327. AC 80 
235325.50 00 
2361A7.05 80 


235116.34 


06 




V+I,$1A,A. 

CB+,$13,ACNVER 

SICAWRITB 

BfAWRITE 

BBZ, APNLI, APNLA 




VB000758 
VB000759 
VB000760 
V8000760 
VB000761 


23* 


236031. AO 


236162.32 90 








KVt_J13,ACMPND 




VB000762 


2A* 
25* 
It* 
21* 
2£» 


236032.00 
236032. AC 
236033. AO 
236C3A.00 
236C35.0C 


235721.32 42 
2361A7.01 80 
23A70A.10 00 
024000.00 80 
OOCCOl.CO 8E 


OOIOOO.CC 

410000.06 
010000.12 


FO 

70 
FO 


AZFRTN 


8XL,AFLP1 

CMOCOOCBU, 11, AFLPTI 
B,APUML6 
LFI(BU,8),<8n2 
SFieU,8),l.C$lA) 




VB000763 
V8000764 
VB000765 
VB000766 
VB000767 


29* 


236036,00 


23621A.60 80 


000000.20 


50 




L(BU,6A),AXMAGE 




V600076a 


3C* 
31* 
3^* 
33* 
3A* 


236037.00 
2360AO.OO 
2360A1.00 * 
2360A2.CO 
2360A3.00 » 


C0CC01.20 8E 
23621A-60 80 
000002.20 8E 
236012.10 00 
OOCCOl.CO 


000000.20 
060000. C6 
060000.12 


DO 
7C 
FC 


ATEHPD 


ST{BU,6A),1.16<$1A) 

LF(BU,A8),AXMAGE 

SF(BU,A8),2.16t*lA) 

B,AUP 

DRZ(N),1 


/-:<- - 


VB000769 
VB000770 
V 800 0771 
VB000772 
VB000773 


35* 


2360AA.00 


OOCCAl.CO 






AEUFF 


DRZ(N),33 




^VB000774 


36* 
37* 
3€* 
39* 
AC* 


236105. CC 
236126.00 
2361A7.00 
2361A7.01 
2361A7.C2 


C00C21.CC 
0C0C21.C0 
COOCOO.Cl 

OOOCOO.Gl 







APCGLl 
APNM8F 
AHLFWD 
AFLPTI 

ASPuei 


DRZ{N),17 
DRZ{N),17 
ORZIBUt 1)«1 
00(6U,n,0 
DRZ(BU,1),1 


-USE AS LOADER BUFFER 


VB000775 
VB000776 
VB000777 
VB000778 
VB000779 


Al* 


2361A7.03 


000000.01 






ASPLBI 


DRZ{BU,1),1 




VB000780 


A2* 
A3* 

AA* 
A5* 
A£* 


2361A7.0A 
236017.03+ 
236015. C3+ 
2361A7.05 
2361A7.C6 


OOCCOO.Ol 
+OCCOOOGC 
+O00000CO 
OOCCOO.Ol 


BU,01 1 
BU»01 , 


ilO 
rlO 




AEXPF 

AFRACI 

AALL15 

APNLI 

ACTLBT 


DRZCBU,1),1 
SYNCBU,1), AFRACS. 3 
SYN(8U,1),AEXPS.3 
DRZtBU,l),l 
DD(EU,1),C 


-USED FOR COMPUTING $MR 


VB000781 
V8000782 
VB0007a3 
VB000784 
VB000785 


A7» 


236150. CC 


23605A.00+ COO 


000005 OOOOOC 


APNLWl 


XW,ABUFF+8.,5 




VB000786 


Ae* 

AS* 
5C* 


236151. CC 
236152. CC 
236153.00 


236057.00+ COO 
236060. 2A+ 000 
236063.00+ COO 


000002 OCOCOC 

000003 OCCOOO 
000020 000000 


APNLW2 
APNLW3 
APNLV^A 


XW,ABUFF+11.,2 

XW,A8UFF+12.20,3 

XW,ABUFF+15.,16 




VB000787 
VB000788 
VB000789 
















» . 







'Nfll 



c 



TIME CLOCK 0CC5^C'<il PUNIC 


22$CUf^P 




CARD 


ID veooo7gi dist. of 3/ci 3/01 


PAGE NUMBER 


359 


. •':' 


LINE LOCATICN 


BINARY OUTPUT 




NAME 


STATEMENT 


LOCATION 


236154 




1« 


236154.00 


236064.00+ 


COO 


000004 


ocoooc 


APNLW5 


XW,A8UFF+16.,4 






VB000791 


2* 


236155.00 


CCC0CC.10+ 










APT8 


VF,.8 






VB000792 


3» 


236155.40 


CCG00C.20+ 










APT16 


VF,.16 






VB000793 


4* 


236156.00 


CCC0CC.30+ 










APT24 


VF,.24 






VB000794 


5» 


236156.40 


CCC0CC.50+ 










APT 40 


VF, .40 






VB000795 


e* 


236157.00 


CCC00C.60+ 










APT48 


VF,.48 






VB000796 


1* 


236157.40 


000001.10+ 










A1PT8 


VF,1.8 






VB000797 


£• 


236160.00 


CC0001.20+ 










A1PT16 


VF,1.16 






VB000798 


c» 


236160.40 


CC0003.50+ 










A3PT40 


VF,3.40 






VB000799 


IC* 


236161.00 


236105.10+ 










AHCTP 


VF,APC0L1.08 






VB000800 


11* 


236161.40 


236126.10+ 










AMNTOP 


VF.AMNMBF.Oe 






VB000801 


12» 


236162.00 


GCC000.00+ 










ACHPND 


VF,C 






V8000802 


13» 


236163.00 « 


000001.00+ 


COO 


000000 


ocococ 


ABCEC 


XWtl. 






VB000803 


1^» 


236164.00 


000002.00+ 


000 


000000 


occcoc 




XMt2. 






VB000803 


ll» 


236165.00 


000004.00+ 


000 


000000 


ocococ 




XW,4. 






VB000803 


I6» 


236166.00 


000010.00+ 


coo 


cooooo 


occccc 




Xw,8. 






V8000803 


1?» 


236167.00 


CC0020.00+ 


coo 


000000 


ocococ 




XW« 16. 




' 


VB000803 


1£» 


236170.00 


000040.00+ 


ceo 


cooooo 


occccc 




XW,32. 






VB000803 


19* 


236171.00 


000100.00+ 


000 


000000 


cooooo 




XW»64. 






VB000803 


2C* 


236172.00 


000200.00+ 


000 


cooooo 


ocococ 




XW, 128. 






VB000803 


21» 


236173.00 


001000.00+ 


000 


000000 


occccc 




XW,512. 






VB000804 


22* 


236174. CC 










60 


AL48 


(2)CO(BU,6),11CCGO 






VB000805 


23* 


236174.06 










50 


AL40 


{2)DD(BU,6), ICIOOO 






VB000806 


24* 


236174.14 










30 


AL24 


00(eU,6),(8)30 






VB000807 


25« 


236174.22 


0044110220441102204411 


AKONg 


OOCBU,64,4},C16)C90909090909C909 






VB000808 


26* 


236175.22 * 


0004010020040100200401 


AKONl 


DD{BU,64,4)|{ 16)0101010101010101 






Ve000809 


27* 


236176.22 


00741 703607417C36074 17 


AKCNZ 


DD(BU,64),<16)0FCF0F0F0F0F0F0F 






VB000810 


2£* 


236177.40 


000000.30 


00 










CNOP 






VB000811 


29* 


236200.00 


236212.05 


A3 








AD8LHP 


D»lK),AFL10+8.($3) -REDUCE X 


BY 10 TO THE N POWER 


VB000812 


3C* 


236200.40 


000000.30 


00 










NOP 






VB000813 


31* 


236201.00 


236212.05 


E3 








ADLOVO 


D/(N),AFL10+8.($3) 






V8000814 


32* 


236201.40 


000000.30 


00 










NOP 






VB000815 


33« 


236202.00 


C004+ 5000000000000000 


+ 000 


AFLIO 


0D(N),l.El,l.E2,l.E4,l.e8il.E16,l. 


E32,l.e64 




VB000816 


34* 


236203.00 


C007+ 62C0C0O00OOOOO0O 


+ 000 










VB000816 


35* 


236204.00 


C016+ 4704000000000000 


+ 000 










VB000816 


36* 


236205.00 


CC33+ 5753604000000000 


+ 000 










VB000816 


37* 


236206.00 


C066+ 4341571157602000 


+ 000 










V8000816 


38* 


236207.00 


0153+ 4734265552025560 


+ 000 




* 






VB000816 


3S* 


236210.00 


0325+ 6047403722377717 


+000 










VB000816 


4C» 


236211.00 * 


0652+ 4473510762300351 


+ 000 




00(N),1.E128,1.E512,9.99999E615 






V8000817 


41* 


236212.00 


3246+ OOCCOCOOOOOOOOOO 


+ C00 










V8000817 


42* 


236213.00 


3246+ 7364320000000000 


+ 000 










VB000817 


42* 


236214.00 




2657142036440000 


A1E14 


DD(EU,48),1.E14 






V8000818 


44* 


236214.60 












AXHAGE 


( A»)DC{BU»tXXXXXXXX» 






VB000819 


45* 
















CNOP, 






VB000820 


4£* 


236216.00 












APLC 


(A8)DD(BU),- 8 






VB000821 


47* 


236217.00 












APXW 


(A8)DC(EU), .8 






VB000822 


4£* 


236220.00 












ABLNK 


(A8)CC(BU), 8 






V8000823 


49* 


236221.00 












APFL 


(A85DD(EU), . 8 






VB000824 


5C« 


236222.00 












ALLCN 


{A8)DD(8U),ALL CONTAINS 






VB000825 


51* 


236223.30 












ALZC 


{A«}DD(8U),LZC* 






VB000826 


55* 


236223.60 












AAGC 


( A*)DC{BU),AOC* 






VB000827 


52* 


236224.10 












AIND 


(A*)DD{BU), IND* 






VB000828 


54* 


236224.40 


000000.30 


00 










CNOP, 






VB000829 


55* 


236225.00 * 












Af*CMDE 


{A*)0D{BU,8),I0, NOT AUTO-STACKING 


MODE * 




VB000830 


56* 


236231.00 

/ 












ATR16 


(A*)DC1BU»,TR-16* 






VB000831 



'Kai 



TIME CLOCK CCC54C41 PUNID 


22$DUKP 


CARD 


ID VB000832 DIST. OF 3/01 3/01 PAGE NUMBER 360 




LINE LOCATIGN 


BINARY OUTPUT 




NAME 


STATEMENT LOCATION 236231 




1» 


236231.50 










AKASK 


{A«)DD(BU),HASK* 


VB000832 


2* 


236232.10 








012 


AHXTB 


{ 83 CD{ BU, 8), 12, 1,2, 3t 4, 5, 6, 7, 10, 11, 61,62, 63,64, 65, 66 


V BO 008 33 


2» 


236232.20 








001 






VB000833 


I « 


236232.30 








002 






VB000833 


5» 


236232.40 








003 






V8000833 


t* 


236232.50 








004 






V8000833 


1* 


236232.60 








005 






VB000833 


6« 


236232.70 








006 






V8000833 


?« 


236233.00 








007 




\ 


VB000833 


IC* 


236233.10 








010 






VB000833 


11* 


236233.20 








Oil 






VB000833 


12« 


236233.30 








061 






VB000833 


13* 


236233.40 








062 






VB00Q833 


14» 


236233.50 








063 






VB000833 


15* 


236233.60 








064 






VB000833 


16* 


236233.70 








065 






VB000833 


17* 


236234.00 








066 






VB000833 


ie» 


236234.10 


« 








ATRM8 


(A»)DD(8U),T SWAP Tl SWAPI TB SWAP8 T8I SWAPBI* 


VB000834 


IS* 


236242.10 










AMIST8 


(A*)D01BU),R RCZ EX EXICZ • 


VB000835 


2C« 


236244.50 










ABRBT8 


{A*)DD(BU),BZ8 88 BZBZBBZ BZBNBBN B2BIBBI • 


V8000836 


21* 


236250.50 










ABRT8L 


I A*I0CC8U),BE BO 8 BR BEW NOP* 


VB000837 


22* 


236253.40 




000000.30 


00 






CNOP 


VB000838 


23* 


236254.00 


* 








ACRNCX 


{A»)DD(BU),LX LV LC LR KV V+ V+C V+CRSX SV SC * 


VB000839 


2^* 


236261.40 












{ A»)ODIBU),SR KC LVE SVA RNX » 


VB000840 


25* 














CNOP 


V8000841 


26« 


236264.00 


• 








ANXBR 


{A*)DD<aU),CB C8Z CBR C8RZ C6H CBZH CBRH CBRZHC8+ * 


VB000842 


27* 


236271.50 












CA*»0D(BU»,C8Z+ CBR* CBRZ+CB- CBZ- CBR- CBRZ-* 


VB000843 


2€* 














CNOP 


V8000844 


29* 


236276. CO 


« 








AINDCR 


{A»)D0{8U),MK IK IJ EK TS XPtSEKJ UNRJCBJ EPGKUK EE * 


VB000845 


3C* 


236304.00 












{A*)00(BU),EOP CS OP AD USA EXE CS DF IF LC PF • 


VB000846 


31* 


236312.00 












(A*)DD{BU),ZD * 


VB000847 


32* 


236312.40 


• 










( A»)DC{BU),IR LS PSH XP#PXPO XPH XPL XPU Z« RU TF UF » 


VB000848 


33* 


236320.40 












(A*)DD(8U),VF » 


Vfi000849 


34* 


236321.00 












{A»)DD{BU),XF BTR DTR PGO PGl PG2 PG3 PG4 PG5 PG6 XCZ * 


VB000850 


35* 


236326.40 


« 










{ A*)00(BU),XVLZXV2 XVGZXL XE XH MOP RLZ RZ RGZ RN • 


VB000851 


3€* 


236334.00 












( A*)DD{BU),AL AE AH NN * 


VB000852 


37* 














CNOP 


VB000853 


38* 


236336.00 










AFLTBL 


{AUDC(8U),+ -L 1M+ -ST IK IKR I* 1/ K 


VB000854 


3S» 


236343.00 


• 










(A< )DD(BU),+KG -LWF IM+MG-SRD IKMG 1KMGR1*+ 9R/ 11 


VB000855 


4C» 


236350. GO 












( A( )DD{BU),D+ -CL ILFT ISLO 1F+ -E+ -D* ID/ 1{ 


VB000856 


Al* 


236355.00 


« 










(A( )DD(8U),D+MG-DLV«F1 SRT 5SHF lE + I 2STM 1( 


VB000857 


42* 


236361.40 




0GCC00.30 


00 






CNOP 


VB000858 


43* 


236362.00 










AGPTBL 


(A*)DC{BU),+ ILCV 7L 3 M+ -LFT 3* 


VB000859 


44* 


236365.60 












CA«)DO{BU),ST 2C gK 3KE 3KR 3 « 


VB000860 


45* 


236371.40 


♦ 










(A()OD(BU),* 3CV 6/ 3CM Q+HG ILTRC7( 


V8000861 


46* 


236375.20 












{A»)DCi8U),LV^F 3 N+f'G-M+l -SRD 2CT 9* 


VB000862 


47* 


236401.00 






.*■ 






(AC )DC{BU),KF 3KFE 3KFR 3 *+ TDCV 6LTRS3{ 


V8000863 


48* 


236405.40 




000000.30 


CO 






CNOP 


VB000864 


4S* 


236406.00 


* 








AI^^NTB 


{A*)DD(8U),C+I LVI LCI LRI KVI V+I V+IC V+ICRC-I LVNI * 


VB000865 


5C* 


236414.20 












(A«}DD{eU),KCI LVS KVNI V- I V-IC V-ICR* 


VB000866 


51* 


236420.00 










ASIC 


(A*)DC(BU),SIC» 


VB000a67 


52* 


236420. 3C 










AERROR 


{A»)DC(BU), ERROR* 


V8000868 


53* 


236421.00 


« 








AFLGTB 


{A*)DD{BU), V U UVT T VTU TLV* 


VR000869 


54* 


236424.00 




CCC0CC.00+ COO 000011 000000 


AFXWl 


XW,C,9 


VB000870 


55* 


236425.00 




CCCOOC.OO+ 






ACMPBG 


VF,C 


VB000871 



'Nai 



1IME CLOCK 00054041 



PUMD 22$CUPP 



CARD ID WAOOOOOl 



DIST. OF 3/Cl 



3/01 



PAGE NUMBER 361 



z 
z 

' { 

s 

9 

^ ( 
9 

6 

0, (■ 

11 

z\ 
e. ( 

t^i 

SI 
91 C 



LINE LOCATICN^ BINARY CUTPUT NAME STATEMENT LOCATION 



1« * 

2* 236425.31 
3» 236435.65 

4 « « 



PUNFUL 

(CC«)D0CBUi,12),B 

(CC«)DDi8U,,l2}, 

PUNCRG 



HEDt REPf 



22SCCMD, LOAD,, 
22SC0MD* 



WAOOOOOl 
WA000002 
WA000003 
WA000004 



PUNIC, 22SC0N0 WA000005 



1* 234424.00 

ic* 



RESEQ 
SLC,Y MP 



BUF 



»»»«»,IAeLE CF SYSTEM COMMANDS***** 



WA000006 
WA000007 
WA000008 
WA000009 
WAOOOOIO 



.11? - ■ WAOOOOll' 



12* 
12* 
14* 
15* 
16* 



234424.00 
234424.60 
234425.40 
234426.20 



J LIST 



A*)0C(BU,48,6),OUTPyT • -CHANGE SPOOL OUTPUT TAPE 

A»)0D(6U,48,6),E0F • -END OF FILE, NEXT JOB WHEN CS 

A»)DC(BU,48,6J,E0J « -END OF JOB 

A»)0D<BU,48,6),REV«IND » -TERMINATE WRITE TAPE 



WA000012 
WA000013 
WA000014 
WA000015 
WA000016 



17* 234427.00 



A*)0D(BU,48,6),REJECT » -REJECT JCB IN JCl PHASE WA000017 



ie» 

IS* 

2C» 
21* 
22* 



234427.60 
234430.40 
234431.20 
234432.00 
234432.60 



A»)DD{BU,48,6),I0CHANGE* -I/C CONFIGURATION CHANGE 
A*)0DCBU,48,6r,6yPASS • -NEXT JOB NOT OVERLAPPED 
A*}D0(BU, 48, 631, ONLINE * -RESUME ON LINE OVERLAPPED MODE 
A*)0D(8U, 48, 6J, OFFLINE * -RESUME OFF LINE OVERLAPPED MODE 
A*)0D(BU,48,6),CL0CK ♦ -TIME CONSTANT COMMAND 



WA000018 
WA000019 
WA000020 
WA000021 

WA000022 



22* 234433.40 



A*)DD(eU,48,6),ABE0J » " WA000023' 



24* 234434.20 

25* 

26* 

21* 

26* 234435.00 



234671.10 CO 



A»)0D(BU,48,6),CCMMfcNT * 
♦♦•••TABLE OF BRANCHES CORRESPONDING TO ABOVE COMMANDS***** 
J TABL BfJCUTP 



WA000024 
WA000025 
MA000026 
WA000027 
WA000028 



2S* 


234435.40 


234700.50 


CO 


B,J EOF 


WA000029 


30* 
31* 
3i* 
33* 
34* 


234436.00 
234436.40 
234437.00 » 
234437.40 
234440.00 


234722.10 
234766.10 
234774.50 
235023.10 
235373.50 


00 
00 
00 
00 

CO 


B,JEOJ 
Bfl REW CD 
B,Z REJCT 
B,Z 10 CH 
B,Z 3YPAS 


WA000030 
WA000031 
WA000032 
WA00CK)33 
WA000034 


35* 


234440.40 


235414.50 


00 


B,Z ONLIN 


WA000035 


36* 
37* 

3£* 
3S* 


234441.00 
234441.40 
234442.00 
234442.40 


235440.10 
235473.50 
234744.10 
235540.50 


CO 
00 
00 
00 


B,Z OFFLN 
8,Z TCC 
B,Z ABEND 
B,VVC0MJ 


WA000036 
WA000037 
WAOOOOSa 
WA000039 




■ _ -.■.-,--■■■.. , ' 











'NHI 



TIME CLOCK CCCS^C^l 
LINE L C A tTc~N 



PUNID 22SC0WD CARD ID WAOOCO-^l DIST. OF 3/CI 
8 1 nary" OUTPUT ^NA~ME STATEMENT 



3/01 



PAGE NUMBER 362 
LOCATION 



2* 



»«ft»»SYSTEM COMMAND ROUTINE»«««« 



235^4 3 
2 34444 
234444 
234445 
234445 
234446 
234446 



".00 



000020^00 
_2~32 721.34 
232720.74 
00CCC0.33 
232720. C6 
00CC04.C7 
234517.33 



80 

50 
30 
01 
10 
04 
42 



234530.00 AC 



J CCHO 



LC, 14, J 



><0*JSJLR___ 

_SIZE 

FRST 
MSK,O.C 
RCEfJ CODE 
CRCEf4.0 
R X 



-SAyE_INDEX REGJSTERS 

zGEJ MESSAGE LENGTH 

-GET AODR OF MESSAGE 
-SET MASK TO ZERO 
-GET SOURCE CODE 

-B R A NC H _ I F SOURCE CilDE _I_N _E_<IR OR 

-GET SYSTEM MCDE BITS 



WA000041 
WA000042 
HA000043 
WA000044 



_5« 

'I* 

1C» 



WA000045_ 
"WA000046 
WA000047 
WA000048 
WA000049 
WA000050 



.40 
.00 
.40 
.00 
.40 



LV, 14, J 
LVI,JX 
LX,Z SO 
KVI,Z S 
BXH,J£R 



11* 
12» 
12* 
14* 
15* 
1£* 



234447 
234450 
234450 
234451 
234451 
234452 



• cc_ 

.00 
.40 
.00 
.40 

.00 



_2_i_5_cci._ig 

COCClO.lC 
000000.14 
C0C240.33 
234455. 10 
C0C440.33 



80__0g2p67_.2C_ 50_ 

30 

04 

05 

00 

05 



L{_BlJ,2) 
LV,Z SM 
BR,C.O( 
V+I,JXM 
B,Z TST 
V+I,JXM 



iSYSMGpjriflL 
CD£,$L 
Z SMOOE) 
SK,JOV+JON 

SR 
SKjjpV_+_JjD_F 



wAogppsi 

"WA000052 
WA000053 
WA000054 
WA000054 
WA000055 



1£» 
19* 
2C» 
21» 
22* 



2344_52 
234453 
234453 
234454 
234454 
234455 



•3_C„ 

.00 

.40 

.00 

.40 

.00 



_2„3„4^55._iC 
000300.33 
234455,10 
000500.33 
234507.32 
777777.14 



CO 
05 
00 
05 
CO 
03 



B».Z_TSI 
V+I,JX 
B,Z TST 
V+I,JX 
BZXE,Z 
_8R,-1.0 



SR 

NSK,JNV+JCN 

SR 
MSK,JNV+JGF 
MCDER 
(Z SORCE) 



wAggpp55_ 

WA000056 
WA000056 
WA000057 
WAD00058 
WA000059 



-BRANCH TO ERR IF IPL NOT SOURCE 



Z TST SR 



22* 
24 » 
25» 
26* 
27 ♦ 

2e« 



234455 
234456 
234456 
234457 
234457 
234460 



•i»P 
.00 
.40 
.00 
.40 
.CC 



_C0iLC_lA-_33 
234471. 10 
000024.33 
234471. 10 
002002.33 
234472.50 



05 
CO 
05 
CO 
05 
GO 



_vtLLJX_ 

B,Z 8K 
V+I,J X 
B,Z BK 
V+I,JX 

B,Z IGS 



^SK,JJ1 + J_SR_ 
BCD 

MSK,JJ4+JSR 
BCD 
MSK,JCN+JOP 



WApppp6p_ 

WA000060 

WA000061 

WA000061 

WA000062 

WA000062 



2S» 
3C» 
3i« 
3i» 
33* 
34* 



234460 
234461 
234461 
234462 
234463 
234463 



.00 
.40 
.00 
.00 
.40 



_C0_1_C_C_0_._3_3 
234477.10 
234527.40 
234560.00 
234631.36 
234575.35 



05 
00 
60 
80 
CO 
50 



_v-!lL»_Jx_^sk,zipl 

B,Z BCD 
L{U),Z 
KF(BU,4 
BZAE.Z 
_S_C._1_4»_4 



WA000063 

WA000063' 

WA000064 

WA00D065 

WA000066 

WA000067 



060650.23 10 



Z CM CRD 



Z LCK UP 



MAIN 1 

8,6),JFLDfi,-48 
ER EXl 
FLD C 



_35.» 
3fc» 
37» 
3B* 
3<5» 
4C» 



234464. 
234464, 
234465, 
234465- 
234466, 
234466, 



QP 

40 
00 
40 
00 
40 



234 
234 

234 
234 

COC 



C_C_2_._3_5 
631.32 
574.02 
424.05 
561.40 
COO. 60 



0_A 
42 
10 
01 
60 
82 



ACI_f_l_^f_ 
BXL,Z E 
LX, JXl, 
LVI,JX2 
L(U),J 
KF(V+I ) 



2.p_ 
R EX 
J JX 
f JLI 
FLDB 
(BU, 



WAPPPP68 
WA000069 
WA00G070 
WA00007I 
WA000072 
WA000073 



160650.23 10 



Z LOCK 4 



1 
1 
ST 

+ 1.0 

48,6), .48{JX2) ,80 



-NG COMMAND FIELDS 



-CALL OP FIELD 



Alt 
42 » 

42* 
44* 
45* 
46* 



234467. 

234470, 

234470, 

234471, 

234472 

234472. 



00 
40 
00 
CO 
40 



_2_34 
234" 
234 
000 
234 
234 



^_3_5_-_36 
466.42 
631.10 
000.00 
463.50 
474.75 



Ql3 
C8 
00 
8E 
00 
50 
01 
00 



01 
30 
00 



BAE^JT 
CBH, JXl 
8,Z ER 
T,$14,0 
B,Z LOK 
SC, 14, Z 



^BL( 
,Z L 
EXl 
.0{$ 

UP 

IQS 



JXIJ 

COK 4 

14), J FLDB 

CT 



WA000074 

WA0000 75' 

WA000076 

WA000077 

WA000078 

WA000079 



234560.34 20 



Z BK BCD 
Z IQS 



-MGVE BROKEN FIELDS TO BUFFER 



48* 
45* 
5C» 
51* 
52* 



234473 
234473 
234474 
234474 
234475 
234475 
234476 
234476 



,40 
,00 
,40 
.00 

■ oc_ 

,40 



___2_3_4 

230 

21700 

CCCCC 

23455 

___234 

___234 

234 



^_7A:^37 

506. C4 
C.00 + 
C 

0.00 + 
550.35 



LVI|.15, 

BD,SICS 
VF,P MC 
CF,C.O 
VF, JCBU 
LVI,14, 



A6 
P 8F 



p 

+ 3.0 



WAOpOOSO 
WAOOOOSl 
WA000082 
WA000083 
WA000084 
WA000085 
WA000p86 
'WA000087 



Z ICS CT 



F 

JCBUF 
BRKAp 
9 



52* 

54* 



503.35 
501.40 



SV?_l^fZ 
B£,Z8CD 



*Kai 



C 



TIME CLOCK OCCSACil 



PtNID 2ZSCDHD 



CARC IC MA0OQ089 



CIST. OF 3/Cl 



3/01 



PAGE NUMBER 363 



LINE 



LOCATICN 



BINARY OUTPUT 



NAME 



STATEMENT 



LOCATION 



234477 



1* 234477.00 
2* 234477.40 
H» 234500.00 
<• 234500.40 



000120.35 OA 

234501.33 40 

000120.35 02 

232721-35 50 



Z BCD KCI,14te0.0 
BZXH,$+1.32 
LCI, 14, 80.0 
SC,14,J SIZE 



-BCD FORMAT 



WA000089 
WA000090 
WA000091 
WA000092 



:*_234501.00 234503.35 30 SV,14,Z BRKAO 



WA000093 



t* 234501.40 

I* 234502.00 

£« 234502.40 

S* 234503.00 

1C» 234503.40 



234503.75 50 
234503.37 01 
230672.04 CO 

CCC0CG.OO+ 

CCCOOC 



Z BCD9 SC, 14, J 8RK C 
LVI,15,$+1.0 
BD,SBRK8 

Z BRK AD VF,C 

J BRK C CF,C 



■TC BREAK SETUP 



WA000094 
WA000095 
WA000096 
WA000097 

wAoooogs 



11» 234504.00 



234560.00+ 



VF,J FLCB 



WA000099 



12* 234504.40 

13« 234505.00 

14* 234505.40 

15* 234506.00 

16* 234506.40 



CCOOOC 

230726.04 00 
234506. GO CO 
234504.74 50 
234461.50 00 



CF,C 

BD.CBRKe 

BE, $+.32 

LC, 14, JBRKC+1.0 

B,Z CMCRD 



WAOOOIOO 
WAOOOlOi 
WA000102 
WA000103 
WA000104 



17* 234507.00 



234510.30 10 Z MODER LX,12,Z £R EX3 



WA000105 



ie» 

19* 
2C» 
21* 
22* 



234507. 4C 

234510.00 
234512.10 
234517.00 



234575. 5C 00 



234520.30 10 



8,JHARC 

CNOP 
Z ER EX3 {IQS»)DC{BU),IPL NODE 

{ IQS»)DD(BUI, COMMAKO 
J ERRX LX, 12, Z ER EX4 



ERROR IN* 

REQUEST. SYSTEM CONTAMINATION.* 



WA000106 
WA000107 
WA000108 
WA000109 
WAOOOllO 



23* 234517.40 
~2A* 

25* 234520.00 
26* 234524.20 
21* 
2f» 



234575.50 00 



B^JHARD 

CNOP 
Z ER EX4 {IQS*)DC{BU}, SOURCE CODE FOR COMMAND 
{ IQS»)CC(BU), SYSTEM CONTAMINATION.* 
»»*««STORAGE AND PARAMETERS***** 

CNOP 



WAOOOlll 
"WA000112' 
WA000113 
WA000114 
WA000115 
WA000116 



IN ERROR.* 



2S» 234527^00 

3C* 

31* 234530, 

32* 234550. 

33**234560, 

34* 234574 



Z MAIN 1 ( A»)DC(BU,48,6),C0MC 



WA000117 

WAOOOllS' 

HA000119 

WA000120 

WA000121 

WA000122 



t.OO 
!.00 

I. 00 
.00 



000020.00 J STIR 

000007.40 JC BUF 

000014.00 J FLO B 

000000.00+ 000 000014 OCCOOO J JXl 



CNOP 

DR{BU,64),J 16) 
DR{BU,6),(80) 
DRZ,(l2l 

XW,C.0,12 



-STORAGE FOR INDEX REGISTERS 

-BROKEN OUT FIELD BUFFER 

~A^.MBE R OF COMMANDS 

-COUNT OF BROKEN CUT FIELDS 



_3-_* .2 34575. 00 pCCO_0_C 

36* 00CC21.00+ +OOCOOOCO 
37* 000022.00+ +OOCOOCCC 
38* 000023.00+ +OOGOOOCO 
39* 000024.00+ +00000000 
4C* 000035.00+ +00000000 



J FLDC 

J XI 
J X2 
I SORCE 
Z SMCDE 
J XMSK 



CF,0 

SYN,$X1 

SYN,$X2 

SYN,$3 

SYN,$X4 

SYN,$X13 



WA00qi23 

WA000124" 

WA000125 

WA000126 

HA000127 

WA000128 



BU,10C,10 
BU,lCC,i0 
BU,IC0,10 
BU,1C0,10 
BU,100,1C 



-MODE MASK INDEX 



41* 
'42* 
42* 
44* 
45* 
46* 



wAqooi2g 

'WA000130~ 
WA000131 
WA000132 
WA000133 
WA000134 



•♦•♦•DEFINITION OF MODE MASK BITS***** 



000002, 
000004, 
OOOCIC. 



00 + 
00 + 
00 + 



+00C000C0 
+O00OO0CC 
+OOCOOCCC 



NULL 
NULL 
NULL 



J CP 
J SR 
J Jl 



SYN,2.0 
SYN,4.0 

SYN,8.0 



-OPERATOR IS SOURCE 
-SPOOL READER 
-JOB CONTROL I 



47* 

"4e» 

49* 
5C» 
51* 

53* 



OCCC20. 
000040^ 
000100. 
0002CG. 
000400, 

opicpp^ 

002000. 



00 + 
00 + 
00 + 
00 + 
00 + 
00* 
00 + 



+oc_cooqcc 
+ooco'ooco' 

+00COO0CC 
+OCCOOCCO 
+OOCOOOCO 
+00000000 
+00CC0CCC' 



NULL 
NULL 
NULL 

NULL 
NULL 

NULL 



J _J_4 
J CV 
J NV 
J ON 
J CF 

J CN 



SYN,16.C 
"SYN,32.C 
SYN,64.C 
SYN, 128.0 
SYN, 256.0 
SYN, 512.0 
SYN, 1024.0" 



IV 



:^jq8 CONTROL 

-OVER-LAPPED 
-NOT OWER-LAPPEO 
-ON LINE 
-OFF-LINE 

-IPL_IS JHE SOURCE 

■CONSOLE 



WAoqqi35 

WA000136" 

WA000137 

WA000138 

WA000139 

WA000140 

WA000141 



»Kai 



IIME CLOCK CC054C41 



PUNID 22SC0MD 



CARD ID WA000143 



OIST. CF 3/Cl 



3/01 



PAGE NUMBER 364 



LINE 



LCCATIOK 



BINARY CUTPUT 



NA^'E 



STATEMENT 



LOCATION 



3» 
2* 

2« 

^» 234575.40 



CCCC1I.33 IC 



*»*««COMHAND HARD COPY MAKER»«»«* 
J HARD SX,JXMSK,$R -SET MODE NASK 



WA000143 
WA000144 
WA000145 
WA000146 



_^?_2 34576_.C_C 00CCG4.CC 80 422027. C5 70 CTI COlO ( BU , 18 ) , JSR , 46 WA000147 



e* 
1* 
£* 

IC* 



234577. CO 
234577,40 
234600.40 
234601.00 
234601.40 



234620.74 
0C2CC0.C0 
234620.34 
232720.76 
232721. CO 



C2 
80 
C2 
30 

80 



422027.05 70 



022025.60 50 



8RZ,Z SR HRC 
CTIC010(BUtl8},JCN,46 
BRZfJ HAXT 
LV,15,J FRST 
L(_BLj.l8i,J_SIZEj43 



-CONSOLE - NO HARD COPY 
-IPL IS THE SOURCE 

-DIVIDE NUH OF CHARS. BY 8 



WA000148 
WAQ00149 
WA000150 
WA000151 
WA000152 



.ll?_2346p2_.4_0 ^C0_GC11._36 50 _LCtl5t$R -Ny^'BER_gF WORDS _I_N_T_0_ C_F_ 



WA000153 



12* 
12» 
1<* 
15* 
16* 



234603.00 
234604.00 
234604.40 
234605.00 
234606. CC 



OOOCOO.CC 
234605.34 
C0CC01.37 
000000.00 
C0CC37.37 



80 
C2 
00 
8F 
50 



403025.53 70 



234550.36 20 



C ri CIO UBU, 3), 0.0,43 
BRZ,Z TR IPL 
C-H,15,1. 
Z TR IPL T,$15,0.0<$I5I,JC BUF 
SC, 15, $15 



-TEST REMAINDER 



WA000154 
WA000155 
WA000156 
WA000157 
WA000158 



.iI?_2 346C_6_.4_C ^2_3A627. 42 ,60 ___LWF tyiiZ_f^S IPL 



WA000159 



18* 
IS* 

2C« 
21* 
22* 



234607.00 
234607.40 
234610.00 
234610.40 
234611.00 



234550.40 
234630.42 
234551.40 
232721.36 

CGCC20.37 



EF 
60 
EF 
30 

05 



ST(U),JC BUFI$15) 
LWF{U),Z MS IPL+1.0 
ST(U),JCBUF+1.0I$15J 
LV,15,J SIZE 
V+I,15,i6.0 



-GET NUMBER OF CHARACTERS 



WA000160 
WA000161 
WA000162 
WA000163 
WA000164 



23* 
24* 
25* 
26* 
27* 
26* 



234611.40 
234612.00 
234612. 4C 
234613. CO 
234613.40 



_C_0_CiC_0_2_._37 00 ^C_+I_j_15i2 

234614.77 30" Z HARD C SV,I5,J HAR5 

234617.77 50 SC,15,J HAR 6 

234614.37 01 LVI,15,$+1.0 

230567,44 CO 8D,SA6ieS 



wAoggi65 

WA000166 
WA000167 
WA000168 
WA000169 
WA000170 



-CONVERT TO ICS FROM A6 



234614.CC__ 234550.00+ VF,JC BUF 



2i» 
3C* 
31* 
32* 
33* 
3^* 



234614^40 
234615.00 
234615.40 
234616.00 
234616.40 
234617.00 



C COO 00 

234560.00+ 
234616.00 
000040.10 
000043.40 
234560.00+ 



AJiM_5__CF^0.0 

VF,J FLCB 
BE, $+,32 

J HAR 7 BjDMCP 
,DCCMM 
VF,J FLCB 



-NUMBER OF CHARACTERS 



WAOOOIJI 
WA000172 
WA000173 
WA000174 
WA000175 
WA000176 



00 
CC 
80 



-BUFFER FOR IQS CONVERSION 



35* 234617.40 
36* 234620. CO 
37* 234620.40 
36* 234621.00 
39* 234621.40 



CCCOCG 

234634.50 GO 

234575.34 50 

234550.35 01 
234560.37 CI 



A _^LAR A _ JQ_F ilC .^0 

J HAXT B,Z EXIT 
Z SR HRD LC,14,J FLDC 
LVI,14,JC BUF 
LVI,15,J FLCB 



-NUM^BER 

-EXIT 

-NUMBER 



OF WORDS 



wAqqgi77 

"WA000178 
WA000179 
WA000180 
WA000181 
WA000182 



20 
19 
18 
17 
)6 
15 
14 
13 
12 
11 
10 
9 
S 
7 
t 
5 
4 
3 
2 
1 



OF FIELDS OR WORDS 



.^Cl_234622.C0_» ACLCClOA«_Gq_aF:__1606pO_,2C 50 Z PACK F L ( V+ I ) { BU ,48 , 6) , 1 .0 ( $15 ) 



'5»l*_234623^PP 
42* 234624.00 
43* 234624.40 
4^» 234625.40 
45* 234626.00 
46* 234626.40 



_o_OGp_o_o_-_6q 

234622.30 
234575.00 
234575.36 
000011.36 



8E 
40 
80 
50 
30 



260600. 2C DO 



_S 1 ly 1 1 Q ) 1 B y 1 ^ a » 6 J J P . 4 8 J $ 1 4 ) 
BZXCZ.Z PACK F 
L{BU,18),J FLDC, 49 
LC,15,J FLDC 
LV,15,$R 
B»_Z HARC_C__ 



WA0ppl83 

WA000184' 

WA000185 

WA00Q186 

WA000187 

WA000188 



022030.60 50 



-FIELD COUNT • 8 EQUALS 
-NUMBER OF CHARACTERS 



234612.10 00 



47* 

48**234627.00 



CNOP 

{ A»)DD(fiU,96,6), 



WAPPP189 
WA000190~ 



Z MS IPL 



IPL IS SOURCE* 



'Kai 



TIME CLOCK 0C054C4L PUNID 


22SC0ND CARD 


ID l«A000192 DIST. OF 3/Cl 3/01 PAGE NUMBER 365 


■ 


LINE LOCATION 


BINARY OUTPUT 


NAHE 


STATEMENT LOCATION 




1* 

2* 
2* 
A* 


234630. 4C 


C00C00.30 


CO 


- 


«»««»COMMANO EXIT RGLTINE***** 

CNOP 


WA000192 
WA000193 
WA000194 

WA000195 


5* 


234631. CC 


234641.30 


10 


Z ER EXl 


LX,12,ZEX1 


WA000196 


e* 

7* 
€• 

s» 

1C» 


234631.40 
234632.00 
234632.40 
234633.00 
234633.40 


234575. 5C 
234642.30 
234575. 5C 
234656.42 
234651.30 


CO 
10 
CO 
6C 
10 


Z ER EX2 
Z EXITX 


B,J HARU 

LX,12,ZEX2 

B,J HARD 

LWF(U),Z L1ST($12) 

LX,I2,Z LISTC 


WA000197 
WA000198 

wAoooigg 

WA000200 
WA000201 


11* 


234634.00 


234652.40 


EO 




ST(U),Z LISTX 


WA000202 


12* 
13* 
l4» 
15* 
It* 


234634.40 
234635.00 
234635.40 
234636.00 » 


234636.31 
00CC40.G0 
C00C43.40 
OOOCOl.GO 


10 
00 
80 


Z EXIT 
J £RZ 


SX,12,J ERZ 
BE,D MCP 
,0 COMM 
DRZ{BU,64),1 


WA000203 
HA000204 
WA000205 
WA000206 
WA000207 


11* 








- 


ENTRY FOR NORMAL RETURN 


WA000208 


1€* 
IS* 
2C* 
21* 
22* 


234637.00+ 
234637.00 
234640. CC 
234640.40 


+OCCCOCCO 
234530. CC 
000040. CO 
000041. CO 


NULL 
80 000020. CC AC 
CO 
80 


JNCPX 
J FINX 


SYN,$ 

TI,16,JSTLR,*X0 -RESTORE INDEX REGISTERS 

BE,C MCP 

,D RET 

CNOP 


WA000209 
WA000210 
WA000211 
WA0002i2 
WA000213 


23* 


234641. OC 


234643.00+ 




Z EXl 


VF,Z EX 11 


WA000214 


2^» 
25* 
26* 
27* 
2€» 


234641. 4C 

234642.00 
234642.40 


CCC0C2 

234645.00+ 
CCC0C4 




Z EX2 


CF,2.0 

CNOP 

VF,Z EX 21 

CF,4.0 

CNOP 


WA000215 
WA000216 
WA000217 
WA000218 
WA000219 


29* 


234643. CC 






Z EXll 


( IGS«)DD(BU), ILLEGAL COMMAND * 


WA000220 


3C* 
31* 
32* 
33* 

34* 


234645.00 

234651. CC 
234651.40 


234652.00+ 
CCC004 




Z EX21 
Z LISTC 


( IQS*)DC(BU), LEGAL COMMAND, ILLEGAL SITUATION* 

CNOP 

VF,Z LISTX 

CF,4.0 

CNOP 


WA000221 
WA000222 
WA000223 
' WA000224 
WA000225 


35* 


234652. CC • 






Z LISTX 


( IGS*)DC(BU), COMMAND ACCEPTED. • 


WA000226 


36* 
37* 
3£* 
3S* 
4C« 


234656.00 
234657.00 
234660.00 
234661. CC 






Z LIST 


CNOP 

{IQS*)DC(BU), OUTPUT* 
{ IQS*)DCJ8U}, EOF* 
< IQS*3D0(BU)f ECJ* 
( IQS»)D0(6U), REWIND* 


WA000227 
WA000228 
WA000229 
WA000230 
WA000231 


41* 


234662.00 








(IQS*)DC{BU), REJECT* 


WA000232 


42* 
43* 
44* 
45* 
46» 


234663.00 
234664. OC 
234665. OC * 
234666.00 
234667. CC 






- - ' 


( IQS»)DC(8U),I0CFANGE* 
{IQS*)DD(BUJ, BYPASS* 
( IQS»)CC{BU), ONLINE* 
(IQS*)DC(BU), OFFLINE* 
( IQS*)DC(eU}, ABEGJ* 


WA000233 
WA000234 
WA000235 
WA000236 
WA000237 


47* 


23467C-CC 








(IGS*)DD(BU), COMMENT* 


WA000238 


' _ , ^ • . ■ ■ ■ 







'Nfll 



TIME CLOCK COCSAC^l 



PUNID 22SC0ND 



CARD ID WA000240 



DIST. OF 3/Cl 



3/01 



PAGE NUMBER 366 



LINE 



LOCATION 



BINARY CUTPUT 



NAME 



STATEMENT 



LOCATION 



1* 
2* 

3* 
A* 



234671. CC 



C0CC11.33 10 



»»»##OUTPUT COMMAND SU8-PACKAGe»**»« 
J CUTP SX,JXMSK,$R 



HA000240 
WA000241 
WA000242 
WA000243 



i* 
1* 

1C« 



2 346 71. 4 C 
234672. 4C 
234673.00 
234674.00 
234674.40 
234675.40 



000024. 
234676, 
00CC02, 
234676. 
00GC54. 
234637. 



CO 80 
74 C2" 
00 80 
74 C2 
CO 80 
34 C2 



422027.05 70 
422027.05 70 
422027.05 70 



CIIC0ig(BU,18_)jAS_R+_4_J3_»A6 i_ 

BRZ,JXCTP -GC TO EXECUTE 

CTIC010(By,l8),JCP,46 
BRZ,JXOTP 

CTIC010{By,lB),JSR+JJl+JOV,46 
_BRZ,JF1NX 



WAPPP244 
KA000245 
WA000246 
WA000247 
WA000248 
WA000249 



11? 
12* 
12* 
14* 
15* 



234676.40 
234677.00 
234677.40 

234700.00 



_2_3^fc32. 

000040. 
000115, 
COCCOO. 
234633, 



io_co 

10 00 
CO 80 
31 01 
10 00 



Bf_ZER£X2__ 
B,D MCP 
,S CUT PT 
LVI,12,C.O 
B,Z EXITX 



WA000251 
WA000252 
WA000253 
WA000254 
WA000255 



J XOTP 



ie» 

IS* 
2C* 
21* 
22* 



»»«««ECF COMMAND SUB-PACKAGE***** 



yAPpp256 
WA000257 
WA000258 
WA000259 
WA000260 
WA000261 



234700 
234701 
234702 
234702 



.40 

.00 
.CO 
.40 



COCOll, 
000414. 
234720. 
00C124, 



33 10 
CO 80 

34 C2 

00 80 



422027.05 70 
422027.05 70 



J EOF SX,JXMSK,1R 

CTI0010(BU,18),JSR+JJ1+JOF,46 

BRZ,Z EGFl 
^CTIC01Cif3yil8),JSR + JJ4 + JNV,46 



23* 
2«» 
25* 
26* 
21* 
2£» 



234703 
234704 
234705 
234705 
234706 
234707 



• 40 
.00 
.00 
.40 
.40 
.00 



_2_3_4_7_2_1_' 
000254. 
234715. 
000064. 
234632. 
234637. 



34 
CO 
34 
CO 
34 
31 



C2 
80 
C2 
80 
CO 
01 



_BRZtZ_ECF2 

CTIC010{BU,18),JSR+JJ1+JON+JGV,46 
BRZ.Z ECF3 

CTIC010CBU,ia},JSR+JJ4+JOV,46 
BZRZ,Z ER EX2 
LVI ,12, JNCPX 



WAppp262 
WA000263 
WA000264 
WA000265 
WA000266 
WA000267 



422027. C5 70 
422027.05 70 



2i» 
3C* 
31* 
32* 

33* 

3A* 



23471C 
234710 
234711 
234711 
234712 



•5C 
.00 
.40 
.00 
.40 
.00 



_G0C_Q_4_0_' 
000120. 
231462. 
020707, 
CCOCOO. 
C0GC4O, 



1_Q_ 
40 
30 
30 
10 
10 



CO 
80 
CO 
00 
OC 
00 



Z ECFIG B,DMCP 
,SLCG4 
N0P,YBC 
NOP,YJC 
8,0. 0{$ 

J DC IT B,D MCP 



WA000268 
"WA000269" 
WA000270 
HA00027i 
WA000272 
WA000273 



BU 

CBU 

12) 



-HOLLERITH FIRST WORD ADDRESS 
-A8 FIRST WORD ADDRESS 



35* 
36* 
37* 
3£* 
39* 
4C* 



234712 
234713 
234713 
234714 
234714 
234715 



£^C 
• CO 
.40 
.00 
.40 
.00 



cc_o_i_ij_. 

COCCCl, 
234632. 
COOCOl. 
234633. 
234712, 



CO 
10 
31 
10 
31 



80 
80 
00 
01 
CO 
01 



,1.C 
8,Z ER 
LVI, 12, 
B,Z EXI 
LVI ,12, 



WA000274 
WA000275 
WA000276 
WA000277 
WA000278 
WA000279 



Z EOF 3 



EX2 

1.0 

TX 

J_DOII 

ICA 



42* 
43* 
44* 
45* 
46* 



234715 
234716 
234716 
234717 
234717 
234720 



'^0 

.00 
.40 
.00 
.40 
.00 



_2_3_C_7A5_. 

CCCC40, 
000121, 
OOOCCO, 
CCOCOO, 
234637. 



C4 
10 
40 
30 
10 
31 



30 
CO 
80 
02 
OC 
01 



_Z_ _ECJF J_9 _L V »_2lYC 

B,D MCP 
,S LOG 1 
NOP,0.0($2) 
B,0.0{$12) 

Z EOF 1 LVI,12,JNCP X 



WA00p28p 
"WA000281' 
WA000282 
WA000283 
WA000284 
WA000285 



41t 
46* 
4S* 



234720 
234721 
234721 



•40 
.00 
.40 



_2_3_4_115. 
234712, 
234707, 



5C 
31 
50 



CO 
01 
00 



B,_Z_EOF 
LVI, 12, 
B,Z EOF 



1? 

J DOIT 
10 



WA0pp286 

NA6o0287' 

WA000288 



Z EOF 2 



'Kai 



TIME CLOCK GC054C41 PUNIO 


22SCQK0 


CARD 


ID WA000290 CIST. OF 3/Cl 3/01 PAGE NUMBER 367 




LINE LGCATICN 


BINARY CUTPUT 




NAME 


STATEMENT LCCATICN 




1* 
2* 

3* 


234722. CC 


^ ■ 

00CC11.33 


10 






J EGJ 


»»»«»EGJ COMMAND SUB-PACKAGE***** 
SX,JXMSK,$R 


WA000290 
WA000291 
WA000292 
WA000293 


t* 


234722. ■^C 


C0CC02.C0 


80 


422027. C5 


7C 




CTIC01C{BU,18),JCP,46 


WA000294 


e* 
1* 
t* 

9* 
IC* 


234723. 4C 
234724. CC 
234725. CO 
234725.40 
234726.40 


234727.74 
000254. CC 
234727.74 
000064.00 
234637.34 


C2 
80 
C2 
80 
C2 


422027.05 
422027.05 


70 
7C 




BRZ, JECJX -GO TO E)$ECUTE 
CTI0010tBU,l8),JSR+JJl+JOV+JON,4fc 
BRZ, J EOJ X 

CTIC010(BU,18),JSR-»-JJ4+JOV,46 
BRZ, J NOPX 


WA000295 
WA000296 
WA000297 
WA000298 
WA000299 


11* 


234727. CC 


234632.10 


CO 








B,Z ER EX2 


WA000300 


12* 
13* 
14* 
15* 
16* 


234727. 4C « 

234730.40 

234731.40 

234732.40 

234733.00 


215CC1.22 
215001.10 
231133. CO 
224C52.CC 
224046.44 


80 
80 
80 
80 

CO 


234632.34 
234732.74 
234632.34 


00 
02 
02 


JECJX 
Z ECJX 


BZB,SJ8LSY,Z EREX2 
BBjSYSMCD.Z EOJX 
BB,YTSTR,Z EREX2 
SICZ SPL P9 
BD,Z SPL PR 


WA000301 
WA000302 
WA000303 
WA00G304 
WA000305 


11* 


234733.40 


234740. CO 


80 








,Z EOJ 99 


WA000306 


le* 

19* 
2C« 
21* 
22* 


234734. CC 
234734.40 
234735.00 
234735.40 
234736. CC 


G0CCC4.CC 
215571.00 
215570. C4 
000101. CO 
C0CC02.31 


80 
80 
00 
80 
01 








,4.0 

SICS PRIM R 

80, S PRIME 

,DECJ 

LVI,12,2.0 


WA000307 
WA000308 
WA000309 
WA000310 
WA000311 


23* 


234736.40 


231501.01 


80 


001000.36 


FO 




CM1111(BU,1),YE0JS 


WA000312 


24* 
25* 
26* 
27* 
2€» 


234737.40 
234740. CC ♦ 


234633. CO 


00 






z Ecjgg 


BE,Z EXIT X 

CNOP 

(A»)CC(BU),LEOJ REQUESTEU BY OPERATOR. * 


WA000313 
WA000314 
WA000315 
WA000316 
WA0003i7 


29* 












- 


««»« ABECJ COMMAND »••* 


WA000318 


3C« 
31* 
32* 

33* 
3^« 


234744.00 
234744.40 
234745.40 
234746. CC 


000011.33 
000C02.C0 
234751.74 

000254. CC 


10 
80 
C2 
80 


422027.05 
422027. C5 


70 
70 


Z ABEND 


SX,JXMSK,$R 
CTIC010{BU,la),JOP,46 
BRZ, ZAEOJX 
CTIC010{BU,18),JSR+JJ1+J0V+JCN,46 


WA000319 
WA000320 
WA00G321 
WA000322 
WA000323 


35* 


234747.00 


234751.74 


02 








BRZ, ZAEOJX 


WA000324 


36* 
37* 
38* 
39* 
4C* 


234747.40 
234750.40 
234751.00 
234751.40 
234752.40 


CCCC64.00 
234637.34 
234632.10 
215C01. 22 

215001.10 


80 
C2 

CO 
80 
80 


422027.05 

234632.34 
234754.74 


70 

00 
02 


ZAEOJX 


CTIC010JBU,18),JSR+JJ4+J0V,46 
BRZ,JNCPX 
B,Z EREX2 

BZB,SJBUSY,Z EREX2 
8B,SYSM0D,Z AEOJZ 


WA000325 
WA000326 
WA000327 
WA000328 
WA000329 


41* 


234753.40 


231133. CC 


80 


2 34632.34 


02 




8B,YTSTR,Z EREX2 


WA000330 


42* 
43* 

A4* 
45* 
46* 


234754.40 
234755.00 
234755.40 
234756.00 
234756.40 


224052. CO 
224046.44 
234761. CO 
C0CC05.CC 
215571. CO 


80 
00 
80 
80 
80 






ZAEOJZ 


SICZ SPLP9 
8D,Z SPLPR 
,Z ABJ99 
,5.0 
SICSPRIMR 


WA000331 
WA000331 
WA000332 
MA000333 
WA0G0334 


47* 


234757.00 * 


215570. C4 


00 








BCSPRIME 


WA000334 


4£* 
49* 
5C» 
51* 
52* 


234757.40 
234760. OC 
234760. 4C 

234761. OC 


C00104.C0 
000011.31 
234633. CO 


80 
01 
00 






Z ABJ99 


,DABECJ 

LVI,12,9,0 

8£,Z EXITX 

CNOP 

(A*)DD(BU),LABNORMAL EOJ REQUESTED BY OPERATOR. * 


WA000335 
WA000336 
WA000337 
WA000338 
WA000339 








. 















'Nai 



C 



TIME CLOCK CCCS^C^l 



PUNID 22SC0MD 



CARD ID WA000341 



OIST. OF 3/Cl 



3/01 



PAGE NUMBER 368 



LINE 



LOCATICN 



BINARY CUTPUT 



NAME 



STATEMENT 



LOCATION 



1» 
i* 

3 • 

A* 234766.00 



0GC0I0.33 10 



- ««««*«»«»«»REWIND COMMAND*********** 
Z REW CD SX,JXMSK,$L -INPUT SPOOL REWIND COMMAND 



WA000341 
WA000342 
WA000343 
WA000344 



5* 
£i 

7* 
€* 
S* 

1C» 



234766.40 
234767.40 
234770.00 
234771.00 
234771.40 
234772.00 



C_qC254. 
234772! 
000064. 
234637, 
234632. 
000040, 



0080 
34 C2' 
00 80 
34 C2 
10 CO 
10 CO 



422067.05 7 0_ 
422067.05 70 



CTIC010(BUjl8)jJSR+JJl + JCiV+JC 

BRZ,Z REW OK 

CTICOlOCBUi I8)tJSR+JJ4+J0Vf-18 

BRZ.J NOP X -NORMAL EXIT 

BtZ ER EX2 
AAEJi GK B,D MCP 



WAO 00345 
WA000346 
WA000347 
WA000348 
WA000349 
WA000350 



11? 
12* 
13* 
14* 
15* 



234772_._4_G_ 
234773.00 
234773.40 
234774.00 



C0CC02. 
C00C03. 
^34633. 



iC_80 
40 80 
31 01 
10 00 



_,_SKCM 

,2.32 • 
LVI,12,3.G 
B,Z EXIT X 



V^AC0p351 
WA000352 
WA000353 
WA000354 
WA000355 
WA000356 



»»»»»»*»«• »R EJECT COMMAND •***»**«»*« 



Ifi* 
19* 
2C» 
21* 
22* 



W A go 03 57 
WA000358 
WA000359 
WA000360 
WA000361 
WA000362 



234774.40 
234775.00 
234776.00 
234776.40 
234777.40 



000010. 
00C102. 
234727, 
000054, 
235GG2, 



33 10 
00 80 
74 C2 
CO 80 

34 C2 



422067.05 70 

422067.05 70 

"422067^C5~70" 



Z REJCT SX,JXMSK,$L 

CTI00l0{8U,ia),J0P+JNV,-18 
BRZ,J ECJX 

CTIC010(RU,18),JSR+JOV+JJ1,-18 
BRZ,Z REJ 1 



-REJECT COMMAND 
-BYPASS, OPER SOURCE 



GIVE EOJ 



23* 
24» 
25* 
26 » 
21* 
26* 



235C0C_.0C„ 

235001.00 

235001,40 

235002.00 

235003.00 

235003.40 



C_0_0_Ci6_4_. 
234637, 
234632, 
232716, 
00CC04, 
234633, 



0.0 

34 
IC 

40 
31 
10 



80 
C2 
CO 
80 
01 
00 



CTICOlOiBU, 18),JSR+J0V+JJ4,-18 T^CI_RELEV£NT 



WA00g363 
WA000364 
WA000365 
WA000366 
WA000367 
WA000368 



023100.32 BO 



BRZ,JNOPX 
B,Z ER EX2 
Z REJ 1 M-l{BU,iq,l),J RETA 
LV 1, 12,4.0 

B,ZEXITX 



-SET ERROR RETURN ADDRESS 



2i» 

3C« 
31« 

32* 

33* 

34* 



WAg0g369 
"WA000370" 
WA000371 
WA000372 
WA000373 
WA000374 



235004. 
235005. 
235006. 



00 
CO 

00 * 



cocooo 

201200 
235022 



.00 85 
.CO 80 
.12 10 



000040.20 50 
414000.06 70 



»»»«»ICCHANGE PACKAGE***** 

Z CONV C L(BU,64),0.0($5},64 '^ 
LFKBU, 12), (8)2012 
LX,5,Z XWCV 



35_« 
36* 
37* 
36* 
3S* 
4C* 



235006. 
235007. 
235010. 
235010. 
235011. 
235012. 



^0 
40 
CO 
40 
40 
00 



cc_c_cop 

235013 
235021 
777777 
235C06 
777777 



•_C6__85 
.76 C2 
.30 42 
.72 85 
.76 CO 
.72 85 



206003.23 10 



ZCG 1 



AF LV_t LC ) LBU , 6 w g . M $ 5J_,_6_ 
BAE,ZCG 2 
BXCZ.ZOG 5 
KF{BU,6»,-.6{*5) 
BZAE.ZOG 1 
CMOC00(nU,6),-.6($5) 



-J EAl _F G R _BCO _ B L A N K J 8 ) 2 0_ 

-BRANCH IF BLANK 

-BR IF 3RD CHAR NOT BL TO ERROR 
-TEST FOR BCD ZERO 18 J 12 
-BRANCH IF NOT ZERO 



wAgog375 

WA000376 
WA000377 
WA000378 
WA000379 

WA000380 



006000.23 10 
006000.00 FO 



42* 
43* 
44* 
45* 



235013^ 
235013. 
235C14. 
235014. 
235015. 



CO 
40 
00 
40 
00 



_2_3_5CP_6. 
C0CC02 
235015 
COCGll 
235020 



•_5 c _c g 

.13 OA 

.72 CO 

.22 CO 

.50 00 



_B»_?.CG_1 

KCI,5,2.0 
BZXE,Z ENC 1 
2,$R 
B,Z END 



wAggg38i 

"WA0003B2' 
WA000383 
WA000384 
WA000385 



ZCG 2 



'wai 



TIME CLOCK CCC5^C41 



PUNID 22SC0KD 



CARC IC WAC00387 



DIST. OF 3/Cl 



3/01 



PAGE NUMBLR 369 



LINE 



LOCATION 



BINARY CUTPUT 



NAKE 



STATEMENT 



LOCATION 



235015 



1« 235015.40 

2* 235016.00 

2* 235017.00 

<» 235017.40 



235C17.7C 
235020.50 

mm, 56 



42 

85 
CO 
85 



006627.24 30 



014627.24 3C 



Z. END 1 BXCZ.Z END 2 

LCV(DU,6,6),-.12($5),46 

B,Z END 
Z END 2 LCV{DU,12,6>,-.18{$5),46 



-CONVERT ONE CHARACTER 
-CONVERT TWO CHARACTERS 



WA000387 

wAooosae 

WA000389 
WA0003gO 



t» 235C20.4C 



235020.50 CO 



Z END 



B,$ 



-RETURN 



WA000391 



1* 

IC* 



235C21 
235022 
235023 
235024 
235C24 



.CO 
.00 
.00 
.00 
.40 



234631 
CCOOIC.O 
235115 
OOCCIO 
C0C1C4 



.10 CO 
0+ COO 
.23 80 
.33 10 

.CO 80 



C0C003 OOCOOO 
001000.36 FC 

422067.05 70 



Z CO 5 B,Z ER EXl 

Z XW CV XWf$L,3.G 

ZICCH CMlllltBU,ll,RM0Ve.l9 

SX,JXMSK,$L 

CTIG010{BU,l8),JSR+JNV,-i8 



WA000392 
WA000393 
WA0C0394 
WA000395 
WA000396 



Li* 

12» 
13* 
14* 
15* 
16 » 



235025 
235026 
235027 
235027 
235030 
235031 



.4_0_ 

".GO 

.00 

.40 

.40 

.CO 



235032 
C00C64 
234637 
GCC254 
235032 
00CC02 



^74 C2 

.CO 80 

.34 C2 

.00 80 

.74 C2 

.CO 80 



BRZ^Z TST CI -BRANCH IF YES TO ACT I CN 

CTIG010{BU,18), JSR+JJ4+J0V,-18 

BRZiJNOPX 

CTIC01O(BU,18),JSR+JJl*JON+J0V,-18 

BRZ,Z TST CI -BRANCH IF YES TO ACTION 

CTIC010{Blj,18),JCP,-18 -TEST IF OPERATOR SOURCE 



WA000397 
"WA0003g8" 
WA000399 
WA000400 
WA000401 
WA000402 



422067. C5 70 

422067.05 70 

^22067. C5 7C 

006000. CCFO 

022027.21 10 



11* 

le* 

19« 
2C» 
21» 
22* 



23_5C32 
235032 
235033 
235034 
235034 
235035 



.00 
. 40 
.40 
.00 
.40 
.CO 



2_34632 
CCCC13 
234562 
235G20 
235004 
215C02 



.34 CO 

.51 80 

.13 01 

.40 80 

.10 00 

.34 80 



BZRZ,Z ER EX2 

"CMOC00(BU,6),$PGC 
LVI,5,J FLDB+2.0 
SICZ END 
B,Z CONV C 
K(BU, 18), S CHAN K,46 



WA000403 
"WA000404 
WA000405 
W AGO 0406 
WA000406 
WA0004Q7 



Z TST CI 



Z COMP C 



-INITIALIZE SWITCHES 

JT^C_GMPAREI^AX BASIC £XCHCHAN_ 

"-GET "binary "CHANNEL" f^ll"M~B"E"R" 

-COMPARE WITH MAX DISK CHAN 
-BRANCH IF DISK CHAN 



23* 
2^» 
25* 
26* 
27* 
26* 



235036 
235036 
235037 
235037 
235040 
235041 
235042 
235043 



235043 
235044 
235044 



.C0_ 

.40" 

.00 

.40 

.40 

.00 

.00" 

.00" 



.40 
.00 
.40" 



234631 
215002" 
OOOCll 
000037 
235325 
614343 
234563" 
235211 



234563 
235020 
235004" 



.36 40 
.20 10 
.20 80 
.00 80 
.77 40 
.CO 80 
.C_G_80 
.36 C2 



.13 01 

,^4_C^_80 
.10 00 



bza 

LX, 
V+, 
KI( 
BZA 

LLl 
KF( 

"bae 



L^ZEREXl 

Z REQ CH,S XCHAN 
Z REC CH,$R 
6U, 18), 31. 0,46 
H,Z DSKCH 
eU,18),Z ALL 



WA000408 
WA600409 
WA000410 
WA000411 
WA000412 
WAC0C413 



422027.21 10 

422000. 2C5C 
"022000.23 10" 



21* 
"3C* 
31* 
32* 
33* 
34* 



By!.181.J_FLp8 + 3.C 
,Z CHONY 



WA0q0414 
"WA000415' 
WA000416 
WA000417 
«A000418 
WA000419 



-»««*•« UNIT AND CHANNEL REQUEST »••»•» 
LVI,5,J FLDB+3.0 
SICZ END 



35* 
36* 
37* 
36* 
39* 
4C» 



D , £ v^uN V u r55_L yi* 

K(8U,4),S UNIT K(ZREQCH),46 

BZAL,Z ER EXl 

LV,Z REC UN,0.0(Z RES CH) 

V+,Z RECUN,$R 

BE, $+^32 ,_ 



-GET UNIT NUMBER 



WAqqq4i9 

WA000420' 
WA000421 
WA000422 
WA000423 

WA000424 



235045 
235046 
235046 
235047 
235047 



.00 
.00 
.40 
.00 
.40 



000000 
234631 
COOOOO 
000011 
235C50 



.73 88 

.36 40 

.14 38 

.14 BO 

.CO 00 



004027.21 10 



-IS UNIT NUMBER LEGAL FCR CHANNEL 
-GET UNIT STATUS ADCR 



Z JGE 



^l* 
42* 

43* 

44* 

45* 

4£» 



235050 
235050 
235051 
235052 
235053 
235054 



.00 

.40" 

.40 

.40 

.40 

.40 



235050. 
COOOOO. 
000000. 
OOOCOO. 
COCCOO. 
COOOOO. 



44 qq 

32 88 

33 88 
47 86 
33 88 
63 86 



BD^$+.32 

"BZR,S CHOPCZ REQ CH),Z ACT ON -BRANCH IF"N0T OPERATING 
BZB,S MULTHZREQ CF),Z JOE -OPER.,eR IF SINGLE 

BZB,S SEL(Z REQ LN),Z JCt 
BZB,SMULTnZREQCh),RBYPTT 
C0011{BU,3),SMCUNT(ZREULN) 



WAq00425 
"WAG00426" 
WA00G427 
WA000428 
WA000429 
WA000430 



235053.74 00 
235047.74 00 
235047.74 00 
235057.34 00 
003000.06 70 



ZACTCN 



47* 
"4£» 
49* 
5C* 
51* 
52* 



235055 
235056 
235057 
235060 
235061 
235062 



.40 

^CO" 

.00 

.00 

.CO 

.00 



_2_3_5_0_57, 
235115. 
234564. 
616464, 
215001. 
235215, 



3^_C0 
23 80 
00 80 
CO 80 
02 80 
25 42 



BZRZ^RBYPTT 

"CM0C00(BU,1) ,RM0VE.19 
L{BU,48J,JFLDB+4.0 
KI{EU,18,6),Z ADC, 30 
CM1111,S CNF CG 
BPG1,Z CHCN2 



WA0qq431 
"WA000432" 
WA000433 
WA000434 
WA000435 
WA000436 



001000. CO FO 

060000.20 50 

422617.21 10 
001000.36 FO 



RBYPTT 



-IS IT ADD 
-SET lOASSN BIT 
-BRANCH IF CHAN ONLY 



REQUEST 



'Nai 



TIME CLOCK CCCS-iiC^l 

Tine l be a t1 c n 



PUNID 22SC0fD CARD IC WA000A38 
binary" CUT PUT NAI^E 



CIST. OF 3/Cl 
STATEMENT 



3/01 



PAGE NUMBER 370 

I c c aTi g¥ 



1* 

2* 
4* 



235062.40 
235063.00 
235064.00 » 



235272,36 C2 
000000.34 86 
COCCGO.35 86 



234631.34 OE 
235341.34 0E_ 
044606.21 10 



-«••««» UNIT AND CHANNEL REGUEST 

8AE,Z ADD UN -BRANCH 

BBl,S UN AVLIZ REQ UN),ZEREX1 -BRANCH 

8B1,S UN ASGCZ REQ UN),Z MAIN D 



TO ADO UNIT 
IF UNAVAILABLE 



WA000438 
WA000439 
WA000440 
WA000441 



_5» 
l« 

1C« 



2 3 506 5.00 
235066.00 
235066.40 

235067.40 

235p7C_.p_0_ 

235070.40 



2 3_5372._C0_80 
235363.36 CO 
000000.40 86 



l<i.8y,36,6J,Z_CELET,J^ 

8ZAE,Z MNERg 
ZOWNER 8ZB , SQWNERC ZREQUN ) , ZABEO J 

SIC,Z SCAN 9 
BtZ_CH SCN 

BlZ.OONE 



WA000442 
"WA000443 
WA000444 
WA000445 
WA000446 
WA000447 



235347.74 00 



-IF NOT DELETE, TO MAIN. 
-TC ABEOJ IF PP UNIT 
-DO NOT TRY TC REASSIGN 



ERROR 



235143.40 

_2_3_5_C_7i._lC 

235234.10 



80 

00 
CO 



11* 

12* 
13* 
14* 
15» 
16» 



-UNIT FOUND FOR MCP 



WA0gp448 
WA000449 
W AGO 04 50 
WA0Q0451 
WA000452 
WA000453 



235071.00 
235071.40 
235072.00 



0CC020< 
OOOCOO, 
215C02, 



7 
11 
16 



01 
01 
10 



-«•«««« COMMCM SCAN FOR NEW UNIT •»»»»» 
Z CH SCN LVI,Z CHN NM,16.C 
LVI,Z UNT NM,C.C 
_LX»_Z_NEW_CH,S X CHAN 



-:GET„BAS£_APPR_ AND HD_,_ _0 F _C H N S . 
-GET EQUIP TYPE FOR NEW UNIT 



IZ* 

16* 
19* 
2C« 
21* 
22* 



235C7_2_._4_0_ 
235073. 4C 
235074.00 
235074.40 
235075.40 
235C7fc_.CC_ 
235C76^4C_ 
235077. CC 

235077.40 
235100.40 
235101.40 



C_0_0C0.0, 
000040, 
000040. 
OOOCOO. 
235077. 
_C_0_0_C_0_0_. 

_2_3_5_0_7_4_' 
235171, 

OOOCOO. 
OOOCOO. 
COCCOl. 



64 
17 
17 

64 
76 

41 
57 

50 



38 
C8 
05 
87 
C2 
C5 
4.8 
00 



004000.06 70 



LFt_S_EQyiPiZ_RE_Q_ C_HJ_ 

C-I,Z NEW CH,32.C 
V+I,Z NEW CH,32.C 

Z LOP KF.S EQUIPCZ NEW CH) 
BAE,Z OK EQP 

ZLCP1_ ^y_+I j_ZCHNNM, .32 



WAppp454 
WA000455 
WA000456 
WA000457 
WA000458 
WA000459 



004000.23 10 



23* 
24* 
25* 
26* 
27* 
26* 



^CBtt.ZNEWCH,ZLpPp 

B,Z REMCV 

Z CK ECP BB,S CH AVL<Z NEW CH) 
BB,S MULTKZ REQ CH), 
LCI.Z NEW UN,1. 



-SET SWITCH TC REMOVE PP IF UNIT 

-NOT FOUND ON FIRST PASS 

-IF CH NOT AVAIL, TRY ANOTHER CH 

_-y.11I _C OUN T _ F CR_ SJ NG L E U_N_IJ_ _CH AN • 
-GET CHAN. STAT ADOR 



WAPPG46P 
WA000461 
WA000462 
WA000463 
WA000464 
WA000465 



31 87 
33 88 
23 02 



235076.34 02 
235103.34 02 



,Z LOP I 

Z MUL UN 



lit 
3C« 
31* 
32* 
33 » 
34» 



2351p2_.pp 
235102. 4C 
235103.00 
235104.00 
235104.40 
235105.00 



_C0_0_02_7_, 
235105. 
OOOCOO, 
COCCIO. 
OOOCOO, 
235173, 



22, 
IC 
73 
22 
22 
65 



_30 
CO 
87 
50 
37 
80 



LV,Z_NEW_yN,Z_NEW CH 



WA000466 
WA000467 
WA000468 
WA000469 
WA000470 
WA000471 



004067.06 70 



0pi0pp.36_FC_ 
235111.34 00 



B,Z IG ZAG 
Z MUL UN LF,S UNIT KH NEW CH),-18 

LC,Z NEW UN,$L 

LV,Z NEW UNfO.OIZ NEW CH) 
Z IG ZAG CMllll{BU,l},Z RMV1+C.53 



-UNIT COUNT ON MULTI-CHANNEL 
-GET UNIT STATUS BASE ADDR 
-SET NO UNITS SWITCH 



31* 
36* 
37» 
36* 
39* 
4C« 



235106. CC 
235107.00 
235107.40 
235110.00 
235110.40 



00„C„COP' 
COCCCl. 
235106. 
COCCOO, 
235076. 



34 89 

11 05 

23 48 

11 CI 

10 00 



^BZB_,_S UN AVLCZ NEW UN 

Z TST UN V+I,Z UNT NM,1.0 

CB+,ZNEWUN,ZIGZAG+l.O 
LVI,Z UNT MM, CO 
B,Z LOP 1 



),Z AVL UN ^-lBR_IF AVAILABLE 

-UPDATE NEW UNIT NUMBER 

-LOOP IF MORE UNITS ON CHANNEL 

-CLEAR NEW UNIT NUMBER 

-NO - BACK TO CONTINUE CH TEST 



WA000472 
WA000473 
WA000474 
WA000475 
WA000476 
WA000477 



41* 
42* 
43* 
44* 
45* 
4d» 



Z* *****_ CH AN_NEL AND UN I_T _ARE A V A I L A BLE_ •_»_*_*_*_*_ 

TSTPP -BRANCH IF'SECCND PASS 

UN ASG(Z NEW UN)tZ TST UN -IF ASSIGNED UNIT, TO TEST 
-MORE UNITS CN CHAN. IF NOT ASSGN, 
-TO FOUND ON FIRST PASS SCAN. 

-SET UNIT ASSIGNED IF UNASSNGEC 



WAppp478 

WA000479' 

WA0004B0 

WA000481 

WA000482 

WA000483 



235111. CG 
235111.40 



235156.24 C2 
000000.35 89 



Z AVL UN 



235107.34 04 



BPGCZ 
BZ8Z,S 



FOR 



47* 
48* 
49* 
5C* 
51* 
52* 
53* 



2 35112_.40 

235113.00 

235113.40 

235114.40 

235115.00 

2351_15_._40_ 

235116.40 



_C_C_C_C_0_Pt40_68 
CCCGC"0.24 36 
400000. CO 
235122.76 
235117.70 
COCCOO. 63 



_Z_ _S_e_T _A S _L LU 3. 1 . G i Z _ R £ G_ C HJ 

LV,ZUNITA,0{ZREQUN) 

KFI{BU,4),(8)10,-56 

BZAE,ZASSGN 
RMCVE NOP,RGCING 
C^!lUll§Lljrl_)jS_MC_LiN_TJ_Z_ N:tW_yN) 

CM1111(BU,1),S VER{Z NEW UN) 



WA0pp484 

WA6o0485 

WA000486 

WA000487 

HA000488 

WA0pp489_ 

WA000490 



80 
CC 
00 
89 



404044.23 10 



PPippp_.3_6__F_0_ 
001000.36 FC 



-GET REQ. UA ADD. 

-TAPE EQUIP TEST 
-BRANCH IF NOT TAPE 



C00C0O.5G 89 



*Nai 



C 



TIME CLOCK CCOS^O'tl PUNID 22SCOPD CARD ID V«AC00492 
LINE LCCATTcN BINARV'CUTPUT HAHE 



DIST, OF 3/Cl 
STATEMENT 



3/01 



PAGE NUMBER 371 
LOCATION"" 235117 



1* 235117.40 
2» 235120.40 
2» 235121.40 
A* 235122.00 



000000.33 89 OOIOOO.OC FO RGDING CMOCOOt SDISPOCZNEWUN I 

000000.32 89 001000.36 FC CMllll.S TATHZ NEW UN) 

00GCC0.13 09 LVNI,5,0.0 

€00007.53 3A SV,5,S FILE KtZ UNIT A) 



-SET FILE COUNT TO -0. 



WA0004g2 
WA000493 
WA000494 
WA000495 



_5*_2 3 5_122_._40 C00C00.71 89 007000.00 FC Z ASSGN CI^OCOO ( BU , 7 ) , SRD ( Z HEh UN) -CLEAR TABLES " WA000496" 



1* 
i* 

1C» 



235123.40 
235124.40 
235125.40 
235126.00 
235127.00 



000000.51 
C0CCC0.40 
C0CC12.22 
C0CC12.C2 
000000.25 



89 
89 
00 
80 
39 



010000.00 FO 
001000.36 FO 

002000.36 FC 



SET UNIT OWNERSHIP TC HCP 



CM0000(BU,8),S VER+.llZ NEW UN) 

CMlllliS GWNER(Z NEW UN) 

Z,$SB 

CMlllHBU,2),$SB+.2 -SET ZONE BITS FOR IGS STORE 

SV,Z UNIT A,O.OCZ NEW UN) -SET UNIT A ACDR INTO NEW UST 



WA000497 
WA000498 
WA000499 
WA000500 
WA000501 



,ll*_?35127.40 ^233024.70 CO ZLCD LP NOP.Z ASN 51 -BRANCH FGR SPECIAL ASSIGNMENT WA000502 



12* 235130.00 
13» 235131.00 
14» 235131.40 
15* 235132.40 
16» 235133.00 



C0CC00.14 
OOCCll.ll 
235206.57 
000000.40 
C00C00.C7 



8A 
10 
80 
6A 
lA 



007042. 2C 30 



020042.24 CO 



LCV,S CHAN N(Z UNIT A), 68 
SX,Z UNT NM,$R 
ST(0U,16t8) ,Z SMSG2-.1,68 
L{U3,0.0(Z UNIT A) 



-GET OLD CHANNEL NUMBER 
-GET NEW UNIT NUMBER 
-STORE OLD CHANNEL NUMBER 
-GET OLD UNIT NUMBER 



SX,Z ChN NM,S CHAN N(Z UNIT A) -SET NEW CHN NUM IN UNIT A. 



WA000503 
WA000504 
WA000505 
WA0005D6 
WA000507 



.1/?„235133.4G C004C0.27 20 SHFL,2 WA000508" 



ie« 

19* 
2C* 
21* 
22* 



235134.00 
235135.00 
235135.40 
235136.40 
235137.40 



235210.07 
000000.51 
235207.07 
COOCOO. 14 
235207.57 



80 
3A 
80 
8A 

80 



010030.24 CO 



010050.24 
007000.20 
020000.24 



CO 
30 
CO 



ST(CU,8,8),ZSMSG5-.1,48 
SV,Z UNTNMfS UNIT N(Z UNIT 
ST{DU,8,8),ZSMSG3-.l,-4a 
LCV,S CHAN N(Z UNIT A) 
ST{[:U,16,8),Z SMSG4-.1 



A) -SET NEW UNIT NUM IN UNIT A. 

-GET NEW CHANNEL NUMBER 
-STORE NEW CHANNEL NUMBER 



WA000509 
WA000510 
WA000511 
WA000512 
WA000513 



_2i»_23514C.40 000040.00 00 BE,C MCP WA000514' 



2'«» 
25* 
26* 
2?» 

2e» 



235141.00 
235141.40 
235142.00 
235142.40 



000043.40 80 
235204.00+ 
0C0005 

235143.25 80 



Z SCAN 7 



,0 COMM 
VF,Z SCMSG 
CF,5. 
SIC, $+0.53 



WA000515 
WA000516 
WA000517 
WA000518 



235143^00 235144.30 06 NCP,Z SCAN 8($6) WA000519 



_2^*_235143j.4C OOGC_G_0. 1C_ 00 Z SCAN 9 8,0.0 -BRANCH BACK TC USER WA000520 



3C» 
31* 
32* 

32* 
3A* 



235144.00 
235145.00 
235145.40 
235146.00 
235146.40 



000013. CO 
215571.00 
215570.04 
000104. GO 
224052. CO 



80 
80 
GO 
80 

80 



235155. C2 AO 



Z SCAN 8 TI,1,$IND,Z ST IND 
SICS PRIMR 
eCS PRIME 
,D A8E0J 
SICZ SPL P9 



WA000521 
WA000522 
WA000523 
WA000524 
WA000525 



35* 235147.00 
36* 235147.40" 
235150. CO 
23515C.40 
235151.00 
235151.40 



2 2_4_0_4_6_._4_4 00 

235260. CC 80 

00GC05.C0 80 

235151,00 CO 

C00C40.00 00 

C0GC43.40 80 



B , Z S P L 
,Z SPLOl 
,5. 

BE, $+.32 
BE,D MCP 
,C CGMM 



PR 



WAqqq526 

WA000527" 

WA00052a 

WA000529 

WA000530 

WA000531 



37* 
36* 
39* 
4C* 



41_* 235152j.GC 
42* 235152.40" 
235153.00 
235154.00 
235155.00 
235156.00 



,0G + 



2 3 5265, 

CCG0G5 

235155.00 
235143. 5C 
OOCCOl.CO 
00CC00.40 



49 



VF,Z CUZ 

CF,5. 

TI,1,Z ST IND,$IND 

B,Z SCAN 9 

DRZ(N),(1) 

BB,S GWNER(Z NEW UN) 



WAqq0532 
'WA000533 
WA000534 
WA000535 
WA000536 
WA000537 



42* 
4^1* 
45* 

4e* 



80 
CO 



000013.02 AO 



89 235107.34 02 



Z 

z 



ST IND 
TST PP 



Z TST UN -SECOND PASS SCAN 



BRANCH 



47* 

"4£» 235157. CC" 
49* 235160.00 
5C» 235160.40 



-J f _MC P TC TEST FOR _0JHtA _U'llIS ^^000538 

WA600539" 

HA000540 

WA000541 



000C01.76 
235162.66 
235143.25 



8A 
42 

80 



001000.36 FO 



001000.36 FO 



CM1111,SUUNAS(ZUNITA) 
BPG3,Z PREST 
CM1111(BU,1),Z SCAN 7+0.53 



'Kai 



C 



TIME CLOCK CCC54C41 



PLNID 22SC0NC 



CARD IC WA000543 



CIST. GF 3/Cl 



3/01 



PAGE NUMBER 372 



LINE 



LOCATION 



BINARY OUTPUT 



NAME 



STATEMENT 



LOCATION 



235161 



]« 235161.40 
2» 235162.40 
3* 235163.40 
A» 235164.40 



000013.54 
000000.33 
000000.32 
000000.47 



80 001000.36 FO 

87 235166.74 CO 

87 235112.74 00 

87 235112.74 02 



CMllllie'U,l},Z PR ABJ -SET ABEOJ PRIME SWITCH 

Z PREST BZBtS MULTICZ NEW CH»,Z SCH TS -BR IF SINGLE UNIT CHANNEL 
Z TEST U BZB,S CHOPCZ NEW CHJ,Z SET AS -BRANCH IF NOT OPERATING 

BB,S SELIZ NEW CH),Z SET AS -BRANCH IF NOT SELECTED 



WA000543 
WA000544 
WA000545 
WA000546 



5» 235165.40 



235166.00 CO BE, $+.32 



WA000547 



t* 235166. CC 

1» 235166.40 

€• 235167.40 

S* 235170.00 

1C» 235170.40 



235163.44 
0O0C0O.32 
23517€.C0 
235166.44 

000000.24 



CO 
87 

00 
00 
36 



235170.74 00 



BC,Z TEST U 
Z SCH TS BZB,S CHOPCZ NEW CH),$+2.C 

BE, $+.32 

BD,Z SCh TS 
LV L^ _yNi I_ A , P_.pj Z_ RE_G__UN I _ 



WA000548 
WA000549 
WA000550 
WA000551 
WA000552 



12* 
12* 
14« 
15* 
It* 



235171.CC * 235122.50 CO B,Z ASSGN_ 



WA0PP553 
WA000554 
WA000555 
WA000556 
WA000557 
WA000557 



235171.40 
235172.00 
23517*3. CC 
235173.40 



235174.24 

000013.51 
235173.65 
235071.30 



C6 
80 
80 
06 



001000.36 FC 



Z REMOV BPGOZ,Z NOT FO 

C^'.11I1{BU,19,Z SCN P2 

Z RMV 1 SICZ RMVl+0.53 

N0P,Z_Ch_SCN{$6) -SELF 



-SET SECOND PASS SCAN SWITCH 



RESETTING SWITCH 



11* 

ie» 

19* 
2C« 
21* 
22* 



-FCR NG UNITS FOUND ON FIRST PASS 



WA00p558 
WA000559 
WA000560 
WA000561 
WA000562 
WA000563 



235174.00 
235174. 4C 
235175.00 
235175.40 

2 3 5176_.CC_ 
235176.40 



0O0C40.C0 
000043.40 

235177.00+ 

CCC0C5 

C00C00.22 



CO 
80 



30 



Z NOTED 



Rfc,C MCP 
,D COMM 
VF.Z NTFC 9 
CF,5.0 
_LV,9,C.C 



22* 
2i* 
25* 
26» 
27* 
2t« 



_2_3_5_14_3_._5 _0 ^B_,Z SCAN? 



WA0gp564 
WA000565 
WA000566 
WA00Q567 
WA000568 
WA000569 



235177.00 

235204.00 * 
235205. CO 



CNOP 
Z NTFD 9 ( 1QS*)CC{BU), NO REPLACEMENT FOR DELETED MCP UNIT, 

CNOP 
Z SCMSG (ICS*)DC(BU), CHANGE • 
Z SMSGl ( IOS»)CC{eU),MCP UNIT FROM • 



2i* 

"3C« 

31* 

32* 

33* 
34* 



235206^60 
235207.10 
235207.60 
235210.10 



JLJSMSJG2 
Z SMSGS* 
Z SMSG4 
Z SMSG5 



LlGS*icc{By), 

( IQS»)DD(eU), 
(IQS«)DD{BU), 
{IQS«)CC{8U), 



WA000570 
'WA000571" 
WA000572 
WA000573 
WA000574 
WA000575 



TO 

— • 



-«««««« CHANNEL ONLY REQUEST «•*»*» 



_3i» 
36* 
37* 

3e» 

3S* 
4C* 



235211.00 
235212.00 
235212.40 
235213. CC 
235213.40 
235214.40 



_PP0C_i3.52 

C0CCC0.14 
235213. CO 
235213.44 
000000.32 
235053.50 



80 
10 
CO 
00 
88 
CO 



001000.36 FO 



Z CH 0_NY CM 1 1 1 1 IBU ?_ 1 1 , Z I ND C H 

LX,Z REG UN,$Z 
Z CH0N3 BE, $+.32 

BD,$+.32 

BB,S CHOPCZ REQ CH),Z CH0N3 

B,Z ACT ON 



-SET CHAN ONLY SWITCH 



WAq00576 
'WA0005 77' 
WA000578 
WA000579 
WA000580 
WA000581 



235212.74 02 



-BRANCH TO TEST OP CODE 



_4L» 
42* 
45* 
44* 
45* 
4t» 



235215.00 
235215.40 

235216.40 



_2_3_532A«„3 6 _C 2 

000000.31 88 234631.34 OE 

00GC00.33 88 235223.34 02 



A_CiiQ.N2___BAE,_Z ACD_CH ^-_B.R ANCH _ig ADD, CHAN_NE_L_ 

8B1,S CH AVUZ REQ Ch),Z ER EXl -BRANCH IF UNAVAILABLE 

-IF AVAILABLE, MAKE UNAVAILABLE 
BB.S MULTIIZ REQ CH ) , Z MULCH -TEST IF MULTI UNIT CHAN 

-*»««**_SJNGLJ_JJ1IJ_J:AANNEL ONLY REQUEST^ 

LVt.Z_REQ_yN,Z R£C__CH -U^« il. ANP_ CHAN__SJ__SAM.e_ F_CR_ 

-SINGLE UNIT CHAN 
BB1,S UN ASGCZ REQ UN),Z MAIN D -BR IF NOT ASSGN TO MAIN DEL 

-SET UNIT UNASSIGNED IF ASSIGND 



WA000582 
WA000583 
WA000584 
WA000585 
WA000586 
WA000587 



^1* 
48* 
49* 
5C» 



.235217^4C___ 
235220.00 « 



jC0CC_3g^l4_3O 

000000.35 86 235341.34 OE 



WA00g588 
WA6o0589' 
WA000590 
WA000591 



*Hai 



1 IME CLOCK C0C54C41 



PUNID 22SC0FD 



CARD IC WA000593 



DIST. OF 3/Cl 



3/01 



PAGE NU^«B£R 373 



LINE 



LOCATION 



BINARY OUTPUT 



NAHE 



STATEMENT 



LOCATION 



235221 



1« 235221. CO 

2* 235222.00 

2» 235222. AO 
4» 



235372. CO 80 
235365.76 CO 
235C66,5C CO 



044606.21 10 



K,Z DELET,12 
8ZAE,Z MNERX 
B,ZCWN£R 



- IF NOT DELETE, TO ERROR CHK 



WA000593 
WA000594 
WA000595 
WA000596 



««*•«» MULTI-CHANNEL ONLY REQUEST •««•«« 



WA000597 



1* 
£• 

1C» 



235223.00 
235223.40 
235224.40 
235225.00 



C0CC00.14 38 
000000.73 88 
C0CCI0.14 50 
000000.35 86 



Z MULCH 



004067.06 70 



235236.74 OE ZQUESl 



LV,Z REQ UN,0.0(Z REQ CH) 
LF,S UNIT KCZ REQ CH),-18 
LC,Z REG UN,$L 
B8l,SUNASG{ZREQUN),ZQUS|l 



-GET UNIT ST T8L BASE ADDR 
-UNIT COUNT FOR CHANNEL 

'BRANCH IF NOT ASSIGNED TC TEST 
-IF ALL UNITS ON CHAN UNASN 



WA000598 
WA000599 
WA000600 
WA000601 
WA000602 



11» 235226.00 



235227.67 42 



BPG5,$-H.32 



-ASSN UNIT INDIC ON 



WA000603 



12* 
13» 
14* 
15* 
16» 



235226.40 
235227.40 
235230.40 
235231.00 
235232.00 



CCCC13.56 
235372.00 
235365. 76 
C0CC00.4G 
235235.25 



80 
80 
CO 
86 

CO 



001000.36 
044606.23 



FC 
10 



235252.34 02 



CMllllfZ ASU IN -SET ASSN UNIT IND ON WA000604 

KF,Z CELET,12 WA000605 

BZAE,Z MNERX -IF NOT DELETE, TC ERROR CHK WA000606 

BE,S CV«NER{Z REQ UN),Z MCP MC -BR IF REG MULTI-CH UNIT IS MCP WA000607 

BZPG2,Z SET PP -CH ONLY DEL OF MUL CH FOR PP WA000608 



11* 
1€« 

19* 

2C* 

21* 

22* 



235232.40 



235225.15 48 



Z CUES 2 CB+,Z REQ UN,Z QUESl 



-AiNYMOREUNI T S TO BE EXAMINED 
-ON REQUESTED CHANNEL 

-BRANCH IF ANY PP UNITS ON CHAN 



WA000609 
WA000610 
WA000611 
WA000612 
WA000613 
WA000614 



235233 
235233 
235234 
235234 



.00 
.40 » 
.00 
.40 



235341.27 
235243.65 
CCCC05.31 
234633.10 



40 
C2 
01 
00 



Z CCNE 



EZPG5,Z MAIN G 
8PG2,Z QUES 4 
LVI,12,5.C 
B,Z EXITX 



22* 
2^» 
25* 
26* 
21* 
2£* 



235235 
235236 
235236 
235237 
23524C 
235241 



.CC_ 

~.CC 

.40 

.00 

.00 

.CO 



_C_0C_C_1_3._5 3 
235232.50 
235232.67 
CCCC13.57 
235372.44 
235232.76 



80__001000.36_F0 
'00 
C2 
80 
80 
C2 



Z SET _P_P_ _C 1 1 
B,"Z 

Z CUS 11 BPG 
CMl 
KF, 
BAE 



UllByiAJjZ PP CHC 

QUES 2 
6,Z CUES 2 
lll.Z OP TST 
Z DELT M, 12 
,Z CUES 2 



-SET PP UNIT SWITCH FOR PRIME 



WAq00615 

WA000616" 

WA000617 

WA0006i8 

WA000619 

WA000620 



001000.36 FC 
044606.23 10 



-IF OP TESTED, LOOK FOR MORE UNS 
-SET OP CODE TEST IND CN 



2i* 

3C* 
31* 

32* 
33* 
34* 



235241 
235242 
235243 
235243 
235244 
235244 



.40 

.40" 

.00 

.40 

.00 

.40 



235372.CC 
235232.76 
234631.10 
235234.26 
224052.00 
224046.44 



80__0446G6.23 _1C 
"C2 
00 
42 
80 

CO 

80 



BAE,Z CUES 2 
B,Z ER EXl 
BPG3,Z DONE 
SICZ SPL P9 
BD,Z SPL PR 



WA0q0621 
"WA000622" 
WA000623 
WA000624 
WA000625 
WA000626 



Z GUES4 



-BRANCH IF ABE0J,JC4 PRIMED 



3 £ » _2 35245. 00 2 3 52 60 'C^ 

"36* 235245.40 CC0005 
3?* 235246.00 215571.00 
3£* 235246.40 215570. C4 
39* 235247.00 * 000104.00 
4C* 235247.40 C0CG40.C0 



f_Z_ 

CF, 

SIC 

BD, 

,D 

BE, 



SPL C 
5.0 
,S PR 
S PRI 
ABEOJ 
C MCP 



wAqqq627 

"WA0C0628" 
WA000629 
WA000630 
WA000631 
KA000632 



80 
CO 
80 
CO 
80 



IM R 

ME 



41^*235250.00 AQCPA^.-AQ. 

42* 235250. 4C 235265.00+ 
45* 235251.00 CC00C5 
44* 235251.40 235234.10 
45* 235252.00 COCC11.04 

46*235252.40 ^CC C C Oq . 3 5 

^ 1* _ 2 3 52 5 3 .4C JAVJ*A'A9. 

"4e* 235254. CO 235C71.10 



,_D 

VF, 
CF, 
B,Z 
Z MCP MC LX, 
CMl 



COMM 
Z GUZ 
5.0 

DONE 
2,$R 
HUB 
^Z SC 

CH S 



WAqqq633 

"WA000634" 
WA000635 
WA000636 
WA000637 

wAqqq638_ 
wAqqq639 

WA000639 



00 
10 
86 
80 

oo" 



001000.36 FC 



49 



-SAVE OP CODE IN ACC 

y 1 IJ J s UN _A s_GJ A 3JA A^L L r § § I _ y N i A u_n a A^J ga^A 

AN9 

CN -GO TC SCAN FOR NEW MCP UNIT 



SIC 
"B,Z 



*Hai 



TIME CLOCK CCC54C41 PLNIO 


22SCGfC 


:ard 


IC 


WA000641 CIST. GF 3/Cl 3/01 PAGE NUMBER 374 




LINE LOCATION 


BINARY OUTPUT 






NANE 


STATEMENT 


LOCATION 235254 




1« 

2» 
2* 
A* 


235254.40 
235255.00 
235255.40 
235256.00 


234637.31 

000011.05 
235256.00 
235256.44 


42 

10 
00 
00 


' 




Z 


PETE 


BXVZ.J NOP X 
SX,2,IR 
BE, $+.32 

BD,$+.32 


-NOTHING MORE AVAILABLE 
-RESTORE RT ACC 


WA000641 
WA000642 
WA000643 
WA000644 


5* 


235256.40 


000000.32 


88 


235255.74 


02 






88, S CHOPCZ REQ CH),Z PETE 




WA000645 


i* 
1C» 


235257.40 
235260.00 * 
235265.00 


235232.50 


00 






z 
z 


SPLOl 
CUZ49 


B,Z QUES 2 

CNOP 

(A»)DDCBU,64,8),LABN0RMAL ECJ TO P.P* MCP NEEDS CHANNEL,* 

CNOP 

{IQS«)DC(BU), ABNORMAL ECJ TO P.P. MCP NEEDS CHANNEL.* 


WA000646 
WA000647 
WA000648 
1(IA000649 
WA000650 


11» 












— 








WA000651 


12* 
13* 
14* 
15* 
16* 
17* 


235272.00 
235273.00 
235274.00 
235275.00 
235276.00 * 


000000.34 
000000.33 
000000.50 
C0CCC0.71 
235234.10 


86 
88 
86 

86 
CO 


234631.34 

235276.74 

011000.00 

_ 007000. 0.C_ 


04 

00 
FO 
_F_Q__ 


Z ADD UN 
ZFINI4 


«««««««« ADD UNIT SECTION »««*«** 
BZBZ,S UN AVLCZ REQ UN),Z ER EXl 

BZB,S MULTKZ REC CHJ,Z INSRT -BRANCH IF SINGLE UNIT FOR TYPE 
CM0C00(BU,9J,SVER{ZRECUN) -CLEAR STATUS TABLE 
CM0C00iBU,7),S RC{Z REQ UN) 


WA000652 
WA000653 
WA000654 
WA000655 

WA000656 


B,ZCONE 




WA000657 


1£* 
19* 
2C* 
21* 
22* 


235276.40 
235277.40 
235300.00 
235301.00 

235301.40 


234565.00 
000030.14 
235321.00 
235274.36 
235321.60 


80 
30 
80 
C2 
80 


060000.20 
060600.23 
060600.23 


50 
10 
10 


ZINSRT 


L{GU,48),JFLDe-»-5.0 
LV,ZREQUN,ZREUCH 
KF(BU,48,6),ZN0TYP 
BAE,Z FINI4 
KFtEU,48,6),Z RC TYP 




WA000658 
WA000659 
WA000660 
WA000661 
WA000662 


23* 


235302.40 


235305.76 


CO 










BZAE.Z NX QUZ 




WA000663 


24* 
25* 
26* 
27* 
26* 


235303.00 
235304.00 
235305.00 
235305.40 
235306.40 


30CC00.CC 
000000.64 
235274.10 
235322.40 
235311.76 


80 
88 
CO 
80 
CO 


403000.06 
003000.12 

060600.23 


70 
FO 

10 


Z 


NX GUZ 


LFI{BU,3),{2)C11 
SF(EU,3»,S EQUIPtZ REQ CH ) 
B,Z FINI 4 

KF<BU,48,6),Z PR TYP 
BZAE.Z NXT GZ 


-READER - 3 


WA000664 
WA000665 
WA000666 
WA000667 
WA000668 


29* 


235307.00 


400000.00 


80 


403000.06 


70 






LFI{BU,3),(2)100 


-PRINTER - 4 


WA000669 


3C» 
31* 
32* 

33* 
34* 


235310.00 
235311.00 
235311.40 * 
235312.40 

235313.00 


000000.64 
235274,10 
235323.20 
235317.36 

500000.00 


88 
00 
80 
CO 
80 


003000.12 
060600.23 
403000.06 


FC 
10 
70 


z 


NXT GZ 


SF(BU,3),S EQUIPCZ REG CH) 
B,ZFINI4 

KF(eU,48,6),Z PU TYP 
BZAE,Z TYP ER 
LFI{BU,3),{2)101 


-ERROR IN TYPE 
-PUNCH - 5 


WA000670 
MA000671 
HA000672 
WA000673 
WA000674t 


31* 


235314.00 


000000.64 


88 


003000.12 


FO 






SF(BU,3),S EGUIP{Z REQ CH ) 




WA000675 


36* 
37* 

3e* 

3S» 
4C* 


235315.00 
235315.40 
235316.40 
235317.00 
23 5317.40 


235274.10 
CCOC00.31 
234631.10 
235315.65 
000000.34 


00 
88 
00 
42 
86 


001000.36 
001000.36 


FO 

FO 


z 
z 


CHTPE 
TYPER 


B,ZFINI4 

CM1111,S CH AVL(Z REQ CH) 

B,Z ER EXl 

BPG1,Z CHTPE 

CMllll.S UNAVLIZ REQ UN) 




WA000676 
WA000677 
WA000678 
HA000679 

WA000680 


41* 


235320.40 


234631.10 


00 






z 


TYPR5 


B,Z ER EXl 




V^A000681 


42* 
43* 
44* 
45* 
46* 


235321.00 
235321.60 
235322.40 
235323.20 










z 

z 
z 
z 


NO TYP 
RD TYP 
PR TYP 
PU TYP 


(A»)DD(BU,48,6), * 
(A*)DD(BU,48,6),READER * 
(A»)DD(BU, 48, 6), PRINTER • 
<A*)DD(BUt48,6),PUNCH ♦ 




WA000682 
WA000683 
WAG00684 
WA000685 
WA000686 


47* 












— 




«««««« ADD CHANNEL SECTION »»*«** 


WA000687 


48* 
4S* 


235324.00 
235325.00 * 


000000.31 
235273.10 


88 
GO 


234631,34 


04 


z 


ADD CH 


BZBZtS CH AVL(Z REQ CH),Z ER 
B,Z ADD UN+l.C 


EXl 


WA000688 
WA000689 







'Kai 



TIME CLOCK 0G054041 



PUNID 22SCOK0 



CARD 10 kA0C0691 



DIST. OF 3/Cl 



3/01 



PAGE NUMBER 375 



LJNE 



LOCATION 



BINARY GUTPUT 



STATEMENT 



» 



«•«•«•« DISK SECTION 
Z OSK CH 8Z8,J FLDB+3.1,Z ER EXl 

L(BU,48),J FLOB+4.0 



LOCATION 



1» 
2* 

2» 
A* 



«•*•«« 



235325.40 
23 5 3 26. 4C 
235327.40 



234563.01 80 234631.34 00 

_2_3 4 5 64 .0080 060000.20 50 

616464. CO 80 422617.23 10 



.WA000691 
WA0006g2 
WA000693 

WA000694 



5* 

~il 

1* 
£♦ 
9» 

1C» 



»< F 1 1 B y 1 1 8 ^ 6 ) J Z A Cj:_, 3_0_ 
BAE,Z AD OSK 
KF(BU,36,6),Z DELET,12 
BAE,Z DL CSK 
KF(BU,36,6),Z DELT H,12 
BAE.Z DL OSK 



WA000693_ 
"WAOOO'696 
WA000697 
WA000698 
WA000699 
WA000700 



235330.40 
235331.00 
235332.00 
235332.40 
235333.40 



235337. 
235372, 
235336. 
235372. 
235336. 



76 C2 
00 80 
36 C2 
44 80 
36 02 



044606.23 10 
044606.23 10 



11* 
12» 
13» 
14» 
15» 
16» 



23 5334.00 
235334,40 
235335.40 
235336. CC 
235337.00 

2_3_5_3_3J_«A0___ 
235340.40 * 



234631. 
215C01, 
235234, 
000000. 
235334. 
CO 00 00 , 
23 5334. 



10 
02 
10 
31 
50 

31 

50 



CO 
80 
00 
88 
00 
88 
CO' 



9l^_E?_E^1 

Z 9500 CMllll,S CNF CG 

B,Z CONE 
Z DL OSK BB1,S CH AVLIZ REG CH),Z ER EXl-BRANCH IF UNAVAILABLE 

B,Z 950C 
J_AQ._DSK_BZBZ,S CH AVLJZ REA_Q.Hl»_4_£«_£XI 

B,Z 9500 



WA000701 
"WA000702~ 
WA000703 
WA000704 
WA000705 
WA000706 



001000.36 FO 
234631.34 OE 
234631.34 04 



11* 

ie» 
1S» 

2C» 
21* 
22* 



WA00070 7 
'WA0C0708 
WA000709 
WA000710 
WA000711 
WA000712 



235341 
235342 
235342 



.00 
.00 
.40 



235372. 
235234. 
235372. 



CC 80 
36 02 
44 80 



044606.23 10 
044606.23 10 



Z MAIN 



KF,Z DELET,12 
BAE,Z DONE 
KF,Z DELT M, 12 



MAINTENANCE DELETE SECTION 



• *«• 



23* 
'2^* 
25* 
26* 
27« 
2£» 



235343 
235344 
235345 
235346 
235347 
235347 



.40 

.00" 

.00 

.00 

.CO 

.40 



235234. 
215C01. 
000000. 
OOGGOO. 
234631. 
224C52. 



36 C2 
02 80 
31 88 
34 86 

10 00 

CO 80 

4_4_cq 

CO 80 

CC 80 
04 GO 

CO 80 



BAE^Z CCNE 

CMOCOCS CNF CG 
CMOCOCS CH AVL(Z REQ CH) 
CMOGOCS UN AVL(Z REQ UN) 
B,Z ER EXl 
SICZ SPL P9 



WA000713 
~WA000714" 
WA000715 
WA000716 
WA000717 
WA0007ia 



001000.00 FC 
001000.00 FO 
001000.00 FO 



-RESET THE CHANGE BIT 

-MAKE CHN AND UNIT AVAIL AGAIN 



Z ABEOJ 



29* 
3C* 
31* 
32* 

33* 
34* 



23535C 
"23535C 
235351 
235351 
235352 
235352 



.CG 

.40' 

.00 

.40 

.CO 

.40 



22 
23 
COCO 
21 
21 
00 



4C_46. 

5260. 

05 

5571. 

5570. 

C104. 



_BD,_Z_SPL_PR 
,Z SPL CI 
CF,5. 

SICS PRIM f 
8C»S PRIME 
,D ABEOJ 



WA000719 
"WA000720" 
WA000721 
WA000722 
WA000723 
WA000724 



35* 
36* 
37* 
36* 
39* 
4C» 



235353 
235353 
235354 
235354 
235355 
235355 
235356 



.00 
.40 
.00 
.40 
.00 
.40 

.cc' 



CO 
00 
2353 
GCOO 
23 
00 



0040. 

0043." 

56.00 

05 

5234. 

0000. 



C_^0__CO 
'4C 80 

+ 

10 CO 
3C CO 



jBE^C MCP 

,D CCMM 

VFtZABJ 1 

CF,5. 

B,Z DONE 

CNDP 

'( IQS»)DD(eU),P.P. UNIT DOfeN AND DELETED. "ABEOJ TO PP.* 



WAqqq725 

"WA000726 
WA000727 
WA000728 
WA000729 
WA00073G 



42* 
43* 
44* 
45* 
46* 



Z ABJ 1 



WA000731 
'WA000 7 32" 
WA000733 
WA000734 
WA000735 
WA000736 



*«•«•« 



lOCHANGE ERROR ROUTINES 



•••«««• 



235363.00 
235364.C0 
235365.00 



000000.34 86 
COCCOq.3 5 86 
235366.50 CO" 



001000. CC FO 
001000. CC FO 



Z f^H ER9 CMOCOCS UN AVL(Z REQ UN) 
CMOCOCS UN ASGtZ REQ UN) 



-SET UNIT AVAIL 
-SET UNIT ASSIGNED 



47* 
46* 
4S* 
5C* 
5]* 
52* 



B.ZNNERR 

"CMOCOCS CH AVL(Z" 
CMOCOCS CNF CG 
KF,Z CELT M,12 
BZAE,Z ER EXl 
B,Z ER EX2 



WA00q737 

WA000738~ 

WA000739 

WA000740 

WA000741 

WA000742 



235365. 4C 
235366.40 
235367.40 
235370.40 
235371. CC 



CCCCC0.31 
215C01.02 
235372.44 
234631.36 
234632. IC 



88 
80 
80 
CO 

00 



001000. CC FO 
001000. CO FO 
044606.23 10 



Z MNER X 
Z MN ERR 



REQ CH) -SET CHAN AVAIL AGAIN 

-RESET CONFIG CHANGE BIT 



*Kai 



C 



TIME CLOCK CC05A041 
LINE LCCATIcN 



PUNID 22SC0ND CARD ID WA000744 

binary'cutpIjt NA>"£ 



DIST. OF 3/Cl 
STATEMENT 



3/01 



PAGE NUMBER 376 
I OC A t1cN~ ^23"5~3 7 r 



1» 
2* 

3 * 



235371, 
235372, 
235372, 

OGCCCO. 



4C 
CO 
44 

CC + 



C0GC00.3C 00 



AO 041 6464 
+00614343' 
+0CCC0CC0 
+CCC0000O 
+00C0O0C0 
+00000000 
+0CCC00C0 



BJU » 22 , 0_6_ 

BU_»_2_2__,_CA 

8U,1CC,10 

8U,1C0,I0 

BU.ICCIO 

BU,ICC,1C 

Byj_icc_,io_ 



CNOP 
I DELET IAX3DDCBU,36,6),DELETEX 
Z CELT M CAX}DDCBU,36,6),DELETMX 
Z ADD ( AX)CDICBU,18,6),ACCX 



WA000744 
WA000745 
WA000746 
WA000747 



_f « 
6* 
1* 
€« 

1C» 



Op COCO , 
00GG23, 
000024. 
000026, 
000027, 
00GC3C, 



C0 + 
00 + 
00+ 
00 + 
00 + 



_Z_ _A_L L LAXlQDHBy^ 1 8j 6J_»AM-A 

Z CHN NM SYN,$X3 
Z UNT NM SYN,$X4 
Z REQ UN SYN,$6 
Z NEW CH SYN,$7 
Z REG CH SYN,$8 



WA00P748 
WA000749 
WA0G0750 
WA000751 
WA000752 
WA000753 



-REQUESTED UNIT ST ENTRY AODR 
-NEW CHAN STATUS ENTRY ADDR 
-REQUESTED CH STAT ENTRY ADDR 



11* 
12* 
13* 
14* 
15« 
1£» 



CCCC31. 
0CCC32, 
000013, 
000013, 
000013. 
000013, 



po_+_ 

00 + 

51 + 

52 + 

53 + 

54 + 



Accccgpco 

+0CC00CC0 
+00C00CCC 
+CCCCOOCO 
+OOCOOOCO 
+OOOOOOCC 



bUjIPPjIO 

BU,1CC,1C 
BUtOl ,10 

BU.Ol ,10 
BU,01 ,10 

By_,p_i„_,_ic 



Z NEW UN 



SYNtl?__ 

SYN,$1C 

SYN,$PGC 

SYN,$PG1 

SYN,$PG2 

SYN,$PG3 



_-NiW_yNIT 
-REQUESTS 
-INDIN FO 
-IND FOR 
-I NO FOR 

_-IND_FgR_ 

-IND FCR 



_ S J S_ E NJ R Y _AP_C_R_ 

D UNIT AREA ACDR 

R SEC PASS SCAN 

CHAN ONLY REQUEST 

PP UNITS ON CH ONLY DEL 

A B E p J P RJ_M_EP_ 

ASS y N_I_T_ PH_ C_h_ _0_N L Y 

CP CCDE TEST CF UNASSN 



WAPPP754 
WA000755 
WA000756 
WA000757 
WA000758 
WA000759 



Z 

z 
z 
z 
z 



UNIT A 
SCN P2 
IND CH 
PP CHD 
PR ABJ 



11* 
1£» 

is* 

2C* 
21* 
22* 



PPP0_13j 
0CCC13, 



_5_6_+_ 
57 + 



_+_o_ccppccc 

+OOCOOOCC 



ByjPi_„,i_o_ 

8U,01 ,10 



_z_As_y_i_N 

Z CP TST 



SYN,$PG5 
SYN,$PG6 



WAPPPTi>P_ 
WA000761 

WA000762 
WA000763 
WA000764 
WA000765 



•»«*«« 



BYPASS COMMAND 



235373.40 

235374^CP„ 

235375.00 

235375.40 

235376.40 

235377.00 

235400.00 



_o_ojc.c_i.o 

C_0_0_054 
235404' 
000064 
234637 
000442 
235407 



•_3_3_LP 
•_0_0_ _8 p 
.34 C2 
.CO 80 
.34 C2 
.00 80 
.74 C2 



Z_J_V_PAS__„SX,_JX_MS!<i$L 

.C T I_C p 1 p 1 B y , 1 8_) J J S R_+ J JJ-_+_J_C_V_»_- 1_8 

BRZ,Z PAIY 

CTI0OlOfBU,18J,JSR+JJ4+JGV,-18 
BRZ,JNOPX 

CT1C010(BU,18),JCP+J0F+JQV,-18 
BRZ,Z BAl 



22* 
24* 
25* 
26* 
27* 
2t* 



_422p67.C5_7p_ 
422067.05 70 
422067.05 70 



WAppp766 
WA000767 
WA000768 
WA000769 
WA000770 
WA000771 



2il 
3C» 
31* 
32* 

33* 
3^* 



2354pp^4p__ 
235401.40 
235402.00 
235403.00 • 

235403. 4P__ 

2354p4.pp__ 

235405,00 

235405.40 

235406.40 

235407.40 

235410. CO 



_00_15C_0 
235405 
000320 
235413 



•_C_P._8P. 
.74 C2 
.00 80 
.34 C2 



.422067. C5_7p_ 
422067.05 70 



_CILPPlP18y,18JjAIPL_+_Ji3F + JNV,-18 WA00p7 72 

8RZ,Z BAIX -TC SET MCOE WA000773 

CTIC010CBU,18),JNV+JCN+JJ4,-18 WA000774 

BRZ,Z BZl -BYPASS ERROR WA000775 

•«*«« ADD INSTRUCTIONS FOR PROCESSING THE T AND FIELDS *•* WA000776 
8,Z ER EX2 WA000777 



23_4_6_3_2_. 
2_1_5_C_0_1_. 
235407. 
215C01. 
215001. 
000040. 
000117. 



1_0__P.P. 
1_2__80 
50 00 



35_» 
36* 
37* 
3€* 
39* 
4C* 



001000.36 FG 



i fiAi. X _ _ _cflllli lS _tran B 

8,Z BAl 
Z BAl X CM0C0C{BU,1),SYSM0D+.1 

CMllll{BU,2),SPPBTl 
Z BAl 8,D MCP 

,SKCM 



WA00P778 
~WA000779" 
WA000780 
WA000781 
WA00a782 
WA000783 



11 
15 
10 

40 



80 

80 
CO 
80 



001000.00 FO 
002000.36 FO 



■SET BYPASS FROM IPL MCDE 

-SEY SWITCHES FOR BYPASS FIRST 



_41_» 
42* 
43* 
44* 
45* 
4(.« 
47* 



23541G^4p 

235411.00 

235411.40 

235412. CC 

235412.40 

2354_13_.CC_ 

235414.00 



_CP_CCJDA'_C P _8 P 
CCC0CG.00+ 
CCCOOC.OO 

000006. 

234633. 
___2_lAC_pi^ 

234632.10 CO 



,_2^C 

VF,C.C 

VF,C.C 

LVI,12,6.C 

B,ZEXITX 

BBZj^SIRANB,JNCPX 

B,Z ER EX2 



WA0p0784 
"WA000785' 
WA000786 
WA000787 
WA000788 
WAPPPIB9_ 
WA000790 



+ 

31 01 

10 00 

12 80 



234637.34 06 



Z eA2 
Z 8A3 



z ez 1 



-T 

-D 



FIELD 
FIELD 



'Kfll 



TIME CLOCK 000540^1 



PUNID 22SCOf<D 



CARD ID hA000792 



DIST. OF 3/Cl 



3/01 



PAGE NUMBER 377 



LINE 



LOCATION 



BINARY OUTPUT 



NAME 



STATEMENT 



LOCATION 



1* 
2* 

2* 

^» 235414. 4C 



C0C0I0.33 10 



««»«•• ONLINE COMMAND ••••«♦ 
Z CNLIN SX,JX MSK,$L 



WA000792 
WA000793 
WA000794 
WA000795 



5* 2 35415.0G 



C00454.C0 80 422067. C5 70 



CTIC010{BU,18),JSR+JJ1+JOF+JCV,-18 



WA000796 



6* 
7» 

s» 
ic» 



235416.00 
235416.40 
235417.40 
235420.00 
235421.00 



235431.34 
C0CC64.00 
234637.34 
000304.00 
235425.34 



02 
80 
02 

80 
02 



422067.05 70 



422067.05 70 



8RZ,Z ON 001 -OK 

CTIC010(BU,18),JSR*-JJ4+JOV,-18 
BRZ,J NOPX 

CTIC010<BU,18),JSR+JNV+JON,-18 
8RZ,Z ON ClY 



WA000797 
WA000798 
WA000799 
WA000800 
WA000801 



12« 
13* 
14* 
15* 
16« 



235421. 
235422. 
235423. 
235424. 
235424. 
235425. 



40 
40 
CO 
CO 
40 
00 



C_C_C442, 
235431, 
C015C0. 
235426. 
234632, 
215001, 



0080 
34 C2 
00 80 
34 C2 
10 00 
12 80 



42206 7^05 70 
422067.05 70 



ppippp_.cc_f_c_ 

002000 . CO FO 
235431.34 04 



ClI ICO 1 C 1 BU , 1 8), JCP + J CJF + JO V ,_- 1 8 _ 
*BRZ,Z ON 001 

CTIC010{BUtl8),ZIPL+JNV+JCF,-18 
BRZ,Z ON CIX 
B,Z ER EX2 



WA000802 
'WA000803' 
WA000804 
WA000805 
WA000806 
WA000807 



ZCNOIY CMOCOCS TRAN B 



-RESET MODE CHANGE BIT 



11* 

ie» 

19* 
2C» 
21» 
22* 



235426. 
235427. 
235430. 
235430. 
235431. 
235431. 



cc_ 

00 
00 
4C 
00 
40 



21 5001, 
215001, 
235437, 
235433, 
00CC40, 
CCC117, 



10 
16 
40 
5C 

10 
40 



80 

80' 

80 

CO 

CO 

80 



_Z_ _C N_ _qi X _C M ( B Uj 2) jSYS M^C_D 

BZ8Z,SPPBT2,Z ON OCl 

S1C,Z OFFOl 

fiiZ OFF 02 
Z ON 001 B,D MOP 

fSKCM 



-S E T MODE TO ONLINE _0V ER L A_P_P E D 
"-ASSIGN TAPES IF NEVER ASSIGNED 



WA000808 
"WA000809 
WA000810 
«A000810 
teAOOOSll 
WA000812 



23* 
2<» 
2f » 
2€« 
27* 
26 » 



235432^ 
235432. 
235433. 



00 

4C" 

CO 



OOOCjOO. 
C00G07, 
234633, 



CO 

'31 

10 



80 
01 
00 



,q.c 

LVI,12,7.C 
B,ZEXITX 

SICZ COM 90 

B,Z ASN 01 
VF,VWTP 



WA000813 

WA000814" 

WA000815 

WA000816 

WA00081T 

WA000817 



235433.40 
235434_.CC 
235434.40" 



232762.00 80 
2A2JA6 'JlC CO 
GCC0C6.00+ 



Z 0FF02 



29* 
"3C« 
31» 
35* 
33* 
34* 



wAoooaie 

"WA000819" 
WA000819 
WA000820 
i^A000821 
WAC00822 



235435. OC 
235435.40 
235436. OC 
235436.40 
235437.40 



232762. CO 80 
232746.10 CO 
CC0004.00+ 

215001.15 80 
235437.50 00 



002000. CO FO 



SICZ CCM 90 
B,Z ASN 01 
VF.VRTP 

CM0C00(Bt,2),SPP8Tl 
Z CFF 01 B,$ 



-RETURN 



35* 
~36"» 
37* 
3£* 
3S* 
4C» 



WAqqq823 

WA000824" 

WA000825 

WA000826 

WA000827 

WA000828 



e« •«•« 



OFFLINE COMMAND 



«»«««« 



235440.00 
235440.40 
235441. 4C 



OOOCIO. 
000C64. 
234637. 



33 10 

CO 80 

34 C2 



Z CFFLN 



422067. C5 70 
422067^0 5" 70" 



SX,JX MSK,$L 
CTIC01C(BU,18),JSR+JJ4+J0V,-i8 

ERZ, JNOPX 



42* 
43* 

44* 
45* 
4£« 



235442.00 

235443.00" 

235443.40 

235444. 4C 

235445.00 

235446.00 



C0C_304. 
235447. 
000254. 
235453. 
001500. 
235453. 



CO aq 

34 C2 

CO 80 

34 C2 

CO 80 

34 C2 



AllC q 10(^811,18], J S R + J N V_+ JO_N f_- lA 

BRZ,Z OFF 09 

CTIC010<BU, 18J,JSR+JJI+JGN+JCV,-18 

BRZ,Z OFFIX 

CTIC010(BU,18),ZIPL+J0F+JNV,-18 

BRZ,Z OFF IX 



WA000829 
"WA000830 
WA000831 
WA000832 
WA000833 
WA000834 



422067. C5 70 
422067.05 70 



47* 
46* 
49* 
5C» 
51* 
52* 



235446.4C 

235447.00" 

23545C.C0 

235451.00 

235451.40 

235452. CG 



2 34632. 
215C01. 
215C01. 
235437. 
235433. 
215CC1. 
COG 040. 
C0C117. 



ic_po 

12 80 
15 80 
40 80 
50 CO 
l'Z_.§P 
1P_PP 
40 80" 



B,Z ER EX2 

CM0C00{BU,1),STRANB 
BZBZ,SPPBT1,Z0FF1X 
SICZ OFF 01 
B,Z CFF 02 
CM1111,SPPBT3 



WA000835 
'WA000836 
WA000837 
WA000838 
WA000838 
WA00083g 



001000.00 FO 
235453.34 04 



001000.36 FO 



ZCFF09 



53* 
54* 



235453.C0 
235453.40 



Z CFFIX 



Bi^DMCP 
',SKCM 



InA000840 
WA000841 



'Nfll 



TIME CLOCK CCC54CA1 



PUNIC 22SC0I-D 



CARD ID WA000843 



DIST. OF 3/01 



3/01 



PAGE NUMBER 378 



LINE LOCATIGN BINARY CUTPUJ ^NlA_HE STATEMENT LCCAJ_IC_N _2_3_5A54 



1» 235454.00 

2« 235454.40 

2* 235455. OC 

A* 235456.00 



00OCCO.4O 80 
235466.10 CO 
215001.10 80 
231C62.01 01 



235457.34 02 



,.32 

B,ZCFF72 

BB,SYSMOD,Z OFF 20 
LVI,0,YC1C 



-EHO RETURN 

-BRANCH IF BYPASS 

-SET RETURN TC JCl $RET 



WA000843 
WA000844 
WA000845 
WA000846 



_S?_2354 56_._4C_ 
6» 235457. CO 
1* 235460.00 
£• 235460.40 
9« 235461.00 

IC* 235461.40 



___2_32716.41_30 
215001.10 80 
235462.34 C2 
232762.00 80 
233044. IC CO 

000005.00+ 



SVtCf J_R£T A 
CllCCSYSMOD 
BRZ,Z OFF 10 
SICZ CCM 90 
B,Z DSN 01 
VF,_VCRQ 



-F CR pNLi NE_ C_A_S_E 

-TEST IF IPL fODE 

-BR. IF IPL - NO DISASSGN 



WAgpp847_ 
"WA00084H 
WA000849 
WA000850 
WA000850 
WA000851 



002000. 3C 70 Z OFF 20 



OF ROR 



1L?_2 3 5462_.P0_ 
12* 235463.00 
13» 235464.00 
14* 235465.00 
15* 235465.40 
16* 235466.00 



2_o_c ._g g ^ag „ _ 4 g 2 ggg_. 2 c_ 5 g_ 

215001.10 80 002000.12 FO 
215001.17 80 001000. CO FC 
000010.31 01 
234633.10 00 
215.C_gi._17_ag_ 2 346 32_.34_p_4_ 



_Z_ _C_F_F^ _l_g _L L LBU 1 2 1 1 1 2 J Pi 

CMOIOI.SYSMOD 
CM0C0C»SPPBT3 
LVItl2,8.C 
B Z EX I T X 

ZCFF72 BZBZiSPPBJ3_,ZE_R_E_X_2_ 



•SET MODE BITS 



yAggg852 

WA000853 
WA000854 
WA000855 
WA000856 

WA000857 



-BRANCH IF TAPES NCT_ f_RJ_VJ_0_liS_LY ASSD 



1 1 * _ 2 3_5 4_6_7_._0_C_ 
18» 235467.40 
19* 235470.00 
2C» 235470.40 
21» 235471.00 
22* 235471.40 



___2_3_2762._Cg_8g 
233044.10 CO 

000004.00+ 
232762.00 
233044.10 

CCC006.00+ 



SIC,Z_CCM_9p_ 
'b,Z DSN 01 
VF.VRTP 
SICZ COM 90 
B,Z CSN 01 

vF,_ywiP 



i^AoggasB^ 

'WA000858 
WA000859 
WA000860 
WA000860 
WA000861 



80 
GO 



23*_235472.CG_ 

24* 235473.00 

25* 

26* 

27* 

26* 



_2_i_5jcp_i_._l5 _8g__gc2ggg.36_Fg 

234632.10 00 



_CMlllllBy,2ijSPPBJl 
B,Z ER EX2 



-SET GN-OFF BITS AGAIN 



wAggg862 

~WA000863 
WA00Q864 
NA000865 
WA000866 
WA000867 



••««««»««««••*•««««««««*«**•«*««•««•««*««»*«•««•»«•*«•«••«••«* 

TIME CONSTANT SETUP 
»«*«««««»»»♦»«»«•«»««»»•»»♦**»»»««»*»»*»«»»»*«»*««»**«»*»*»*«* 



29* 

3C* 235473.40 
31* 235474.00 
32* 235475.00 
33* 235475. 4C 
34* 235476.40 



WA0gg868 
"WA000869 
WA00Q870 
WA000871 
WA000872 
WA000873 



00CC10.33 
C0C0C2.G0 
235504.34 
C0C254.C0 



10 

ao 

C2 

60 



422067. C5 70 



422067.05 70 



2355G4.34 C2 



Z TCC SX,JXMSK,$L 

CTIC010(BU,18),J0P,-18 

BRZ.Z TCC 01 

CTICOlOtBU, 18),JSR+JJ1+J0N+JCV,-18 

BRZ.ZTCCGl 



31*:„235477.gg 
'36* 235500.00 
37* 235500.40 
36* 235501.40 
39* 235502.00 
4C» 235503.00 



Cp_G_3_2_4_._g.0_ _8_g. _ _4 2 2 g6 7.0570 

235504.34 C2 

000264.00 80 422067.05 70 

234637.34 C2 

G015C0.00 80 422067.05 70 

2355C4.34 C2 



_C ILQ-Ol (_BU , 1 8 1 , J SR + J J4 + JNV+ JCN ,- 18 
BRZtZTCCOl 

CTIC010(BU,18),JSR+JJ4+-JOV-»-JON,-18 
BRZ.JNOPX 

CTIQ010(BU,18),ZIPL+JN¥+JOF,-18 
BRZ,Z TCC 01 



wAggg874 

'WA000875 
WA000876 
WA000877 
WA000878 
WA000879 



4l»_2355g3^4C 
42* 235504.00 
43* 235505.00 
44* 235505. 4C 
45* 235506.40 
46* 235507. GO 



_2_3_4_6_3_2_._iC 
00CG01.34 
235507.51 
235540.00 
234562.07 



go 

80 
01 
80 
01 



B,_Z_ER_eX2_ 

Z TCC 01 L!BU,26),$TC -GET TIME 
LVI,4,Z TCC 03-2.32 
STNIB,27,1),Z TCC ST 
LVI,3,JFLDB+2.0 

_Z__T_C_C_g2_LVL5i.|3 

_SIC,Z_END 



WA0g0880 

wAoooaai' 

WA000882 

wAOOoaas 

WA000a84 
WA000885 



032000.20 50 



033100. IC DO 



C0CC23.12 30 



41*_2355g7_.4C_ 
46* 235510,00 
49* 23551C.40 



_2_3_5_c_2gt4g_8g 

23500"4.10 CO 
000C01.C7 05 



wAggg886 

WA0008B6 
WA00O887 



B,Z CONV C 
S/ + 1 ,3, 1.0 



-CONVERT BCD ZERO TC DEC ZERO 



*Nai 



TIME CLOCK 0G054C41 PUNID 22SCOM0 



CARD ID V^A00C889 



DIST. OF 3/01 



3/01 



PAGE NUMBER 379 



LINE 



LOCATION 



BINARY OUTPUT 



NAME 



STATEMENT 



LOCATION 



235511 



1* 235511. CG 

2* 235511.40 

3» 235512.00 

«» 235513.00 



000002.51 
COCCOO.IO 
702000.00 
235540. CO 



05 
04 
80 

80 



414027.21 90 
033112. CC 90 



V+I,4,2.32 
B,0.0($4) 
TCC 03 »nBU,l2),3600,46 

l^tLBi27,l)jZ TCC ST, 20 

B.Z TCC 02 



WA000889 
WA000890 
WA000891 
WA0008g2 



5* 235514. CG 



235507.10 00 



WA000893 



1* 

€» 

S» 

1C» 



235514.40 
235515.40 
235516.40 
235517. CC 
235520. CO 



74CC00.C0 
235540.00 
235507.10 
000011.00 
235540. CO 



80 
80 
CO 
80 

80 



406027.21 
033112.00 

022012.20 
033112.00 



90 
90 

50 

10 



»I(eU,6),60,46 
M+(B,27,1),Z TCC ST, 20 
B,Z TCC 02 
HBU,18),$R,20 
+(B,27,1),Z TCC ST,2C 



WA000894 
WA000895 
WA000896 
WA000897 
WA000898 



11* 235521.00 233143.00 80 033112.00 DC ST(B,27,1),S TIME K,20 -SET TIME CONSTANT 



WA000899 



12» 
13* 
14* 
15» 
16* 



235522.00 
235522.40 
235523.00 
235523.40 
235524. CG 



G0C040.1C 
00CC43.G0 
235537. CC 
C00G40.10 
C0CC43.40 



GO 
80 
80 
CO 

80 



e,DHCP 
rDTIME 
,Z TCC 11 

B,D MCP 
,0 COMM 



WA00090G 
WA000900 
WA000900 
WA000901 
WA000902 



18» 
19» 
2C» 
21* 
22* 



23_5524.4C^ 
235525. CC 
235525.40 
235526. OC 
235526.40 



2 3 55 34.00+ 

CCCCC4 

C0CC06.13 01 
234504.52 90 
234637.32 42 



__ VF^ZTCCIC 

CF,4.0 
LVI,$5,6.0 
KV,$5, JBRKC+l.O 

BXL,JNQPX -CO NOT HAVE DATE GIVEN 
PUT IN THE DATE FRO^ THE 6TH FIELD**** 



WA000903 
"WA000904 
WA000905 
WA000906 
WA000907 
WA000908 



22* 
2^* 
25« 
26* 
21* 
2f ♦ 



235527_.C0_ 
235527. 4C 
235530. CO 
235530.40 
235531.40 
235532. 4C 



215C15.05 
234565. C3 
00CC10.05 
000000.06 
000000.10 

_2_3_5_5_3J0_'_'^A 
234637.10 

00CC00.30 



CC0OCO.OO+ 



CI 
CI 
02 
81 
82 

00 
CO 



_Ly.l»_*?»STODAY 
LVI,$1,JFL0B+"5.C 
LCI, $2, 8. G 
L(BU,6)tV+I J,.6($l) 
ST(BU,8)tV+I),.8(*2) 
CB,$2, V TCC LP 



WAq00909 
WA000910" 

HAOoogu 

WA0Q0gi2 
WA000913 
WA000914 



106000.20 50 
110000. 2C CO 



V TCC LP 



- PICK UP DATE FIELD 



-CONVERT A6 TO A8 



2i» 
3C» 
31* 
32* 
33* 
3^» 



235533_.CC 

235533.40" 

235534.00 

235537.00 

23554C.C0 



8,J NOPX 

"CNOP 

{ IQS*)DC(BU), 
( IQS*)DD{BU), 
VF,C.O 



WA000915 
"WA000916" 
WA000917 
WA000918 
WA000919 
WA000920 



Z TCC 10 
Z TCC 11 
Z TCC ST 



TIME 



AFTER 



CALIBRATION * 



35* 
36* 
37* 
3€* 
3S* 
4C« 



■COMMENT VIA COMD ROUTINE- 



WA0G0921 
WA0C0922 
WA000923 
WA000924 
WA000925 
WA000926 



23554C, 
235541, 
235542. 
235542- 



40 
00 
CO 
40 



00 0011.33 
C0CC02.C0 
235555.74 
00C254.G0 



10 
80 
C2 

80 



422027.05 70 



422027.05 70 



VVCCMJ SX,JXMSK,$R 

CTI00l0CBU,18),JOP,46 

BRZ.VVOPTP -OPERATOR COMMENT 

CTIC01C(BU, 18),JSR+JJ1+J0V+JGN,46 



41^* 
42* 
43* 
4^« 
45* 
46* 



235543< 
235544^ 
235545, 
235545, 
235546. 
235546. 



40 

00~ 

00 

40 

00 

40 



23 4637.34 C 2 
G0C454.C0 80 
234637.34 C2 

234574.30 10 
234550.22 OC 

235546.31 48 



8 R Z , J N q PX -.LGAQM _B 

CTIC010(BU,18),JSR+JJ1+JOV+JOF,46 

BRZ.JNOPX -IGNORE B 

LX,$12,JJX1 

Z,JCBUF($12) -CLEAR JCBUF 

CB+,$12,VZER0 



CARD IN PHASE 1 SCAN 



WAq00927 
"WA000928" 
WA000929 
hA000930 
WA000931 
WA000932 



422027.05 70 



CARD IN PHASE I SCAN 



VZERO 



i Z* _ 2 3 5 54 7 . C C _2_3A5.5 q.„3 7 

'4e* 235547.40 230567.44 
4S* 23555C.CC 231366.66+ 
5C* 235550.40 CCC065 
51* 235551. CC 234550.00+ 
52* 235551.40 235552. CO 



CI 

00 



00 



'BD,SA6ICS 
VF,YUCBFl+.54 
CF,53 
VF, JCBUF 
BE, $+.32 



-CONSOLE _ U T P U J^C A R D _S_OU RC E 

-CONVERT FROM A6 TO ICS 

-BUFFER WITH CHARACTERS TO CONVERT 

-COUNT OF CHARACTERS TO CONVERT 



WA000933 

WA000934" 

WA000935 

WA000936 

WA000937 

WA000938 



53* 2355 52_.CC 000040.10 

5^* 235552.40 » C0CC43.4C 

55* 235553. CC 23455C.00+ 

5i» 235553. ^Q CCC0C7 



80 



B^DMCP 
~,DCCMM 
VF, JCBUF 
OF, 7.0 



WA000939 

^<A000940 

WA000941 

WA000942 



'wai 



TIME CLGCK 00C54C41 



PUNIC 22SC0PD 



CARD ID WA0009A3 



DIST. OF 3/Cl 



3/01 



PAGE NUMBER 380 



LINE 



LOCATICN 



BINARY CUTPUT 



NAME 



STATEMENT 



LOCATION 



23555A 



1» 

2» 
3* 



235554.00 
235554.40 
235555.00 



234550.35 01 
000065.35 02 
235556.50 CO 



LVI,14,JCBUF 
LCI, 14, 53 
B,VVTPCN 

- — COMMENT ONTO 



-PREPARE TO WRITE ON TAPE 



TAPE 



WA000g43 
WA000944 
WA000945 
WA000946 



I* 

i* 
1* 
€• 
S» 
1C» 



2 355 55 
235556 
235556 
235557 
235557 
23556C 



".CC 
.40 
.00 
.40 

.00 



_2Alcoq._35 

232721.34 
235563.35 
235563.75 
234574.30 
234560.22 



01 
50 
00 
50 
10 

oc 



_y.VC_P T P _ _ _L V 1 , 1 4 , PM C P B f + 3 . C^ 
LC,14,JSIZ£ 

VVTPCN SVA,14,VVBFAD 
SC, 14,VVBFCT 
LX,$12,JJX1 

_yZ_ERJD_l ZlJFLDB1$12_) 



-IQS FORM 



WAgpp947 
WA000948 
WA000949 
WA000950 
WA000951 
WA000952 



li*_2 3 5560_._4J] ^2_3_5 560.31_48 

12* 235561. CC 235570. CC 80 
13* 235562. CC 235563.37 01 
14» 235562.40 230504.44 00 
15* 235563.00 CCCOCC.OO+ 
16* 235563.40 CCOOCC 



C8+,$12,VZERPi_ 

TI, 1,VDLB,JFLDB 

LVI,15,$+1.C 

BD,SIQSA8 

VF,C 

CFtC.O__^ 



WA00p953 
WA000954 
WA000955 
WA000956 
WA000957 
WA000g58 



234560.02 AC 



-CONVERT FROM IGS TO AS 



VVBFAD 
VVBFCT 



1 1 * _ 2 3_5 5 6 4_. 0_0_ _ _ _ _2_3_4 5_6 C_._l 1 _ 
1£* 235564.40 224052. CC 
19* 235565.00 224046.44 
2C« 235565.40 234560,00 
2\* 235566.00 » 000007.00 
22* 235566. 4C 000012.31 



VFs.JFLCE+^8 

SIC,ZSPLP9 

BD.ZSPLPR 

fJFLOB 

,7.0 

LVI, 12,10.0 



WAgpp959_ 

WA000960 

WA000961 

WA000962 

WA000963 

WA000964 



80 
CO 
80 
80 
01 



-CONSOLE OR 



-WRITE CN 
PP SOURCE 



TAPE 



.23*. 
2^* 
25* 



235567, 
235567. 
235570, 



cc_ 

40 
00 



_2_3_4_633_._G_0 _C 
OOCCOO.30 00 



_BE,_ZEXIIX 

CNOP 

DD(BU,8), (2)0010CG01 



_-ACKNQ.^lLEDGE .ACCEPTANCE, ANp_ _R_ETURN 
-DOUBLE SPACE PRINTER CODE 



WAO0g?65 

'WAC00966~ 

WA000967 



041 VLUB 



'Kai 



TIME CLOCK CCC54C41 PUNID 


22SC0MD 


CARD 


ID ZAOOOOOl DIST. OF 3/Cl 3/01 PAGE NUMBER 381 




LINE LOC/^TICN 


BINARY OUTPUT 




NAME 


STATEMENT . LOCATION 




I* 


« 












PUNFUL 


ZAOOOOOl 


2« 


235570.10 












{CC«)DD(By,,12J,B HED, REP, 22$ECJ, LOAD,, * 


ZA000002 


3* 


235600.44 












tCC*)00(BU,,12), 22$E0J* 


ZA000003 


A» 


•» 












PUNCRG 


ZA000004 


5» 














PUNIC,22$£0J 


ZA000005 


e* 














RESEQ 


ZA000006 


?• 


020000.00 












SLCYPPMEM 


ZA000007 


£» 












_ — 




ZA000008 


1C» 












_ — 


JOS CONTROL 4 — 


ZA000009 
ZAOOOOIO 






11* 


020000.00 


000116.75 


04 








KVI,$14,SJC4 


ZAOOOOll 


12* 


02CCCC.40 


C2CC21.72 


C2 








BXE,YC482 


ZA000012 


13* 


020001.00 


220644.00 


80 


215047. CO 


AC 




TI,16,FkIT,SIT+2C. -RESTORE THE MASKABLE INTRPT SLOTS IN THE 


ZA000013 


1^» 


020002.00 


220664. CO 


80 


215067.30 


AC 




TI,12,FWIT+16.,SIT+36. -INT T8LE BEFORE NEXT JOB STARTS 


ZA000014 


15* 


020003.00 


215C07.34 


30 








LV,$14,SDKMCP 


ZA000015 


le* 


020003.40 


215C07.75 


30 








SV,$14,SSYRFT 


ZA000016 


17» 


020004.00 


215001. C3 


80 


021017.74 


02 




BB,SC0RG,YC4INT 


ZA000017 


1€* 


020005.00 


231501. CI 


80 


001000.00 


FO 




CMOCOO,YEOJS 


ZAOoooia 


IS* 


020006.00 


230364.74 


80 


001000.00 


FO 




CMO000(8U,l),REJJO8+.6O 


ZA000019 


2C» 


020007-00 


C0CC40.1C 


CO 








B,DMCP 


ZA000020 


21« 


020007.40 


000117.40 


80 








,SKCM 


ZA000021 


22* 


02CC1C.CC 


000C01.4C 


80 








,1.32 -EJSCAN 


ZA000022 J 


23* 


020010.40 


C20C11.77 


01 








LVI,$15,$+1.0 


ZA000023 


24* 


020011.00 


023C06.10 


00 








B.TJUNAS 


ZA000024 


25* 


020011.40 


215001.22 


80 


001000. GO 


FO 




CMOCCCSJEUSY 


ZA000025 


2e* 


020012.40 


000040.10 


00 








8,0 MCP -iCGGER 2 ENTRY 


ZA000026 


27* 


020013.00 * 


000121. CO 


80 








,S LOG 2 


ZA000027 


2£* 


02C013.40 


C00G62.37 


02 








LCI, $15, 50. 


ZA000028 


2S* 


020014.00 


215466.77 


50 








SC,$15,YMISC0 


ZA000029 


3C» 


02C014.40 


232630.22 


00 








Z,PONQUT 


ZA00003G 


31* 


020015.00 


232631.22 


00 








Z,PCN0tT+l.0 


ZA000031 


32* 


020015.40 


232632.22 


00 








Z,PCN0UT+2.0 ' 


ZA000032 


33* 


020016.00 


234663.40 


80 


001000. CO 


FO 




CMOCOO(BU,ll,PHOL08 


ZA000033 


3A« 


02C017.00 


220453.22 


00 








Z,KSILO+2.0 


ZA000034 


35* 


02C017.40 


231501.00 


80 


020021.74 


06 




BBZ,YSSPBT,YC4B2 


ZA000035 


36* 


020020.40 


000040.10 


00 








8,DMCP 


ZA000036 


37* 


020021.00 


000115.40 


80 








,SSPEOJ 


ZA000037 


3€* 












- 




ZA000038 


35* 












- «•••««««««««««««••«••••••••«»••»««•«•••««*««•*•«•••«»•«••*««•••••••»•• 


ZA000039 


4C* 












- 


ON THIS PAGE WE REAC THE JOB CARD, PUT IT ON THE SPOOL LISTING, 


ZA000040 


41* 












- 


LOG BEGINNING OF JOB, AND TELL THE OPERATOR THAT THE NEW JOB IS 


ZA000041 


42* 












- 


ABOUT TO START 


ZA000042 


42* 












- «•«««««««*•««««««••«••«»**«««•«»**»*••««•««••••«»«•«««««««««»«««••««•« 


ZA000043 


4<* 


02CC21.4C 


231545.51 


80 


020025.34 


02 


YC4B2 


BB,LFINB,$+3.32 


ZA000044 


45* 


020022.40 


215571.00 


80 








.SICSPRIMR 


ZA000045 


46* 


02CC23.G0 


215570.04 


00 








BD,SPRIME 


ZA000046 


4 7* 


02CC23.40 


C0C116,40 


80 








,SJC4 


ZA000047 


46* 


020024.00 


C0CC40.C0 


GO 






ZYC4B2 


Bb,$MCP 


ZA000048 


4S* 


020024. 4C 


000041.00 


80 








,$RET 


ZA000049 


5C» 


020025.00 


215C01.22 


80 


020024.34 


02 




BB,SJBUSY,ZYC4B2 


ZA000050 


51* 


020026.00 » 


230364.74 


80 


020031.34 


04 




BZBZ, RE J JOB. 60, RNOREJ 


ZAOOOOSi 


52* 


020027.00 


215011.60 


50 








LC,$8,SREJJB 


ZA000052 " 


52* 


020027. 4C 


020403.30 


42 








BXCZ,WSYSC2 


ZA000052 


54* 


02C03C.00 


CCCCC1.21 


08 








C-I,$8, 1.0 


ZA000053 


55* 


020030.40 


215011.61 


50 








SC,$8,SREJJB 


ZA000053 


56* 


020031.00 


OCCC40.10 


CO 






RNOREJ 


B,$MCP 


ZA00G054 



*Nai 



TIME CLOCK 0005ACA1 



PUNID 22$E0J 



CARD ID ZA000055 



DIST. OF 3/Cl 



3/01 



PAGE NUMBER 382 



LINE 



LGCATICN 



BINARY CUTPUT 



NAME 



STATEMENT 



LOCATION 



020031 



]• 020031.40 
2» 020032.00 
I* 020032.40 
^* 020033.00 



000117.00 80 

231462.00 80 

020412.10 00 

020034.35 01 



,SSCR4 
,YBCBU 

8,WSYSCA+.32 
LVI,$14,YUC01 



-TC UNCODE 



ZA000055 
ZA000056 
ZA000057 
ZA000058 



1* 

1C» 



020033 
020034 
020035 
020035 
020036 
020G36 



.00 
.00 
.40 
.00 
.40 



___2_31215. 
OCOOOC.OC 
000001.00 

231462. 

231443. 

020403. 



ic„oo 
+ ooo" 

+ 

00 80 
CO 80 
10 00 



BfLYUNCgC 

XW,0 

VF.l.O 

,Y8CBU 

,YJCDB1 

8tWSYSC2 



ZAgpp059 
ZA000060 
ZA000061 
ZA000062 
ZA000063 
ZA000064 



000000 OCCOCC 



YUCOl 



11? 
12* 
12» 
1^» 
15* 
16* 



020037 
02004C 
020040 
02CG41 
02C042 
020042 



.po_ 

.00 
.40 
.00 
.00 
.40 



_2_1_5P01._ 
020376. 
020372. 
215C01. 
C2C707. 
020750. 



ic_ap 

CO 80 
50 00 
22 80 
33 01 
35 BO 



020041.34 02 



_BB»_SYSMCDi$ + 2j.p_ 
SICtW RLJ RT 
BfWREJJB 
CM1111,SJBUSY 
LVIi$13,YJCDBU 
L\/Ei.$14iYYJCL___ 



.-BRANCH I F UNO VER_LAP_ 
TO REJECT JOBS 

-NORMAL RETURN 
_-CCNyERJ_ 6r B J J J H_ _B_CC_ 
_-J08_CARD_TC]_ _8r_B_I J_ _B_CP_ 

-INTO LOCATION YC4SMB 



-HOLLERITH FWA 

lA_8_FkiA 

:CONyERI„JOB_CARO 

-TC 8-BIT ICS FOR $COMM 



ZA0ppp65 
ZA000066 
ZA000066 
ZA000067 
ZA000068 
ZA000069 



-BR IF OVER 



001000.36 FO 



lit 
18* 
IS* 
2C» 
21* 
22* 



020043 
020043 
020044 
02C045 
020046 
020046 



.40 
.40 
.40 

.00 
.40 



_0_0_0C1_0._ 
000000. 

coocoo. 

020043. 
231462. 
020707. 



33_C2 
60 8E 
00 80 
73 48 
30 00 
30 00 



LCI, $13, 8 

LF(BU,48,6) (V+I) ,.48($14J 

SF(BU,64,8),0.0($13) 

CB+,$13,YJCLP 

NOP,YBCBU 
NOP.YJCCBU 



Z A 000070 
ZA000071 
ZA000072 
ZA000073 
ZA000074 
ZA000075 



160600.06 70 
000000.12 FO 



YJCLP 



23* 
24* 
25* 
26* 
27* 
2£» 



Q2CC47 
020047 
020050 
020050 
020051 
020051 



.00 
.40 
.00 
.40 
.00 
.40 



C2JDC_5JD. 

230567. 
231444.00 
CCOOIC 
C2C673.00 

224052. 



37_01 
44 CO 

+ 

+ 

C_P_8p 
50 00 



_LVItll5,$ + l.p 
BD,SA6ICS 
VF,YJCDB1+1,0 
CF,8 

VF,YC4CM1 
SICZSPLPg 



2AQQPP76 
ZA000077 
ZA000078 
ZA000079 
ZA000080 
ZA000081 



-LOCATION OF IQS JOB CSRO 



29* 
3C* 
31* 

32* 

33* 
34* 



020052 
020052 
020053 
020053 
020054 
020054 



•CC 
.40 
.00 
.40 
.00 
.40 



_2_2AC_4A. 
C2C706. 
000011. 
020054. 
000040. 
00C103. 



B._ZSPLPR 

,WSPLL 

,9.0 

BE,l+,32 

B,DMCP 

,67.0 



ZApppp82 
ZAOG0083 
ZA000084 
ZA000085 
ZA000086 
ZA000086 



00 80 

00 80 

CO CO 

10 00 

00 80 



3A* 

36* 
37* 
36* 

4C« 



020055 
020055 
020056 
02GC56 
020057 
020057 



•QP 
.40 
.00 
.40 
.00 
.4C 



___2_3_1A6_2_' 

GOCCOl. 

000C40. 

C0CC43. 
C20675.00 

000040. 



oo__ao 

CO 80 
10 00 
00 80 

+ 

tc_pp 
'^Q.AO 

CO 80 

77 01 

50 00 

+ 



_»_Y_B_CfiLI 

,1.C -TC 
B,D MCP 
,D TIME 
VF,YC4CM2 
B,OMCP 



ZApppp86 
ZA000086 
ZA000087 
ZA000088 

ZAOoooeg 

ZA000090 



$SPU KITH JOB CARD, 



42* 
43* 
44* 
45* 
46* 



Q2CC6P 
02CC6C 
020061 
02C061 
02CC62 
C2CC62 



.00 
.40 
.00 
.4C 
.00 
.40 



___0_0_C_0A3_« 
020672. 

CCC0C4 
02 0062. 
230504. 

C2G675,00 



_t_pCCMM 

,YC4CM 

CF,4.0 

LVI,$15,$+l. 

B,SIGSA8 

VF,YC4CM2 



ZApCpp?! 
"ZA000092" 
ZA000093 
ZA000094 
ZA00Q095 
ZA000096 



-CONVERT TIME FROM IGS TO A8 



4€* 
4S* 
5C* 
51* 
52* 



020063 
020063 
02C064 
02CC65 
020066 
020067 



•^9. 

.4C 
.00 

.00 
.00 
.CC 



_CiCCp_l_C_ _ _ _ 
C2G72C.CC 

215C14. 

C2C720. 

020720. 

215014. 



CF^e 

VF,YC4TIM 

L{BU,24,8),SDATE 

CH0l01(eU,8,8),YC4TIM,16 

CM0101(BU,8,8),YC4TIN,4C 

ILl1iSPAJE,YC4P_TI _-SAl_LPL 



ZA00pp97_ 
'ZA000098 
ZA000099 
ZAOOOIOO 
ZAOOOIOl 
ZA000102 



+ 

00 80 
20 80 
5C 80 
CO 80 



030000.20 50 
010000.12 FO 
010000.12 FO 

p2P72_5_.C_2__A_0_ 
020722.02 AO 



TAPE p A TE i NTO S PQCi- AE_S_SAG_E 
YS_pATE_FgR_SPCCL 

TH THE TIME AND DATE OF JOB 



53* 
54* 
55* 
56* 



020070 
02CC71 
020071 
020072 



..cp___ 

.00 * 

.40 

.OC 



215015. 
224052. 
224046. 
02C717, 



QQ_8P 

CO 80 
5C CO 
CC 80 



II»_ltSTCpAYj Y C 4 p_T_E_ _ "AC I _1QD A 
SIC,ZSPLP9 - TO SPOOL WI 
B,ZSPLPR 
,YC4DTS 



ZA00plO3 
ZA000104' 
ZA000105 
ZA000106 



Hai 



TIME CLOCK 00C54C41 PUNID 22$E0J 



CARD ID ZA0001G7 



CIST. OF 3/Cl 



3/01 



PAGE NUMBER 383 



z 
e 

' ( 



-LlN£___LPCAJiCA BINARY CUTPUT NAf'E STATEMENT LOCATION 



C20072 



1« 02CC72.4C 

2* 02CC73.C0 

3« 2CC7 3.A0 

<• 020074. CC 



00CCC7.CC 80 
C2C073.4C 00 
C0CC40.10 00 
C0C120.4C 80 



,7.C 

BE, $+.32 

B,D^CP 

,SLCG4- LOGGER 4 ENTRY 



ZA000107 
ZA000108 
ZA000109 
ZA000109 



'?_P2CC74_._4_C ^215001.10 80 0202 56. 74_0_0_ BZB , SYSMOD, W J4PA ZAOOOUO 



'Kfll 



TIME CLOCK CCC54C41 



PUNID 22$E0J 



CARC IC ZA000112 



CIST. OF 3/Cl 



3/01 



PAGE NUMBER 384 



LINE 



LOCATICN 



BINARY CUTPLiT 



NAME 



STATEMENT 



LOCATICN 



1» 
2* 



— «««•«•«•«•«««*«*«•••*»«•«•«*««»«•«•«•«•«*•••«•«•««••««••««««*«»••«•««• ZA000112 
HAVING PROCESSED THE JOB CARD, WE NOW SEQUENCE CHECK THE ZA000113 

REMZINING B CARDS, EXTRACTING FROM THEM THE NECESSARY INFORMATI ZA000114 
ON, AND SAVE THE IOCS STARTING AT LOCATION 41. ZAPP0115 



*««««»«««««»)(««««««»»•««««««»»«**••*•*«««««»*««»«««««»•*««««««»»*•«««« 



ZA000116 



1» 
£• 

IC* 



020075.40 
020076.00 
020076. 4C 
02C077.C0 
02C077.40 



C0CC40.I0 00 
G0C1C4.40 80 
231462. CO aO 

coccci.co ao 

OOCCOO.GC 80 



YTCSR 



B,DfCP 
,DSCR 
,YBCBU 
,1.0 

,0 



-GET 1 CARD 

— B CARD BUFFER 



ZA000117 
ZA000118 
ZA0G0119 
ZA000120 
ZA000121 



llt_Q2C10C.C0 ^0_2_0226._1C_CO 

12« 02C1CC.40 020102.35 01 

12* 02C101.C0 231215.10 CO 

14» 020102.00 CC00CG.00+ 000 000000 OOOOOC 

15* 02G103.CC CC0Q00.00+ 

16* 02C1C3.40 231462. CO 



_B,_YC4B 

LVI,$14,YTCINF 

B.YUNCOC 

XW,C 

VF,C.O 

tYBCBU 



ZA00P122 
ZA000123 
ZA000124 
ZA000125 
ZA000126 
ZA000127 



-TO UNCODE 



YTCINF 



80 
80 
CO 
80 
80 
80 
80 



11* 
1£* 
IS* 
2C* 
21* 
22* 



P2C_1_C4 
020104 
020105 
020106 
020107 
020110 



._QP_ 

.40 

.00 

.00 

.00 

.00 



c_c_cccg._cg 

020451.10 
020102.51 
220452.22 
2151301.03 
215001.03 



tO 

8,YTCERR 

L(BU,5),YTCINF+.41 
ST(BU,5),KSILC+1.18 
CM1010(BU,1),SC0R6,2 
_BB,SCCRG,YCOjei 



ZAQPP128_ 

ZA000129 

ZA000130 

ZA000131 

ZA000132 

ZA000133 



005000.20 50 
005000.20 DO 
001001.24 FO 
020766.34 02 



-ERROR RETURN 

-PUT INFORMATION INTO 

-COMMUNICATION REGION 



2 2*_02C111_.CC _C_0_Q.G3_5_._2 2 

2<» 020111.40 C0CC37.CC 
25* 020112.00 020233.10 
26* 020112.40 231462.00+ 
21* 020113.00 020226.10 
2£« 020113.40 020115.35 



CO 
80 
00 

00 

01 

00 



_Z_,_$13 

SIC, $15 

B.YRDFSC 

VF,YBCBU 

8,YC4B 

LVI,$14,YLCINF 



ZA0Ggi34 
ZA000135 
ZA000136 
ZA000137 
ZA00O138 
ZA000139 



YC4B5 



-READ 1 CARD FROM SOURCE 



-TC UNCODE 



2i* 

3C» 
31* 
32* 
33* 
34* 



Q2C114. 
020115, 
020116. 
020116, 
02C117, 
02C117. 



PP 
CO 
CO 
40 
GO 
40 



___2_3_l_2_l_5.ig 

CCCOCC.OO+ CGO COOOOO CCGCOC 
CC0002.0C+ 

231462. CO 

GOOCOO.CO 

C20452.50 



_B?.YyNCCC 

xw,c 

VF,2.0 
,YBCBU 
,0 
B.YLCERR 



ZAp0014g 
'ZA000141" 
ZA000142 
ZA000143 
ZA000144 
ZA000145 



YLCINF 



80 
80 

GO 



■_E_R R OR _RE lUR N _ 
-NORMAL RETURN 



_31« 
36* 
37* 
3£* 
3S* 
4C» 



Q2012C, 
02C120. 
020121. 

020121. 
Q2C122. 
020122. 



cc 

40 
00 

4C 

PP 
40 



P2_C_1_1_5_._3_4 
231430. 35 
215324.75 



i_g 

30 
30 



_L_X_»_$ 1 4 ,_Y L C I N F _ _ 
SV,$14,YECLL 
SV,$14,SLRBU+.32 

SC,$14,SLRBU 
_SCf_|14tSMAR|< 
KCL,_14,YMAX '_'" 



ZAp00146 
ZA000147 
ZA000148 
ZA000149 
ZA000150 
ZA000151 



YLl 



-LIMIT FOR LOADER) 



215324.35 50 
_2_1_5_C_1_2_._7 5_5P 

C3CC00.35 OA 



Alt 

42* 
42* 
44* 
45* 
4£« 



ZAQQP152 
ZA000153 
ZA000154 
ZA000155 
ZA000156 
ZA000157 



02C123, 
020123, 
02C124, 
020124. 
020125, 



CC 
4C 
00 
40 
40 



C2C124.33 
C30CC0.35 
215C05.35 
215324.71 
C0CC17.35 



42 
02 
50 
80 
01 



001000.36 FO 



BXH,$+l.C 

LCI,14,YMAX 

SC,$14, SBAPP 

CMllll(BU,l),SLREU+.57 

LVI,$14,15.C 



-INITIALIZE B.C. BIT 



Alt 
46* 
49* 
5C* 
51* 
52* 



Q2C126, 
020126, 
020127, 
02C130. 
02C131. 
02C131, 



99- 

40 

40 

40 

00 

40 



_2_3_1.4_3l?.35 
215C01.03 
215C01 
OOOCOl 
231444 
215C20 



30 
80 
80 
02 
10 
60 



SVl|14,YEPLL+1.P 

B8,SC0RG,$+2.0 
BZB,SYSMOO,WJCV-1.0 
LCI, $12, 1.0 
LX,$11,YJC0B1+1.0 
LVE,$12,SJCTWS 



ZAoppisa 

ZA000159 
ZA000160 
ZA000161 
ZA000162 
ZA000163 



10 
31 
26 
31 



020130.74 02 
020315.34 00 



-INITIALIZE SYSTEM CARD 



52* 
54* 
55* 
56* 



P 2 C_l 3 2_. CO 000037 . C C _ 8 

020132. 4C 020233.10 00 
020133.00 231462.00+ 
02G133.40 « C2C226.10 00 



YIGDSO 



SICi$15 
3,YRDFSC 
VF,YBCBL 
B,YC4B 



-READ 1 CARD FRCM SOURCE. 



ZA000164 
ZA000165' 
ZA000166 
ZA000167 



'NSI 



e 



flME CLOCK 0CC54C41 



PUNID 22$E0J 



CARD ID ZA000168 



DIST. OF 3/Cl 



3/01 



PAGE NUMBER 385 



LINE 



LOCATIGN 



BINARY CUTPUT 



NAME 



STATEMENT 



LOCATION 



G20I34 



1» 020134.00 
2» 020135.00 
I* 020136.00 
^» 020136.40 



231463.54 80 
11CC10.02 80 
020140.36 CO 
200440.20 80 



060000.20 50 
430014.23 10 

430000.23 10 



LtBU,485,YBCBU+1.44 -TYPE CARD CHECK 

KFIlBU,24J,f 8)11C01GC2,24 

BZAEtYIO 

KFHBU, 24), 18)20044020 



ZA000168 
ZA000169 
ZA000170 
ZA00017i 



5* 020137.40 



020132.36 C2 



BAE,YIOCSO 



ZA000172 



1* 
I* 

9* 
1C« 



020140. CC 
020140.40 
020141.00 
020142.00 
020143.00 



inni.n ic 

020142.35 01 
231215.10 00 

CC00CC.00+ 000 

CCC004.00+ 



COOOOO OCCCOC 



YIG SX,$11,-1.0{$12) 
LVI,$ 14,YI0CIN 
8,YUNC0D 

YICCIN XW,C 

VF,4.0 



-TC UNCODE 



ZA000173 
ZA000174 
ZA000175 
ZA000176 
ZA000177 



11? 
12» 
13* 
14» 
15* 
16* 



02pi43.4C_ 

02C144.C0 

020144.40 

020145.00 

020145.40 

020146. CO 



_2_31162.CC 80 

ccccoi.co ac 

020454.10 
000001.31 
020142.34 
CCCCOO.35 



,YBC8U 

",1.C($12) 



Z AGO 0178 
"ZA000179' 
ZA000180 
ZAdOOlBl 
ZA000182 
ZA000183 



CO 
00 
10 
IC 



BfYICCER 
C+I,$12,1.0 
LX, $14,YI0CIN 
SX,$14,C.C($12) 



-ERROR RETURN 

-NORMAL RETURN - STEP COUNT 
-GET INFORMATION FROM UNCODE 
-PLI_IN_ A L PH A_ S Lpj_ _F_0_R_ _0 EQ.OD E . 

^IS THIS A REEL CARD 



\1* 

ie» 

19* 
2C* 
21» 
22* 



020146.40 
020147.40 
020150.40 
02C151.C0 
020152.00 
020152.40 
020153.00" 



CO OG 01. 00 
231417.00 
020152.76 
C0CC00.64 
020522.34 
_0_0_0_G_1_7_. 3 1 
020132. 10 



8Q 
80 

C2 

8C 

C2 

05 
00 



060000.06 
060600.23 



7C 
10 



LFLGy,48Jj 1_. 0J_$1_2J_ 

KF.YRELMK 

BAE,YVI 

LF(BU, 12),.52($12) 

BRZ,YMCVJ1 

V+W$12,15.0 

B,YIODSO 



ZA000184 
'ZA000185 
ZA000186 
ZA000187 
ZA000188 
ZA000189 



014000.06 70 



Y VI 



-YES A REEL CARD IS PRESENT 
-IS THE REF NUMBER ZERO 
•YES - REJECT THE JOB 

-STEP THE CARD LOCATOR 

-GO BACK AND READ ANOTHER CARD 



23* 
2^* 
25* 
26» 
27* 
28* 



ZA000190 
ZA000191 
ZA000192 
ZA000193 
ZA000194 
ZA000195 



020153, 
020154^ 
020154" 
020155. 
020155. 
020156. 
02C157. 



40 

00" 

4C" 

00 

40 

00 

CC 



215020.31 
_C_0_0_G_33_.31_ 
020160.31 
CGOCOl.31 
020157.32 
000001.00 
020160.37 



BO 
10 
"30 
OA 
CO 
8C 
01 



IN TFI 
YC4C9 LVE,$ 



S SECTION WE ASSIGN I-O FOR THE P.P. USING THE SAVED lODS. 

« * « * •« « •ii«*«»««j 

12,SJCTWS 



»*•«•*•««««•«««»«««««»••••«•««•«•«•«»•«««««> 



-RESET CARD LOCATOR 



29* 

"3C» 

31* 

32* 

33* 
3<* 



SX,_$1 
SV,$1 
KCI,$ 
BZXE, 
CMOGO 
LVI,$ 



2, $11 

2,YDECVF 
12,1.0 
$+ 1.32 
0CBU,64),1.C($1 

15,$+1.0 

CGC 



_-A^VE _FCR MO VE PURPOSE S 

-SET FWA FOR DECODE ENTRY. 
-IF THIS IS LAST CARD -H , 
-ZERO OUT ALPHA +1 SLOT FOR 
-DECODE 
-TO DECODE 



ZAq00196 
"ZA000197" 
ZA000198 
ZA000199 
ZA000200 
ZA000201 



YC4DI 



000000.00 FC 



2) 



3 f * _q2C157.4C 2_3J._7_C3_._i_0_ _0_0 

36* 020160.00 CCC00C.00+ 
37* 020160.40 CC0007 
38* 020161.00 0COO0C.O0-^ 
39* 020161.40 020471.50 
4C* 020162.00 C0CC17.31 



_B_,_LCE 
VF,C 
CF,? 
VF,G 
B,YIC 
V + I,$ 



ZAqqq202 

~ZA000203" 
ZA000204 
ZA000205 
ZA000206 
ZA000207 



YDECVF 



00 
05 



ER2 

12,15.0 

2,YC4D1 

SCNFCG,* + 1.32" 
2,YCCNCG 



-ADDRESS CF ALPHA SLOT 

-DISPOSITION SLOT - RETURN 
-ERROR RETURN 

-NORMAL _RE TURN 

-STEP UP AND COUNT DOWN 



41* 
42* 
43* 
4^* 
45* 
46* 



020162, 
020163^ 
020164, 



40* 

00 

00 



020154.70 
215C01.02 
020166.31 



48 
80 
30 



CB,_$1 

"BZBZ, 

SV,$1 



ZAqqq2q8 

"ZA000209 
ZA000210 
ZA000211 
ZA000212 
ZA00C213 



020164.74 04 



020164.40 
020165.00 
02C166.00" 



020166.37 01 

021164 ._ 1 q q q 

CCOOCC.OO+ 111 



LVI ,$15,YC0NCG 

B,TASIGN 

"XW, 0,0, 0,7 



-DELIVER TO 1-0 ASSIGN 
-TC I-O ASSIGN 



\1* 
4£* 
49* 
5C* 
51* 
52* 



COOOOO OCCOCO 



YCCNCG 



ZAoqq2i4 

'ZA600215" 
ZA000216 
ZA000217 
ZA000218 
ZA000219 



020167.00 
020167.40 
020170.00 
020170.40 



020166.34 
020500.30 
215020.25 
C00032.3G 



10 
44 

BO 
80 



001000.36 FC 



LX,$14,YC0NCG 
BZXCZZ,YASREJ 
LVE,$1C,SJCTWS 
CMllll(BU,l),$10+.24 



-UNCVER LAPPED MODE 
-IF THE COUNT FUELD OF YCONCG 
-IS NON-ZERC CN RETURN, JOB 
-IS TO BE REJECTED 
-SET UP FOR INITIAL ENTRY 



53* 
5^* 
55* 
56* 



020171.40 
020172.00 
020172.40 
020173.00 



020174^25 30 

"COCCOl.27 08" 

02-0174.37 01 

022326.10 CO 



SV^Siq, YMOVXW 
C-I,$ll,1.0 
LVI,$15,YM0VXW 
B,TMCVE 



~T i ?^ I ? Y B I T I N MOVE 
-REDUCE SYSTEM CARD 
-TO MOVE 



JAOJ_X ^iCRD 

COUNTER BY 2, 



ZAqqq220 

ZA0C022r 

ZA000222 

ZA000223 



YMCVE 



'Kfll 



TIME CLOCK C005 


4041 PUNID 


22$E0J CARD 


ID ZA000224 DIST. CF 3/01 


3/01 PAGE NUMBER 386 




LINE LOCATICN 


BINARY CUTPUT 


NAf^E 


STATEMENT 


LOCATION 020174 




1» 


020174,00 


C0C00C.00+ 


100 


000000 OCOCOO 


VMCVXW 


XW,C,0,C,4 




ZA000224 


2* 


020175. CC 


020174.24 


10 






LX,$10,YMCVXW 




ZA000225 


2« 


020175.40 


020501.30 


40 






BZXCZ,YHOVEJ 




ZA000226 


^» 


020176.00 « 


000017.27 


05 




YfOJRP 


V+I,$ll,15. 




ZA000227 


5* 


020176.40 


020174.27 


30 






SV, JlltYHOVXk 




ZA000228 


d* 


020177. CC 


020172.66 


48 






CB,$11,YH0VE 




ZA000229 


7» 


020177.40 


215001.03 


80 


021017.74 02 


WJC4G1 


BB,SC0R6,YC4INT 




ZA000230 


£♦ 


020200.40 


215324.74 


30 




WJC4G 


LV*$14,SLRBU+.32 




ZA000231 


S* 


020201.00 


215324.34 


50 






LC,$14,SLRBU 




ZA000232 


1C» 


020201.40 


231426.35 


30 






SV,$14,YLCL1 


-LOWER LIMIT), AND YLOLKLGWER 


ZA000233 


11* 


020202.00 


231426.75 


50 






SC,$14,YLCL2 




ZA000234 


12* 


020202.40 


231426.31 


80 


001000.36 FO 


WJC4G2 


CMllll(BU,l),YL0Ll+.25 




ZA000235 


13* 


020203.40 


215467.33 


10 






SX,$13,SREA0S 




ZA000236 


14* 


020204.00 


215325.22 


00 






Z,SLRBU+1.0 


-SET LOV«ER REGISTERS 


ZA000237 


15* 


020204.40 


000033.03 


02 






LCI, $1,27. 


-TO ZERO 


ZA000238 


It* 


02C205.00 


215325.00 


80 


215326.02 2C 




Tt$lf SLR8U+1.0,SLRB(j + 2.C 


ZA000239 


11* 

le* 


020206.00 


215335.25 


80 


001000.36 FO 




CM1111(BU,1),SLRBU+9.21 


-SET IF MASK TO ONE 


ZA000240 


020207.00 


215335. CC 


80 


001000.36 FO 




CM1111(BIJ,1),SLR8U + 9.C 




ZA000241 


IS* 


020210.00 


215001.06 


80 


001000.36 FO 




CM1H1{8U,1),SPINCL 




ZA000242 


2C* 


020211.00 * 


215C01.13 


80 


002000.00 FC 




CM0G00{BU,2i,SSPFIX 




ZA000243 


21* 


020212.00 


215012.74 


30 






LV, $14, SHARK 


-SET UP $EDUMP 


ZA000244 


22* 


020212.40 


231430.75 


30 






SV,$14,YEDLL+.32 




ZA000245 


23* 


020213.00 


215571. CO 


80 






SICSPRIKR 




ZA000246 


24* 


020213.40 


215570.04 


00 






BD.SPRIKE 




ZA000247 


25* 


020214.00 


000102. GO 


80 






.CRESLD 




ZA000248 


2€* 


020214.40 


215C01.20 


80 


020217.34 00 




BZB,SJlFUL,$+2.32 




ZA000249 


21* 


020215.40 


215571.00 


80 






SICSPRIKR 




ZA0O025O 


2£» 


020216.00 


215570. C4 


CO 






BCSPRIME 


" 


ZA000251 


29* 


02C216.4C 


000114.40 


80 






,SJC1 




ZA000252 


3C* 


020217.00 


000040.00 


00 






QE.CMCP 




ZA000253 


31* 


020217.40 


000041.00 


80 






,SCRET 




ZA000254 


32* 










- 




>-'<r- - 


ZA000255 


32* 










- «««««»«*»««•«««««««««•««*•«••««««««««»•««««««•«•«*«•««»»•«««•«•««»•««• 


ZA000256 


34* 
35* 











— 


GENERAL ERROR ROUTINE - 
TO BEGINNING , SKIPPING 


PRINTS DIAGNOSIS CF ERROR ANC RETURNS 
UEJSCN IF £0J CARD WAS ENCOUNTERED. 


ZA000257 
ZA000258 


36* 










— «««»««««»»«»«»««««««*•««««««•««*««•««««*«*«««*«•»*«««*«»«»«««««•«««*«• 


ZA000259 


37* 


020220.00 


000000.00 


8A 


020726.20 AO 


YBRLOG 


TIr8,0{$10),YC4SNB 




ZA000260 


3£* 


020221.00 


C2C726.C3 


01 






LV1,1,YC4SMB 




ZA000261 


39* 


020221.40 


231204.40 


80 






SICYPRRET 




ZA000262 


4C» 


020222.00 


231172.10 


CO 






BfYPR 




ZA000262 


41* 


020222.40 


020226.10 


00 






B,YRESTR 




ZA000263 


42* 


020223.00+ 


+OOGOOOCO 




NULL 


YECJP 


SYN,$ 




ZA000264 


42* 










- 






ZA000265 


44* 


020223.00 


C20225.30 


80 


001000.36 FO 


WJC4C 


CMllll(BU,l),WM0VIQ+.24 


-INITIAL ENTRY BIT 


ZA000266 


45* 


020224.00 


020225.37 


01 






LVI,$15, V«MQVig 


- 


ZA000267 


46* 


020224.40 


C22326.10 


00 






8,T^'GVE 


-TO MOVE 


ZA000268 


47* 


020225.00 ♦ 


231445.00+ 000 


000000 000001 


^^^'fOVIQ 


XW,hBREAK+1.0,0,l,0 


TO REJECT NEXT JOB 


ZA000269 


48* 


020226.00 


231501.01 


80 


001000.36 FO 


WRESTR 


CM1111,Y£0JS 




ZA000270 


4S* 


020227.00 


215C01.C6 


80 


001000.00 FO 




CMOOOO{8U,1J,SPINCL 




ZA000271 


5C* 


02C23C.00 


215571. CO 


80 






SICSPRIMR 


— 


ZA000272 


51* 


020230.40 


215570.04 


CO 






BOtSPRIKE 


- 


ZA000273 


52* 


020231. CC 


000101. CO 


80 






,DE0J 


- 


ZA000274 


52* 


02C231.40 


020232.00 


00 






BE, $+.32 


- 


ZA000275 


54* 


02C232.00 


C0CC40.10 


00 






BfOVCP 


- 


ZA000276 


55* 


020232.40 


000041.00 


80 






,SCRET 




ZA000277 



*Kai 



C 



TIME CLOCK CCC54C41 PUNIC 


22$Eaj CARC 


ID ZA000279 OIST. CF 3/Cl 3/01 PAGE NUMBER 387 




LINE LOCATION 


BINARY OUTPUT 


^A^«E 


STATEMENT LOCATION 




1* 
2* 
2* 

A* 


020233.00 


C0CG35.32 


10 




SWITCHING SUBROUTINE TO READ ONE CARD FROH SOURCE. 
- •«»»««•«•»»»••«••*•#«*»•**«•»»•••♦•»»♦««•««»««««»»••«•«»»•»»*•»•«»•«» 

YRCFSO LX,tl3,$13 


ZA000279 
ZA000280 
ZA00028I 

ZA000282 


5* 


02C233.4C 


C2C240.63 


42 






BXF.YICCTM 


ZA000283 


e» 

7* 

fc* 

S* 

IC* 


02C234.CC 
02C234.40 
02C235.CC 
02C235.4C 
02C236.CC 


C0CCC0.34 
C2C236.35 
C0CC40.10 
000104.40 
COOCOO.CO 


3F 
30 
00 
80 
80 




YSPRDS 


LV,$14,C.C($I5) 
SV, $14, YSPRDS 
B,OMCP 
,OSCR 

,0 


ZA000284 
ZA000285 
ZA000286 
ZA000287 
ZA000288 


11* 


020236.40 


OOCCCl.CC 


ao 






,1.C 


ZA000289 


12* 
13* 
14* 
15* 
1£* 


02C237,CC 
020237. 4C 
02024C.GC 
020240.40 • 
02C241.40 


COCCCO.OO 
C0CC00.5C 
OOOCCl.lC 
215GC1.C3 
COCCCO.OO 


80 
CF 
OF 
80 
80 


020245.74 00 
231462,36 AO 


YIGDTM 


,0 

B,.32($15) 

B,1.0t$15) 

8Z8,SC0RG,YPPID4 

TI,15, {$13),Y8CBL 


ZA000290 
ZA000291 
ZA000292 
ZA000293 
ZA000294 


17* 


02C242.4C 


GCCC17.33 


C8 






C-I,$13,I5.0 


ZA000295 


1£* 
IS* 
2C* 
21* 
22* 


020243. CC 
020243.40 
020244.00 
020245. CO 
020245. 4C 


C0CC17.33 
020245.30 
231462.00 
COCCOl.lC 
231427. CO 


05 
40 
80 
CF 
80 


000000.00 FO 
020252.02 AO 


YPPID4 


V+I,$13,15.0 

BZXCZ,$+1.32 

CMOCOCYBCBU 

B,1.0{$15) 

TI,1,YDFCS,YI4TA 


ZA000296 
ZA000297 
ZA000298 
ZA000299 
ZA000300 


22* 


02C246.40 


CCCC17.33 


06 






V+IC,$13,15. 


ZA000301 


24» 
25* 
26* 
27* 
2£* 


020247.00 
020247.40 
020250. OG 
020250.40 


020250.70 
OO0GO2.33 
000042.33 
020253.33 


40 
05 
02 
30 




^ 


BZXCZ,$+1.32 
V + I, 13,2.0 
LCI, 13, 34. 
SV,13,YI4TA+l. 

CNCP 


ZA000302 
ZA000303 
ZA000304 
ZA000305 
ZA000305 


2S* 


02C251.CC 


00CC40.10 


CO 






B,ONCP 


ZA000306 


3C» 
31* 
32* 

33* 
34* 


020251.40 
02C252.00 * 
02C253.00 
020253.40 
020254.00 


000102.40 
COOCOl.CO 
COCCOO.CO 
231462. CO 
C0CC17.CC 


80 

80 
80 
80 




YI4TA 


,DFETCH 

DR(BU),(1) 

,0 

,YBCBU 

,15. 


ZA000307 
ZA000308 
ZA000309 
ZA000310 
ZA0C0311 


35* 


02C254.40 


COCCCO.OO 


80 






,0 


ZA000312 


36* 
37* 
36* 


020255.00 
02G255.4C 
02C256.C0 


020226. IC 
000000.30 
OOCCOl.lO 


CO 
00 
OF 






B,WR£STR 

NOP 

B,1.0{$15) 


ZA000313 
ZA000314 
ZA000315 


] 




\ 










. . • 













«N8I 



TIME CLOCK GCC5AC41 



PUNID 22$E0J 



C/iRD IC ZA000317 



CIST. OF 3/Cl 



3/01 



PAGE NUMBER 388 



LINE LOCATICN BINARY GUTPUT NANE STATEMENT J-CCA_T_ICN_ 



1* 
2* 

2* 

^« 020256. AC 



CCCG4C.10 00 

_C_Q.C1GA^A0 80 

231A62.00 80 

COCGOl.CC 80 

OOGCOO.CO 80 

C0CC00.30 CO 

231A62.00 80 0IA000.2C 50 



- READ TYPE CARD, STORE T.O.P. IN COMMUNICATION REGION 

- ««««»•«»#•#«»»«•«•»«••»•»••»*»«••»•*♦•«»»»»»•»«««»•»«•»»»*• 

WJAPA B,DMCP - 



ZA0003Lf 
ZA000318 
ZA000319 

ZA000320 



_5?_02C2 5 7.CC 
£« 020257. AO 
7* 020260. CC 
f» 020260. AC 
9* 02C261.C0 

1C» 02C26I.A0 



_,DSCR 

,YeCBU 

, l.O 

»0 
NOP 
L(BL,12i,YBCBU 



ZA00p32_l_ 

ZA000322 

ZA000323 

ZA000324 

ZA000325 

ZA000326 



li*_Q20262_._4_C_ 
li» 020263. AC 
13* 02026A.OO 
1A» 02026A.A0 
15* 020265.00 
16* 02C266.00 



1_1_C C 0.0 ._C G _8 _ A I AOp p_. 2 3_ _1_0_ 

02C256.76 C2 

C20265.35 01 

231215.10 CO 
000000.00+ 000 000000 OCCCOO 
CCGOOC,GO+ 



KFL?_By,12i,( 8 J 1_1 C_C_ 

BAEfVJJAPA 

LVI,$IA,WUNC2 

6,YUNC0C 

XM,CtO,C 

VF,C. 



ZA0gp327 
ZA000328 
ZA000329 
ZA000330 
ZAG00331 
ZA000332 



WJAPB 



WUNC2 



-TO UNCOOE SUBROUTINE 
-TCP CARD 



1 1 *_ P 2 C 2 6 6_. A_0_ _•_ 
1£* 020267.00 
IS* 020267. AC 
2C* 02027C.C0 
21* 02G271.00 
22* 020272. CO 



_2_3_l^_62._cg_ao 

COCCCO.GC 80 
C20A26.10 00 

G20265.51 80 005000.20 50 

220A52.22 80 0C5000.20 DO 

_2_l_5_C.0_l_._C3_80__00100l.2A_FG_ 

020265.53 80 020750. 7A 00 



_f_YeCBy 

.0 
BfWJCAQT 

L(BU,5),WUNC2+.41 
STCBU,5J,KSIL0*1.18 

CMlClC{BU,l),SC0RG,-2_ 



? A Op 03 33 
ZA000334 
ZA000335 
ZA000336 
ZA000337 
ZA000338 



-SPOOL MESSAGE, THEN REJECT 
-TO COMM. REGION 



221_P2C273_.CC_ 

24* 

25* 

26* 

27* 020274. OC 

2£« 020274. AC 



WJAPC __B_ZBtWUNC2 + .A3jYCGJ_B -J_C_C0_1PI_LE .SUBROUT INE_ 



ZA0pp33? 
ZA0003A0 
ZA000341 
ZA000342 
ZA000343 
ZA000344 



— «««««•«««»«««««««•««•»«•««««««««*••«•««««•«««*««»«««***»«** 

— TO I ASSIGN SUBROUTINE V^ITH I REQUESTS, FOR GO JOB 

— #««»»««*««««*««««*««••«••«««*««»*»«•««»«««•««*««•••«••••»•• 



020450.32 10 

2_1_5 CO 1_._C_2 _a p __p2p276.74p4 

020300.00 80 001000.36 FC 



WJ4PF LX,$13,WRDXW1 
WJ4PFF BZ6Z,SCNFCG,*+2.C 



-SET READ SOURCE TO SPOOL 



2i*_p2p275,.4p 
3C* 02C276.4C 
31* 020277.00 
32* 02C3CC.GC 



C11111i8yil]jWJCW 
LVI,$l5,WJCh 
B.TASIGN 
XW, 0,0,0 



-CONFIGURATION CHANGE 



ZApp0345 

'ZA0003A6' 

ZA000347 

ZA000348 



C2C300.37 01 WJ4PD 

021164. IC CO 
CC0OCC.OO+ 000 000000 OCCOOO WJCU 



^nai 



{ 



( 



20 
19 
18 
17 
16 
15 
14 
13 

11 

10 

8 

7 

5 

4 

2 

1 



TIME CLOCK CCC54C41 PUNIO 


22$E0J 


CARD 


IC ZA000350 CIST. OF 3/Cl 




3/01 PAGE NUMBER 389 




LINE LCCATICN 


BINARY OUTPUT 




NAME 


STATEMENT 




LCCATICN 




1* 
2* 

3* 


020301. CO 


02 0300.34 


10 






— READ LIM. CARD, SET P.P. LIMITS 
WJ4PE LX,14,WJCW 


ZA000350 
ZA000351 
ZA000352 

ZA000353 


5* 


0203CI.4C » 


02C432.30 


44 








8ZXCZZ,V»JC4QI 




- feAS JOB REJECTED 


ZA000354 J 


6* 
7* 

S* 
IC* 


0203C2.0C 
020302.40 
020303.40 
020304.00 
020304.40 


220461.34 
020317.40 
000037.00 
C2C233.10 
231462. CO 


10 
80 
80 
00 
80 


020120.74 


06 


WJ4PG 


LX,$14,KSIL0+8. 
BBZ,YTSP,YL1 
SIC, $15 
B,YRCFS0 
.YBCBU 




-IF A SPECIAL BSS CASE 
-READ ONE CARD 


ZA000355 
ZA000356 
ZA000357 
ZA000358 
ZA000359 


11* 


020305. CC 


000000.30 


00 








NOP 




— 


ZA000360 


12* 
13* 
14* 
15* 
It* 


020305.40 
020306.40 
020307.40 
020310.00 
020310.40 


231462. CO 
IICCOO.OO 
C2C303.76 
020311.35 
231215.10 


80 
80 
C2 
01 

00 


014000.20 
414000.23 


50 
10 


WJ4PH 


L(BL,12), YBCBU 
KFHBUf 12),C8)HC0 
eAE,WJ4PG 
LVI,$14,ViUNC3 
B,YLNCCC 




- TC UNCODE SUBROUTINE 


ZA000361 
ZA000362 
ZA000363 
ZA000364 

ZA000365 


17* 


020311.00 


CCC0CC.00+ 000 


COCOOO OCCOOO 


WUNC3 


XW,C,0,C 




- 


ZA000366 


1£* 
1^* 
2C* 
21* 
22* 


020312. CO 
020312.40 
020313.00 
020313.40 

020314. CO 


CCC0C2.00+ 
231462. CO 
231446.00 
020430.10 
C2C311.34 


80 
80 
00 
10 






WJ4PI 


VF,2.0 

, YBCBU 

,WJ0R2+3.0 
B,WJC4GL 
LX,$14,WUNC3 


f 


-LIMIT CARD 

-SPOOL MESSAGE, THEN REJECT 


ZA000367 
ZA000368 
ZA000369 
ZA000370 
ZA000371 


22* 


020314. 4C 


020120.50 


00 








B,YL1 






ZA000372 


2<* 
25* 
2£» 
27* 

2e* 


020315.00 * 
020316.00 


020331.30 
C0CC37.G0 


80 

80 


001000.36 


FO 


— READ ICD AND REEL CARDS. GG TO MOVE WITH EACH 

CMllll(BU,l),WMQVI0+.24 -SET INITIAL ENTRY BIT FOR TMOVE 
hJCV SIC, $15 


ZA000373 
ZA000374 
ZA000375 
ZA000376 
ZA000377 


2^» 


020316.40 


C2C233.1C 


CO 








B.YRDFSG 




-READ CNE CARD 


ZA000378 


3C* 
31* 
32* 

33* 
34* 


020317.00 
020317.40 
020320.00 
020321.00 
02G322.CC 


231462.00+ 
000000.30 
231462.00 
420000.00 
020364.36 


00 
80 
80 
CO 


014000.20 
414000.21 


50 
IC 


YTSP 
WJCVA 


VF, YBCBU 

NOP 

L{BU, 12), YBCBU 

KI{BU,12),(8)420C 

BZAE,WTEST 




-SPECIAL BSS IND. IS THE FIRST BIT 
-FIRST COLUMN OF HOLERITH CARD 
-IS IT A B CARD 
- NO 


ZA000379 
ZA000380 
ZA000381 
ZA000382 
ZA000383 


35* 


020322.40 


020324.35 


01 






WJCVB 


LVI,$14,WUNC4 




- 


ZA000384 


36* 
37* 
3E* 
3?* 
40* 


020323.00 
020324.00 
020325.00 
020325.40 
020326.00 


231215. 10 00 
CCCCCO.OO+ COO 
CC0004.00+ 

231462. CO 80 
231446.00 80 


000000 OCCCCC 


WUNC4 


B.YUNCOC 
XW,C,0,C 
VF,4.0 

,YeCBU 

,WJ0R2+3.0 




-TO UNCODE 

-lOD OR REEL CARD 


ZA000385 
ZA000386 
ZA000387 
ZA000388 
ZA000389 


41* 


020326.40 


020316.10 


00 








B.WJCV 




-IF AN INVALID CARD GET NEXT 


ZA000390 


42* 
43* 
44* 
45* 
46* 


020327.00 
020327.40 
020330.00 
020330.40 * 
020331.00 


020324.24 10 

231445.25 10 
020331.37 01 
022326.10 CO 

231445.00+ 000 


000000 OCCOOO 


WJCVC 
k^MCVIO 


LX,$10,WUNC4 
SX,$1C,WBREAK+1.0 
LVI,$15,WMOVI0 
8, TMOVE 
XW,WBREAK+1. 0,0,0 




-WITH ICD OR REEL CARDS 


ZA000391 
ZA000392 
ZA000393 
ZA000394 
ZA000395 











«Kai 



TIME CLOCK 00C54C41 PUNID 


22$E0J 1 


:ard 


IC ZAC00397 DIST. OF 3/01 


3/01 PAGE NUMBER 390 




LINE LOCATICN 


BINARY GUTPUT 




ISAHE 


STATEMENT 


LOCATION 




1* 
2* 
2* 

4» 


020332. CO 


020331.24 


10 






- v******************* «««*«••««*••«•••••« ««««»«*••••«•«••«««• 

— ANALYZE ERROR RETURN, GIVE ERROR MESSAGE 

- •»«»•««»•»»»«»««»»»•«««»»»»♦«••»«»«»•*««««»«»»•«•*••«»♦»«»» 

LX,$10,kNMOVIO 


ZA000397 

' ZA000398 

ZA000399 

ZA000400 


5* 


020332.40 


020316.30 


42 








BXCZ,WJCV 


-NC ERROR, NO REJECT 


ZA000401 


t* 

1* 

£* 

S* 

IC* 


020333.00 
020334.00 
020334.40 
020335.40 
02C336.40 


020331.34 
020346.34 
020603.20 
020324.64 
000004.23 


80 
C2 

80 
80 

02 


003000.06 

010000.12 
014300.06 


70 

FC 
70 




c0011(bu,3),wmovio+.28 
brz,wmcr'ej 

sf{bu,8,8),ymcvj«+5.16 
lf{bu,12,3),wunc4+.52 

LCI, $9,4.0 


-COPY FIRST THREE BITS OF COUNT F 

-TO REJECT 

-STORE IN REJECT MESSAGE 


ZA000402 
ZA000403 
ZA000404 
ZA000405 
ZA000406 


11* 


020337.00 


000000.23 


01 








LVI,$9,C 


- 


ZA000407 


12* 
13* 
14* 
15* 
16* 


020337.40 
020340.40 
020341.00 
020342.00 
020342.40 


C2C337.40 
02C342.34 
C24C00.00 
OOCC04.23 
02C337.62 


80 
CO 
80 

C5 
48 


010000.13 
410000.06 


79 
79 


WMCJL 


CT0101(BU,8),$,0($9) 

BZRZ,$+1.32 

LFI(BU,8),(2)0000101C,G(*9) -LOAD BCD ZERO 

V+I,$9,4.0 - 

CB,$9,WMGJL -CONVERT lOD REFERENCE NUMBER 


ZA000408 
ZA000409 
ZA000410 
ZA00041I 
ZA000412 


17* 


020343.00 


020601.10 


80 


040000.20 


DO 




ST{8U,32),YMOVJM+3.C8 


-STORE IN OUTPUT MESSAGE 


ZA000413 


16* 
IS* 
2C* 
21* 

22* 


020344.00 * 
020344.40 
020345.00 
020345.40 

020346.00 


020576. G3 
231204.40 
231172.10 
020346.00 
020331.52 


01 
80 
00 
00 

80 


004000.20 


50 


WNCREJ 


LVI,$1,YMCVJM 

SICYPRRET 

B,YPR 

8E,WM0REJ 

L(BU,4),WM0VI0+.42, 


-CHECK MOVE REJECT 
- LOAD REJECT BITS 


ZA000414 
ZA000415 
ZA000415 
ZAQ00416 
ZA000417 


22* 


02C347."CC 


C2C316.34 


C2 








BRZ,WJCV 


-NO REJECT, READ NEXT CARD 


ZA000418 


2<* 
25* 
2€* 
21* 

26* 


020347.40 
020350.40 
020351.40 
020352.40 
020353.40 


020331.51 
020331.55 
C2C331.53 
020331.52 
C2C353.60 


80 
80 
80 
80 

CO 


020354.34 
020360.34 
020362.34 
020356.34 


02 
02 
02 
02 




BB,WMQVI0+.4l,WINV -IF 
B6,WM0VIC+.45,WDISKA 
BB,WM0VIO+.43,WMEM0 
BB,KM0VI0+.42,HREFN0 

8EW,$ 


AN INVALID lOD CARD 

-REQUEST EXCEEDS DISK ALLOWED 
-EXCEEDING REEL POOL TABLE 
-INVALID REFERENCE NO. 
-JOB OUT OF PHASE 


ZA0G0419 
ZA000420 
ZA000421 
ZA000422 
ZA000423 


2S* 












OUT 


OF PHASE ERROR EXIT TO 


Bl WRITTEN 


ZA000424 


3C* 
31* 
32* 

32* 
3<* 


020354.00 
02C355.CC 
020355.40 
020356.00 
020356.40 


020542.00 
020440.03 
020356.50 
020622.03 
231204.40 


80 
01 
00 
01 
80 


020442.10 


AC 


IVlNV 

WREFNO 
W SIC 


ri,4,YMCJM4,wJC4CM+2. 

LVI,$1,WJC4QM 

B,WSIC 

LVI,1,YM0JM1 

SICYPRRET 


-SET FOR THE ILLEGAL CARD MESSAGE 

-■'■- ' ■<'- " 


ZA000425 
ZA000426 
ZA000427 
ZA000428 
ZA000429 


35* 


020357. CC 


231172.10 


CO 








B,YPR 




ZA000429 


36* 
3?» 
36* 
3S* 
4C« 


020357.40 * 

020360.00 

020360.40 

020361.00 

020361.40 


020226.00 
C2C612.C3 
231204.40 
231172.10 
020226. CO 


00 
01 
8C 
CO 
CO 






V4CISKA 


BE,WRESTR 

LVI,1,YMGJM2 

SICYPRRET 

BjYPR 

BE,V<RESTR 




ZA000430 
ZA000431 
ZA000432 
ZA000432 
ZA000433 


41* 
42* 
42* 
44* 
45* 
46* 


020362.00 
020362.40 
020363. CC 
02-0363.40 

020364.00 


020566. C3 
231204. 4C 
231172. IC 
02C226.00 

IICCOO.CC 


01 

80 
CO 
00 

80 


414000.21 


10 


V^TEST 


LVI,1,YI>'CJM3 

SICYPRRET 

8,YPR 

BE.WRESTR 

CNOP 

KI(BU,12),(8)11CC 


-IS IT A T CARD 


ZA000434 
ZA00043f» 
ZA000435 
ZA000436 
ZA000437 
ZA000438 


47* 


020365. CC 


020401.76 


C2 








BAE,WJ4VV 


-YES 


ZA000439 


46* 
4S« 
5C* 
51* 
52* 


02C365.40 
020366.40 
020367.40 
020370.00 
020371.00 


020331.30 80 
020371.30 80 
020371.37 CI 
022326.10 00 
231445.00+ 000 


020200.74 00 
001000.36 FC 

GOOOOO 000000 


hKCViX 


BZB,WMCVI0+.24,WJG4G 

CMllll(BU,lJ,V«M0VlX+.24 

LVI,$15,WM0VIX 

B,TM0VE 

Xk«,V>BREAK + 1.0,0 


-INITIAL ENTRY BIT ON 


ZA000440 
ZA000441 
ZA000442 
ZA000443 
ZA000444 


53* 


020372.00 


020200.50 


CO 








B,WJC4G 


- 


ZA00044i> 


^ 



'Nai 



TIME CLOCK CCC54C41 PUNID 


22$E0J 




CARD 


ID ZA000447 OIST. OF 3/Cl 


3/01 PAGE NUMBER 391 




LINE LOCATICN 


BINARY OUTPUT 




NAHE 


STATEMENT 


LCCATICN 




1» 














~ ««•«»•««»«««*•••«•••«•«««•»«•*«*«»««•«««*•*»»••••»«»«•••«»* 


ZA000447 


2* 














— SERVICE ROUTINES FOR ERROR 


MESSAGES, ETC. 


2A000448 


3* 














— ««••««•«»««*•«•««*••«««««««««««*«»«»«•«••»««••*•*•««««•«««• 


ZA000449 


<» 


020372. 4G 


215011.60 


50 








WREJJB 


LC,$8,SREJJB 


-NUMBER OF JOBS TO REJECT 


ZA000450 


5* 


020373.00 * 


C2C375.30 


42 










BXCZ,YTRT-.32 




ZA000451 


e* 


02C373.4C 


C0CC01.21 


08 










C-I,$8, 1.0 


_ 


ZA000452 


1* 


G2C374.0C 


215011.61 


50 










SC,$8,SREJJB 


- 


ZA000453 


€• 


020374. 4C 


020226.10 


GO 










BjWRESTR 




ZA000454 


c» 


020375. OC 


232232.34 


30 










LV»$14,TPPRUN 




ZA000455 


1C« 


02C375.4C 


000C01.61 


8E 


020375. 


.74 


04 


YTRT 


BZBZ,YTRB($14),$ 




ZA000456 


11» 


020376.40 


020400.37 


01 










LVI,$15,YTRMGV 




ZA000457 


12* 


020377,00 


C22326.10 


00 










B, FKOVE 




ZA000458 


13» 


020400.00 


CGC00G.00+ ( 


100 


000000 OCCCOl 


YTRMCV 


XW.CO, 1,0 


r 


ZA000459 


14» 


020401.00 


020375. IC 


00 










B,YTRT-.32 




ZA000460 


15* 


020401.40 


231426.71 


80 


001000. 


.36 


FO 


WJ4VV 


CM1111{BU,1},YTBIT 


— 


ZA000461 


le* 


02C4C2.40 


C2C316.10 


CO 










B,WJCV 


-READ NEXT CARD 


ZA000462 


I7» 


020403.00 


020376. GO 


80 








WSYSC2 


SICWREJRT 




ZA000463 


ie» 


020403.40 


020372.50 


GO 










B, WREJJB 




ZA000464 


IS* 


020404.00 


231443.00 


80 


060000. 


.20 


50 




L{BLt48),WJCR2 




ZA000465 


2C* 


020405.00 


231070.00 


80 


060000. 


.21 


10 




K(BU,48),YC0MDM 




ZA000466 


21* 


020406. CO 


020421.76 


CO 










BZAE,WJC4QJ 




ZA000467 


22* 


020406.40 • 


020411.77 


50 








WSYSCl 


SC,$15,k<SYSCA 


- 


ZA000468 


23* 


020407.00 


215571. CO 


80 










SICSPRIMR 


- 


ZA000469 


2^« 


020407.40 


215570.04 


00 










BD,SPRIME 


- 


ZA000470 


25* 


020410.00 


000120.00 


80 










,SCCPC 




ZA000471 


26* 


02C41G.4C 


000002,00 


80 










,2.0 




ZA000472 


27 • 


020411.00 


231443.00 


80 










,WJCR2 




ZA000473 


26* 


020411.40 


000000.00 


80 








teSYSCA 


,0. 


-FOR NUMBER OF FIELDS 


ZA000474 


29* 


020412.00 


C00C00.30 


CO 










NCP 




ZA000475 


3C« 


020412.40 


C0CC00.23 


02 










LCI, 9, 0.0 




ZA000476 


31» 


020413.00 


215C01.2G 


80 


020416. 


74 


00 




BZ8,SJ1FUL,ZJCBC1 




ZA000477 


32* 


020414.00 


020414.22 


48 










CB,g,$ 




ZA000478 


33* 


020414.40 


000040.10 


00 










B,DMCP 




ZA000479 


34* 


020415.00 


00CC43.40 


80 










,DCCMM 




ZA000479 


35* 


020415.40 


020676. CO 


80 










,YJ1FUL 




ZA000479 


[ 36* 


020416.00 


000010. CO 


80 










,8. 




ZA000479 


37* 


020416.40 


215571.00 


80 








ZJOBCl 


SICSPRIMR 




ZA000480 


3fi* 


020417,00 


215570. C4 


00 










BD.SPRIKE 


- 


ZA000481 


3?* 


020417.40 


C0C116.40 


80 










,SJC4 


- PRIME JC-4 


ZA000482 


AC* 


020420.00 


C2G420.40 


CO 










BE, $+.32 


- 


ZA000483 


41* 


020420.40 


000040.10 


GO 










B,DMCP 


- 


ZA000484 


45* 


020421.00 


000041. CO 


80 






y 




,SDRET 


- 


ZA000485 


43* 


020421.40 


00CC40. 10 


00 








WJC4QJ 


B.OMCP 


- 


ZA000486 


44» 


020422.00 » 


C00043.40 


80 










,DCCMM 




ZA000487 


45* 


020422.40 


020523.00 


80 










,YJCEM 


- 


ZA000488 


46* 


020423.00 


C0GC05.CC 


80 










,5.0 


- 


ZA000489 


47* 


020423.40 


231501.00 


80 


001000, 


36 


FO 




CM1111,YSSPBT 




ZA000490 


48* 


020424.40 


215001.10 


80 


020226. 


34 


02 




BB,SYSMCC,WR£STR 




ZA000491 


4<5* 


020425.40 


020223.10 


00 










B,WJC4Q 


-TC REJECT JOB 


ZA000492 


5C« 


020426.00 


C2G636.C3 


01 








WJC4eT 


LVI,1,YTCEM 




ZA000493 


51* 


020426.40 


231204.40 


80 










SICYPRRET 




ZA000494 


52* 


02C427.CC 


231172.10 


00 










B,YPR 




ZA0004g4 


53* 


02C427.40 


020223.00 


CO 










BE,WJC4Q 


-TO REJECT JOB 


ZA000495 


5A* 


020430.00 


020646. C3 


01 








WJC4QL 


LVI,1,YLCEM 




ZA000496 


55* 


020430.40 


231204.40 


80 










SICYPRRET 




ZA000497 


56* 


020431.00 


231172.10 


CO 










B,YPR 




ZA000497 



"Nai 



TIME CLOCK 0CC54C^1 



PUNID 22$EQJ 



CARD ID ZA000498 



DIST. OF 3/01 



3/01 



PAGE NUMBER 392 



LINE 



LOCATION 



BINARY OUTPUT 



NAME 



STATEMENT 



LOCATION 



020431 



1« 

2» 
4» 



020431.40 
020432.00 
020432.40 
020433.40 



020223. GO 00 
232224.74 30 
020317.40 80 
215C01.C3 80 



OOIOOG.CO FO 
001000.00 PC 



BE,WJC4C 
WJC4QI LV,$14,TNEXT 

CM0C00{BU,1),YTSP 

CMOOOOfSCORG 



-TO REJECT JOB 
-RESET THE SPECIAL BSS CASE INB. 



ZA000498 
ZA000499 
ZA000500 
ZA000501 



5 • 

1C« 



20434. 4_0_ 

020435. CO 

020436.00 

020436.40 

020437.00 

020437.40 



C_GCCC1.34_3E 
OOOGOO.CO 8E" 
020440. C3 01 
231204.40 80 
231172.10 CO 
020226,00 00 



LVt|14f l.j$_14) 

'TI,4,0.($14),WJC4CM + 2. 
LVI,1,WJC4QM 
SlCfYPRRET 
B,YPR 
BE.WRESTR 



Z AGO 05 02 
ZA000503 
ZA000504 
ZA0005O5 
ZA000505 
ZA0G0506 



020442.10 AC 



11* 
12* 
13» 
14» 
15« 



CNOP 

{AX)DD(RU), JOB REJECTED 

DRZ(U),(4) 

(AXJDDCEU), 

XW,0,O,YBCBU»0 

SYN,I^JCR2+1.0 



ZAOppSpj 
ZA000508 
ZA000509 
ZA000510 
ZA000511 
ZA000512 



020440.00 
020442. CO * 
020446.00 
020450.00 
231444.00+ 



000004.00 
CCCCCC.00+ 000 000000 231462 

_+.o_c c g go c g _ y_ _f i c_c_f o_4_ 



WJC4CM 



V^RCXWl 
HBREAK 



X 
X 



11* 

1£* 
I9» 
2C* 
21* 

22* 



— «««*«««««»«««««««••««•««««««»««•««*«««•«««««««««••«•««•*«««««««•««««*• 



ZAggg5i3 

"ZA000514 
ZA0G0515 
ZA000516 
ZA000517 

ZA000518 



020451.00 
Q2p451_.40 
02C452.C0 



020636.25 01 

_C2C_C_I5_._6 3 _gi 

C20457.5C GO 



ERROR ON T.C.P.,LIM, ORIOD CARD- PICK UP ERROR MESS AGE ( $10 ) , 
AND SET RETURN POINT IN CSE ERROR WAS FRAUDULENT IT-CARO) 

YTCERR LVI ,$1C,YTCEM 

LVI,$9,YTCSR ^-T._C.P^ CARD ERROR 



22» 
2<* 
25* 
26* 

2-J* 
2£* 



_B»_YeCERR 

LVI,$1C,YLC£H 
LVI,$9,YC4B5 
B,YBCERR 
LVI,$10,YICEM 
LVI,$9,YI0DS0 



ZAOOpSl? 
"ZA000520" 
ZA000521 
ZA000522 
ZA000523 
ZA000524 



020452.40 
020453. CO 
020453.40 
020454.00 
020454.40 



020646.25 CI 
020111.63 CI 
020457. 5C GO 
020656.25 01 
020132.23 01 



YLCERR 



YICCER 



21* 
3C* 
31* 
32* 

33* 

3^^* 



020455.00 
020456.00" 
020457. CO 



_2_3_l_37_3_._6i4 80 
G2C66G.50 80 
020457.50 GO 



030600. C6_7C 
040000.12 FO" 



LF(_BU^24,6],YUJ0E 

'SF(8U,32),YICEM+.16e 
8,YBCERR 



ZA000525 
"ZAC00526" 
ZA000527 
ZA000528 
ZA000529 
ZA000530 
ZA000531 



— «««••««««•«««»«««««••«««*•«•»*«•••««••«*«««««««««•««••«««««««•«•••«•*• 



35_* 
36* 
37* 
3£« 
3^* 
4C» 



3-Af^A'Q. _|RROR _-_ TE S T FOR T-C ARD AND FC R 
1ST PROGRAM CARD JhAS" BEEN ENCOUNTERED. 



IOCS, SEE ^yHETHER 



«««««««««»«»«««»«•««««««*««««««*«•••«*»««««««*•««««»«»«•«»»««•««««•««« 



020457.40 231462.00 80 

02C46G.4G * IICCOO.CO 80 

020461.40 020463.76 CO 

02C462.CC 231426. 71 80 



014000.20 50 
414000.23 10 

001000.36 FG 



YBCERR L(BU,12),YBCBU 

. KFKBU, 12),C2)001001CCGCOO 
BZAt,$+2.0 
CM11I1(I3U,1),YT8IT 



ZA000532 
ZA000533 
ZA000534 
ZA000535 
ZA000536 



Alt 

42* 
43* 
44* 

45* 
46* 



02046 
02C46 
02046 
02046 
02046 
02C46 



3j?CC 
3.40 
4.40 
5.00 
5.40 
6.00 



0_0_0_C_G_0_'_10 
42GCC0.G0 
020220.36 
C20656.25 
020220.32 
215324.30 



09 
80 
C6 
C4 
CO 
90 



8,g._ou?) 

KFKBU, 12), (2)10001CCC0C0G 

BAEZ,YBRLOG 

KVI,$10,YICEM 

8ZXE,YBRL0G 

KV»_$12iSLRBy__ 



ZA00G537 
"ZA000538" 
ZA000539 
ZA000540 
ZA000541 
ZA000542 



414000.23 10 



_-A8|;_iCpS_ A_P P R p_A_C H_I_N_Q. 
I F SO, RESET B LIMIT 



B LIMIT 



47* 
48* 
49* 
5C» 
51* 
52* 



02046 
02046 
02046 
02C47 
02047 
02047 



7.CC 
7.40 
COO 
0.40 

l.CG 



_0_2_0_4.7Q.32 
215324.31 
215C05.31 
CG0CG1.31 
020177.72 
02C153.5C 



^2 

30 
30 
OA 
C2 

CO 



BXL,YBLMCK__ 
SV, $12,SLRBU 
SV,$12,SBAPP 
KCI,$12,1.0 
BXE,WJC4G1 
B,YC4C? 



ZA0gp543 
ZA6o0544 
ZA000545 
ZA000546 
ZA000547 
ZA000548 



YBLMCK 



-IS NUMBER OF lODS ZERO 



'Nfll 



c 



TIME CLOCK 0G054C41 PUNID 


22$E0J 


CARD 


ID ZA000550 CIST. OF 3/Cl 3/01 PAGE NUMBER 393 




LINE LOCATION 


BINARY OUTPUT 




NAME 


STATEMENT LOCATION 




1* 
2* 

2 * 


020471.40 


i 

C2C161.34 


30 






DECODE REJECT - PICK UP DIAGNOSING MESSAGE, PUT IN YC4SHB , SET 
YICER2 LV,$14,YDECVF+1.C 


ZA000550 
ZA000551 
ZA000552 
ZA000553 


S» 


020472. CC 


00CCC4.35 


00 








V-I,$14,4.0 


ZA0C0554 


t* 
7* 
t» 
S* 
IC* 


02C472.4C 
020473.00 
020473.40 
020474. CC * 
02C475.C0 


02C501.30 
000036.34 
000036.34 
020736.00 
C2C530.CC 


06 
BO 
BO 
80 
80 


020726.20 
020726.04 


AO 
AC 




BXVLZZ,YMOVEJ 

V+,$14,$14 

V+,$14,$14 

TI,8,YC4SMB+8.0,YC4SMB 

TI,2,YDECJM,YC4SMB 


ZA000555 
ZA000556 
ZA000557 
ZA000558 
ZA000559 


U* 


020476.00 


020532.00 


8E 


020730.10 


AO 




TI,4,YDEJMlU14),YC4SMB+2.0 


ZA000560 


12* 
13* 

14* 
15* 
U* 


020477. CC 
020477. 4C 


C2C726.25 
020220. IC 


CI 

00 






LVI,$10,YC4SMe 
B.YBRLOG 

ASSIGN REJECT FIXUPUP 


ZA000561 
ZA000562 
ZA000563 
ZA000564 
ZA000565 


17* 












— #««*«*«««*«««««««»«»«•»««««««*«*«««•««•«•«««•»«««»«««»«««»«««««•«««•»« 


ZA000566 


l£* 
19* 
2C* 
21* 
22* 


02C5G0.C0 
020500.40 


020556.25 
020220.10 


01 
00 






YASREJ LVI,$10,YASRJM 
BtYBRLOG 

MOVE REJECT - ERROR MAY BE FATAL ( YMCV J2 ,3 J - IF NOT, DIAGNOSE ON 


ZA000567 
ZA000568 
ZA000569 
ZA000570 
ZA000571 


23* 












- 


SPOOL AND RETURN TO YMOJRP IN MAINSTREAM. 


ZA000572 


24* 
25* 
26* 
27* 
2t* 


020501.00 
020502.00 
020502.40 
02C503.4C 


020174.34 
020515.34 
020603.20 
020576.25 


80 
C2 

80 

01 


003300.06 
010000.12 


70 
FC 


YMCVEJ LF(BU,3,3),YM0VXW4.28 
BRZ,YMCVJ2 

SF(BU,8),YM0VJM+5.16 
LVI,$10,YM0VJM 


ZA000573 
ZA000574 
ZA000575 
ZA000576 
ZA000577 


29* 


020504.00 


00CC00.64 


8B 


014300. C6 


70 




LF{eU,12,3),.52($ll) 


ZA000578 


3C* 
31* 
32* 
33* 
34* 


02C5C5.0C 
020505. 4C 
020506. CC 
02C507.00 
020507.40 • 


000004.23 
C0CGOO.23 
02C5C6.C0 
02C510.74 
024CC0.00 


02 
CI 

80 
CO 

80 


010000.13 
410000.06 


79 
79 


YMCJL 


LCI, $9,4.0 

LVI,$9,C 

CT0101{BU,8),$,0($9) 

8ZRZ,$+1.32 

LFnBU,8),(2)0OOC101C,0C$9) 


ZA000579 
ZA000580 
ZA000S81 
ZA000582 
ZA000583 


35* 


020510.40 


0CCCC4.23 


05 








V+I,$9,4.0 


ZA000584 


3i* 
37* 
36* 
39* 
4C* 


020511. CC 
020511.40 
020512.40 
02C513.4C 
020514.00 


020506.22 
020601.10 
020576.00 
C20726.C3 
231204.40 


48 
80 
80 
CI 

80 


040000.20 
020726.20 


DO 

AC 




CB,$g,YM0JL 

ST{EU,32),YMQVJM+3,C8 

TI,8,YM0VJM,YC4SMB 

LVI,1,YC4SMB 

SICYPRRET 


ZA000585 
ZA000586 
ZA000587 
ZA000588 
ZA000589 


41* 


020514.40 


231172.10 


00 








B,YPR 


ZA000589 


42* 

43* 
44* 
45* 
46* 


02G515.0C 
020516. CC 
020517.00 
02C52C.0C 
02C52C.40 


020174.53 
020174.52 
020174.55 
C2C612.25 
C2C220.1C 


80 
80 
80 
01 

CO 


020521.34 
020522.34 
020176.34 


02 
02 
00 


YMCVJ2 


BB,YMCVXW+.43,YMCVJ3 
BB,YMOVXW+. 42, YMCVJl 
BZB,YMCVX^«+,45, YMOJRP 
LVI,$10,YM0JM2 

B.YERLCG 


ZA000590 
ZA000591 
ZA000592 
ZA000593 
ZA000594 


47» 


020521. CC 


020566.25 


01 






YMCVJ3 


LVI,$1C,YM0JM3 


ZA000595 


46* 
49* 
5C* 


020521.40 
020522.00 
020522.40 


020220.10 
020622.25 
C2C220.10 


CO 
01 
CO 






YMCVJl 


B.YBRLOG 

LVI,$10,YM0JM1 

B.YBRLOG 


ZA000596 
ZA000597 
ZA000598 







'Hai 



TIME CLOCK CCC54C41 



PUNID 22iE0J 



CARD ID ZA0006C0 



DIST. OF 3/Cl 



3/01 



PAGE NUMBER 394 



LINE 



LOCATION 



BINARY CUTPUT 



NAHE 



STATEMENT 



LOCATION 



1» 

i* 
3 * 
A* 



— »««•«« 



— «»*•*« 



• »•« 
JC4 

CNO 



ERROR MESSAGES 



ZA000600 
ZA000601 
ZA000602 
ZA000603 



_5» 

e* 
1* 
f » 

1C» 



02C52 3j.CC Jt YJCJEM LIQSXlDCi BUj 64jAb_ JIR£SMI_JCB REJECTEp_r_l^^|CB^ X 

CNOI 

(AX 

(AX 

(AX 

(AX 



'SXlDCi 

IP 

)DD(BU 
)DD(BU 
)DC(BU 
)DD(BU 



ZA0p06p4 

ZA000605" 

ZA000606 

ZA000607 

ZA000608 

ZA000609 



02C53C.0C 
020532.00 
020536.00 
02C542.CC 



YCECJM 
YCEJMl 



YHCJW4 



),-JOB REJECTED ..X 

), TAPE UNIT-CHANNEL CONFLICT. X 
), REELCARD FOLLOWS A NCN-TAPE ICOX 
) 1 _ T YPE__I S_ _ILLE_G_AL _gN _AN _ I gD_CARp_ X 



12* 
13* 
14* 
15* 
16» 



Q2C54fc_.C_C___ 
020552.00 ♦ 



02C556.00 

p2C560_.30_ 

02C563.4C 



_LAX 
(AX 
CNO 
CNO 
(AX 
(AX 



IDQIBU 

)DD{BU 

P 

P 

)DC(BU 

)DD{8U 



) 1 _ J ^«P J N F I N I T Y_ _piSK_R£CyESTS. 
), FIRST ICC CARD IS ILLEGAL 



),-JOB REJECTED-... X 

) i JrC_ AE_Q UJE_S_l.S_ _I_N(: (3 H P A T I B L E X 

), WITH CONFIGURATION. X 



X 
X 



?^Qpp6ip 

ZA000611 
ZA000612 
2A000613 
ZA000614 
ZA0006i5 



YASRJM 



11* 
If* 
IS* 
2C» 
21* 
22* 



LAX 
CNO 
(AX 
(AX 
CNO 
(AX 



IDCIBU 

P 

)OD(BU 

)0D{6U 

P 

)DD(BU 



ZAPPP616 
ZA000617 
ZA000618 
ZA000619 
ZA000620 
ZA000621 



02C566.C0 * 
020572.00 

Q2C576_.CC__ 
Q2C6CC^PP_ *_ 
02C6C2.CC 
020604. CC 

02C6C6.0C 
Q2C612_.CC__ 
02C614.CC * 



YMCJM3 



YFCVJM 



), -JOB REJECTED- B LIMIT IS TOG HIX 
),GH FOR I-O REQUESTS TC BE HONORDX 

)t- X_ 

i, IPP CARD HLAX 

),S A TYPE tRRX 
)t0R. X 

),DUE TC REPEATED UKS IN SCANNING. X 
1 , - J P B REJECTED-. .X 

),T00 MUCH DISK REX 



22* 
2A* 
25* 
2€» 
21* 
2£* 



_t_AX 
(AX 
(AX 
CNO 
(AX 
(AX 



IDOtBU 

)CD(BU 

)DD(BU 

P 

)DD(BU 

)DC(eu 



ZAppp622 
ZA000623 
ZA0P0624 
ZA000625 
ZA000626 
ZA000627 



YISUKM 
YMCJJ^2 



2il 

3C» 
31* 
32* 

33* 
34* 



(AX 
(AX 
(AX 
(AX 

CNO 



IQgiBU 
)DD{eU 
»DD{BU 
)DD(BU 
)DD(BU 
P 



ZApp0628 
ZA000629 
ZA00063O 
ZA000631 
ZA000632 
ZA000633 



02C616.00 
02C62C.C0 
02C622.00 
02C626.1C * 



YMCJMl 



), GUESTED. X 

)f X 

>,-J0B REJECTEO-... I 00 CARD HAS 

), INVALID REFERENCE NUMBER. 



ANX 
X 



35_» 
36* 
37* 
36* 
3S* 
4C* 



Q2C632. 
020636. 
02C642. 
02C646. 
02C652. 
02C656. 



CC 
00 
CO 
OC 
CC 



Y JMJC_ 
YTCEM 

YLCEM 

YICEM 



"(AX 
(AX 
(AX 
(AX 

(AX 



)pp(BU 
)DD(BU 
)DD(8U 
)DD(fiU 
»DC(BU 
)DD(BU 



),- 
)f- 
),- 



JC B C ARp t RRO R 

TYPE CARD ERROR 
JOB REJECTEO. 
LIM CARD ERROR 
JCB REJECTED. 
lOD CARD 



X 

X 
X 
X 
X 

ERROR X 



ZA00p634 
ZA000635 
ZA000636 
ZA000637 
ZA000638 
ZA000639 



42* 

43* 
4^* 
45* 
46* 



Q2C662. 

02C666, 

02C672 

02C672. 

020673. 

02C674, 



op 

OC 
GO 
4C 
00 

CC 



LAX Lpp L By 1 , r _ _ _ JCB_ R_e J ecJAD •_ 

( AX)DD(RU),BY OPERATOR IN PHASE ONE. 

00(BU,32),(16)OOCCCC1F - JOB IK RED 

DD(EU,32),{16)89CF0G00 

DD(BU), (16)0000000 - , TIME IN RED 

OD{eU» 32), (16)080093 ID 



ZAppp64p 
"ZA00064r 
ZA000642 
ZA000643 
ZA000644 
ZA000645 



00000CCC037 

211036CC0C0 

OOCOCOOOOOOOOOOOCCCOOO 

01000111435 



YCCMJM 
YC4CM 

Y C4CM1 



48* 

4<;* 

5C« 



Q2C674. 
02C675, 
02C676. 
020704. 



40_ 
CC 

CC 
00 



205052CCCC0 



PPLEy,32J,i 1 6J 8 5i_5_C_CCC_ 

( IQS*)DD(EU), * 

( IQS*)DD(BU),THE SCAN TABLES 

( IGS*)DC(BU),E STOPPED. 



ZAO 00646 
ZA000647 
'ZA000648 
ZA000649 



YC4CM2 
YJIFUL 



ARE FULL- THE PHASE I TAPE MAY B* 



>Kai 



TIME CLOCK CCC54CA1 



PUNID 22$ECJ 



C/SRD IC ZAC0C651 



DIST. OF 3/Cl 



3/01 



PAGE NUMBER 395 



LINE 



LCCATICN 



BINARY OUTPUT 



NAME 



STATEMENT 



LOCATION 



1« 
2* 

3 » 
4« 



TEMPORARY STORAGE + SYMBOLS FOR JC4 

CNOP 



ZA000651 
ZA000652 
ZA000653 

ZA00065A 



A*^ P 2 C7C 6_._0_0_ * 
i* 020707. CO 
1* 020717.CC 
E» 020720.00 
S» 020722.00 

IC* 020725. CO 



Jv_SPLL 
WSPLLl 
YC4DTS 
YC4TIM 
YC4DTE 
YC4DTI 



(AX)DD{eU),l 
"DRZ{U),8 
(AX)OO(EU),- 
IAX)DCIBU), 
{AX)DCtBU), 
( AX)DC(BU), 



ZA000655 
"ZA000656 
ZA000657 
ZA000658 
ZA000659 
ZA000660 



OOCCIO.CC 



-FOR JOB NAME 



TIME 



DATE X 
VERSION 



12* 
13» 
14* 
IS* 
16* 



CNOP 

'(AX)oc{eu), 

( AX)OCIBU), 
{ AX)DC{BU), 
,YUCBFl+;54 
SYN,WJCR2 



ZA00066J. 
'ZA000662" 
ZA00Q663 
ZA000664 
ZA000665 
ZA000666 



02C726. 
020734. 
02C742. 
020750. 
231443. 



CO * 
00 

CO ♦ 
CO 
00 + 



231366.66 80 
+CGCCOCCO 



y, ICC, 04 

N , ICC, 04 
N , ICC, 04 
BU,1C0,10 
U , ICC, 04 
BU.ICCIC 
BU,lCCjlC 
N , ICC, 04 



YC4SMB 



YYJCL 
YJCCBl 



X 
X 
X 



-A6 JOB CARD< 



U* 
IE* 
IS* 
2C» 
21* 
22* 



2 31426. 
2 31426. 
020202. 
02C707. 
020226. 
020226. 
231426. 



004 
4 C + 
40 + 
CC + 
00 + 
CC + 
71+" 



+CCC00OCO 
+CCCCOCCC 
+OCCOOOCO 
+CCCCOOCC 
+OOCOOOCC 
_+0_C_C_0_CCCO 
+OCCCCOCO 



YLCLl 

YLCL2 

YBCRC 

YJCCBU 

YRESTR 

YC4_B___ 

YTBIT 



SYNjYLLSAV 
SYN.YLLSAV' 
SYN,WJC4G2 
SYN, WSPLLl 
SYN,WRESTR 
SYN, YRESTR 



+ .32 



ZA000667 
ZA000668 
ZA000669 
ZA000670 
ZA000671 
ZA000672 



22* 
'24* 
25* 
26* 
27* 
2E« 



SYNkYLO 

BZBZ,SC 
CMlllK 



L2+.2 5 

•*• THE COMPILE AND G0 SUB ROUTINES •«•••*»••«*»* 



ZAqC0673 
"ZA000674" 
ZA000675 
ZA000676 
ZAD00677 
ZA000678 



020750. 
02C751^ 
02C752. 



40 
4C 
4G" 



215001. 
C2C_754. 
C2C754. 



02 80 
C_0_8_0 
37 CI 



020752.74 04 
001000.36 FO 



Y CGJB 



NFCG,$+2- 
BU,1),YDUM 



IF THERE IS A MACHINE CONF. CHANGE 



29* 
3C« 
31* 
32* 

33* 
34* 



LVI_^$15 
~B,TASIG 
XW,0,0, 
LV, $15, 
BZB,TRJ 
BB,KSIL 



,YDU 

N 

7 

TPPR 

ECT( 

+ 1. 



M 



ZAq00679 
"ZA000680" 
ZA000681 
ZA000682 
ZA000683 
ZA0006B4 



020753. 
020754. 
020755. 
020755. 
020756. 



OC 
00 
00 
40 
4C 



021164. 
OCCOOC.OO 
232232. 
COCCOO. 
22C452. 



IC CO 
+ COO 
36 30 
45 8F 
22 80 



000000 0CC007 

020762.74 OC 
020274.74 02 



Y DUM 



UN 
$15) 

18, W 



-(TO PRINT MESSAGES BEFORE COMPILING 
-SPEC. ENTRY TO ASSIGN TO RETURN WITHOUT STATUS 

,YC0JB2 
J4PFF 



31* 
36* 
37* 
36* 
3?» 
4C» 



020757. 
020760. 
020761. 
020761. 
020762. 
020762. 



4C 

00' 

00 

40 

00 

40 



C2C566. 
22C452. 
020274. 
CCCCCO. 
C20274. 
220452. 



35 01 
2 5 80 
74 CO 
34 9F 
72 42 
23 80 



LVI,$14 
CT110C( 
BZRZ,WJ 
KV,$14, 
BXL,WJ4 
BB,KSIL 



,YMO 

BU,2 

4PFF 

C($l 

PFF 

0+1. 

,YCP 



JM3 

),KSIL0+1.2r 

5) 

19,YC0JB1 

REJ 



ZAqqq685 

"ZA000686" 
ZA000687 
ZA000688 
ZA0006B9 
ZA000690 



0C2000.31 70 



020766.34 02 



YCCJB2 



41_» 
42* 
43* 
4^* 
45* 
46* 



020763. 
020764. 
02C765. 
020766. 
020766. 
02C767. 



4C 

CC" 

00 

00 

40 

CO 



j::2C765^. 

022326. 
CCCOCC.OO 
CCCCOO. 
020776. 
220460. 



37 CI 
10 00 
+ 000 
37 CI 
37 DO 
22 00 



LVI^$15 
"B,TM0VE 
XW,C,G, 
LVI,$15 
SVA,$15 
Z,KSILO 



ZAqqq69i 

"ZA000692' 
ZA000693 
ZA000694 
ZA000695 
ZA000696 



COCOOO OCCOOl 



YCPREJ 
YCCJfil 



1,0 
,0 

,YCIODC 
+ 7.0 



47* 

"4E» 

4S» 

5C» 
51* 
52* 



020767. 
020770. 
020771. 
020772. 
020773. 
020773. 



40 

4C" 

4C 

40 

00 

40 



231400. 

476300 

020773. 

00CC40. 

CGC102. 

CCCCCl. 



qq 80 

CO 80" 
40 80 
10 00 
40 80 

CO 



060000. 2 C__5_0_ 
414030. C6 7C 
060006. 2C CO 



L LB U 1^48 

LFKBU, 

ST(BU,4 

B,DMCP 

,DFETCH 

DR( BU) , 



),YUC8F2+2.0 
12),YCCIN,48 
8),YDFCTA,12 



11J___ 
JCTWS' 



ZAoqq6g7 

'ZA600698" 
ZA00069g 
ZA000700 
ZA000701 
ZA000702 



YLFCTA 



53* 
54* 
55* 
56* 



020774. 
020775. 
02C775. 
020776. 



4C 

00 
40 
00 



cqqccq. 

"215C20: 

coccoo, 

COCOOO. 



cq_80 
01 bo" 

CO 80 
GO 80 



,_q 

LVE, ,S 
,0 

,0 



ZAoqqjOi 

"ZA000704 
ZA000705 
ZA000706 



YCICDC 



'Kai 



TIME CLOCK 0C054C41 . PUNID 22$E0J CARD IC ZA000707 DIST. OF 3/Cl 
LINE LOCATTgN "binary CUTPU~T H^HB STATEMENT 



3/01 



PAGE NUMBER 396 
L C aTi on" ^020776 



1* 

2* 
2* 



02C776. 
02C777. 
020777. 

021C0C. 



40 
CO 
40 
00 



020451 
000000 
021C00 
23C622 



.10 CO 

.30 CO 
.77 01 
.0400 
.01 BO" 



B,YTCERR 

NOP 

LVI,$15,$+1.0 

BD,SCA6 



-CONVERT COMPILER NAMES TO BCD. 



ZA000707 
ZA000708 
ZA000709 
ZA000710 



2_1CG0. 
021001, 
02*1001. 
021CC2. 
021002. 
021GC3. 



CO 
40 
CO 
40 
CO 



^2A5C2g 

CC012C 

231366.0 
021CC3 
230672 

231366.0 



4.yE,_,SJCTWS_ 

CF,80 

VF,YUCBF1 

LVI,$15,$*1.0 

B,SRRK8 

VF,YUCBFl+.6 



ZA000711 
ZA000712 
ZA000713 
ZA000714 
ZA000715 
ZA000716 



1* 
£* 
<i* 

1C« 



C + 

.37 01 
.IC CO 
6 + 



-BREAK OUT CARD 



III 
12* 
13» 
14* 
15* 

le* 



Q21Cp3_. 
021004. 
021004. 
021005. 
021005. 
021006. 



00 
40 
GO 
40 

00 



C_C_C1C7__ 
231376.0 
COCCOO 
021C05 
C21C06 
C21C04 



CFtZl. 

VF,YUCBF2 

fO 

BEWt$ 

BE, $+.32 

LCt$15,YPCCJ 



^ AGO 07 17 
ZA000716 
ZA000719 
ZA000720 
ZA000721 
ZA000722 



+ 

.CO 80 
.20 00 
.00 00 
.76 50 



YPCCT 



11* 
18* 
19« 
2C* 
21* 
22* 



P2i006. 
021007. 
021007. 
021010. 
021011. 
021012. 



4_G_ 

CO 

40 

40 

40 

40 



_2_2_04_51 
220451 
OICCCO 
215007 
220452 
231376 



._22_CC 
.37 50 
.00 80 
.40 80 
.00 80 
.00 80 



^tKSILC 

SC,$15,KSILC 
LI(BU,18),4096. 
-(BU, IBI.SSYRFT 
ST(EU,18),KSIL0+1.C 
_T f.%1 5 f Y UC B F2 J KS_IL + 2.0 



ZAgpp723_ 

ZA0C0724 

ZA000725 

ZA000726 

ZA000727 

ZA000728 



422000.20 50 
022000.30 10 
022000.20 DO 
220453. 36_2P 
001000.36 FO 



-TELL COMPILERS HOW BIG TWS IS 



II* 
24» 

25* 
26» 
27* 
2fc* 



021013. 
021014. 
021015. 
021015. 
021016. 
021017. 



^0 
40 
00 
40 
00 
00 



_C21Cj6p 
215020" 
000017 
020776 
G00C35 
C2G111 



._60_80 
.32 30 
.33 OS 
.32 50 
.31 80 
.50 00 



_CMlllltiyilijYC_IC_BT_ 
LV,$13,SJCTWS 
V+I,$13,15.0 
LC,$13,YCI0DC 
CMllll(BU,iy,$l3*.25 
B,YC4B5 



-SET READ SOURCE BIT 



ZA0gp729 
ZA000730 
ZA000731 
ZA000732 
ZA000733 
ZA000734 



001000.36 FO 



2i* 
3C» 
31* 

32* 

33» 
34* 



gcccgo^ 

021017. 
021020. 
021021. 
021022. 
021C22. 



40 
40 
40 
00 
40 



+ 0GC_04 
231501 
C21C60 
22C451 
OOCCOl 
22C451 



763 

.01 80 
.60 80 
.74 30 
.35 05 
.34 90 



021030.74 06 
001000.00 FO 



YCCIN 
YC4INT 



J_AX1Q 
BBZ,Y 
CMOCO 
LV,$1 
V+I,S 
KV,$1 



DIIBU, 1 

EOJStYC 

OIBUfl) 

4,KSIL0 

14,1.0 

4,KSIL0 



2, 6), PCX 
REJ 

.YCIDBT 
+ .32 



zAggg735 

"ZA000736" 
ZA000737 
ZA000738 
ZA000739 
ZA000740 



_35_« 
36* 
37» 
36* 
3^« 
4C» 



021C23. 
021023. 
021024. 
021G25. 
021025. 
021026. 



00 

40" 

00 

CO 

40 

4C 



C_2JL_Cl34 
021025 
220451 
220451 
220452 
231427 



•_33.A2. 
.32 42 
.31 80 
.75 30 

.00 8E 

.00 80 



_B_XH,Y 
8XL,,$ 
CMlll 
SV,$1 
LCBU, 
STCBU 



LASTC__ 
+ 1.32 
KBU,!) 
4,KSILC 
48),KSI 
,48), YD 



ilAS_jLASXjCO'lPiLER_RyN 

-IS THIS THE LAST COMPILER 

-SET FLAG 
-UPDATE COMPILER POINTER 

-COMPILER TYPE AREA INTO SFETCH 



ZAg0074l 
'ZA000742" 
ZA000743 
ZA000744 
ZA000745 
ZA000746 



001000.36 FO 

060000.20 50 
060000. 2C CO 



,KSIL0+.25 
+ .32 

LQ+l.0{$14) 
FCS 

S 



42» 

43* 
44* 
45* 
46* 



021027^ 
021030. 
021C3C. 
021031. 
021032. 
021C33. 



^0 
00 
40 
40 
40 
40 



_0_2_1C_5_6 
C2C2C0~ 
215C01 
215001 
220452 
C20223 



•_i2„ig 

.50 CO 

.03 80 

. IC 80 

.23 80 

.10 00 



LX,_$1 

B,WJC 
CMOCO 
BBfSY 
BZB,K 
B,WJC 



3lYDKCR 

4G 

OfSCQRG 

SMCD,YR 

SILO+1. 

4Q 



24000747 
ZA000748 
ZA000749 
ZA000750 
ZA000751 
ZA000752 



001000.00 FO 
020226.34 02 
020226.34 00 



YCREJ 



tSTR 
19,YRESTR 



^1* 
46* 
49* 
5C» 
51* 
52* 



021034, 
021035, 
021036, 
021037, 
021040, 
021041. 



oo___ 

OG 

cc * 

00 
00 
00 



_2_1_5_C_01 
22 04 6'0 
220452 
C21C60 
231427 
220460 



•_Q3_8g 

.31 80 

.23 80 

.00 80 

.00 80 

.34 30 



pgippp_.cp__F_o_ 

021030.74 06 
020226.34 00 
060000.20 50 
060000. 2C CO 



YLASTC 



CMOCO 
BBZ.K 
BZ8,K 
L(BU, 
STIBU 
LV,$1 



QlBy.lj 

SILO+7. 
SILC+1. 
48),YTW 
,48), YD 
4,KSIL0 



_»SCpR_G 

25, YCREJ 

19,YRESTR 

STA- 

FCS 

+ 7.C 



-SET TOGO (ZERO) 



ZA0gg753 
ZA000754 
ZA000755 
ZA000756 
ZA000757 
ZA000758 



LOAD TYPE AREA FOR COMPILED P.P. 
- COMPUTE NtMBER CF ThS ARCS LEFT, 



51? 
54* 
55* 
56* 



02 1C4_1 , 
021042, 
021042, 
021043, 



i»0_ 
00 
40 
00 



215007 
215G0 7 
C21C55 
220453 



•34_Bg 
.75 30 
.32 10 

.CC 80 



tt*Al 
sv,$i 

LX, $1 

LF( eu 



^iSDKMC 
4,SSYRF 
3,YPPDK 
,18),KS 



P 

T 
S 
ILO+2. 



zAggg759 

'ZA000760 
ZA000761 
ZA000762 



022000. C6 70 



•SET READ SOURCE TO P.P. 
-CHECK FOR BSS LOADER 



'Nai 



1 IME CLOCK COCSAO^l 



PUNID 22$eOJ 



CARD ID ZA000763 



DIST. OF 3/Cl 



3/01 



PAGE NUMBER 397 



LINE 



LOCATION 



BINARY OUTPUT 



NAME 



STATEMENT 



LOCATION 



02104A 



]* 021044. CC 
2* 021045.00 
2* 021045.40 
^* 021046.00 



622222. GO 
021C52.36 
220461.34 
C21C57.32 



80 
CO 
10 

10 



422600.23 10 



KFI,YBSSID 
BZAE,YB8 
LX,$14,KSILC+8. 
LX,$13,YPPBSD 



-TAKE P.+. LIMITS FROM KSILO 
■SO JC V*ILL LOCK AT FIRST CARD OF AN ARC 



ZA000763 
ZA000764 
ZA000765 
ZA000766 



5* 021046. 4C 



020120.77 01 



LVI ,$15,YL1 



ZA000767 
ZA000768 
ZA000769 
ZA00D770 
ZA000771 
ZAC00772 



f« 021047.00 

1* 021050.00 

t* 021050.40 

S* 021051.40 

IC* 00CCC0.C0+ 



215CC1.I0 80 
020274.77 01 
020317.40 80 
023006.10 CO 
+0C622222 



023006.34 02 



001000.36 FO 



BU,22 ,06 YBSSID 



B8,SYSMC0,TJUNAS 
LVI,$15,WJ4PFF 
CMlllUeU,l),YTSP 
B,TJUNAS 
(AX)DDHBU,18,6) ,8SSX 



-IF BYPASS 

-IF OVERLAP 

-SET UP FOR SPEC. 



ess CASE 



11* 021052.00 « 



215001.10 80 021054.34 02 



YB8 



8RlSYSMCD,$+2^0 
\VI ,il5,WJ4PFF 
B.TJUNAS 
LVI,$15,YC4B5 
BfTJUNAS 
XW, 2., 34, 0,7 
XW,- 15., 0,0, 7 



ZA000773 
'ZA000774' 
ZA000775 
ZA000776 
ZA000777 
ZA000778 
ZA000779~ 



12* 
13» 
14» 
15* 

le* 



021053.00 
021053.40 
021054.00 
021054.40 
021055.00 



020274.77 
023006.10 
020111.77 
023006.10 



01 
00 
01 
00 



CCC0C2.0C+ 111 C00042 OCCCCC 



YPPCKS 



11* 

ie» 
i?« 

2C« 
21* 

22* 

'22* 021062.00 



02_10_5_6_._C0_ 
021057.00 
021060.00 
021060. 6C 
021060.61 



_c_c_o_o_i l«_o 0-: _Ul_?opooo p c c c_o_c_ 

CC0015.00- 111 000042 OCCOOO 



YL^KCRS 
YPPBSC 
YTV^STA 
YCIDBT 
YNLST 







XW,-13.,34,0,7 -SO JC WILL 
(AX)DC(6U,48,6),) )))))))K 
DD(BU,1), (210 
(AX)DD{BU,48,6),N0LIST X 

CNOP 

(AX)DClBU,48,6),N0PljNCH X 



LOOK AT FIRST CARD OF AN ARC 



ZA000780 
ZA000781 
ZA000782 
ZA000783 
ZA000784 
"ZA000785" 



YNOPUN 



'Nai 



TIME CLOCK CC054CA1 



PUNID 22$E0J 



CARD ID ZE0000C2 



DIST. OF 3/Gl 



3/01 



PAGE NUMBER 398 



LINE LCCATICN BINARY OUTPUT NAHE STATEMENT LOCAJJO_N_ 



1» 
2* 

2* 
A* 



THE ENTRY POINT TO THE ASSIGN ROUTINE 



021062. 6G « SLC,$ 



ZEOOOOOa 
ZE00C003 
ZE000004 

zeooooo5 



i« 
i* 

1C» 



ZEO 00006 
ZE000007 
ZE000008 
ZE000009 
ZEOOOOIO 
ZEGOOOIl 



SAVE AREAS FOR INDEXES 



02 1063. CC 



00CC17.CO 



T ASAVE 



CNOP 
DRZtBU,64),{15l 



-AREA SET ASIDE FOR INDEX SAVING 



11? 
12* 
13* 
lA* 
15* 
16* 



021102, 
021103, 
021104. 
021105, 



po_ 

00 
00 

CO 



CCCCCC.CO+ 000 COCOOO OCCCOO T CTEHP 



xw 
xw 

XM 



_-IE^iP_SY^58gLIC_CHAN_ WORD 

-TEMPORARY WORKING WORD 
-TEMPORARY WORKING WORD 
-TEMP STORAGE FOR IX -A- 

- N g T _Oy£RLAPPP R E F W_p_R_D_ _NJ]_._ _1_ _ _ 

_-Ngi_OyERLAP PP REF_Wp_JM_a_._2 

-NECESSARY FOR LAST ENTRY BIT 

-THE NOT OVERLAP I/O REQ TBL 

-DO NOT REMOVE - MARKS LAST WORD 



^EQggpi2 

ZE000013 
ZE000014 
ZE000015 
ZEOOQOIS 
ZE0000I7 



CCCOGC.O0+ ceo COCOOO CCCCOC 
CCOOCC.CO+ 000 000000 OCCCOO 
CCOOGC,00+ 000 000000 OCCCOO 



2_1 li3 6 
P 2_1_1 07 
02111C, 

021111 
021112 
021135, 



_oc_ 

00 

00 
CC 
CC 



_C_CO_0 CG ._Ogt _C 00 _ oopppp_ pc ccp_c_ 
c_c_o_o_c c . g pt _Qoo_ggggpp_ p c c c op_ 

CCOOCC.OO+ 000 000100 OCCCOO 

CCCOOO.OO+ COO COOOOO CCCCCC 

COCC23.C0 
CCCCCC. 40+ 



T WCRKl 

T W0RK2 

T REFIL 

T PURFT 



XWtC 

XWtC 

XW,C{ .39) 1 

XW,C 

DRZlBU,64),TUI0C-l 

VF,C.32 



11* 

le* 

2C* 
21* 
22* 



^EogggiB 

"ZE000019 
ZE000020 
ZE000021 
ZE000022 
ZE000023 



T LIORQ 



23* 
2<» 
25* 
2£« 
27* 
28* 



ZEgggg24 

ZE000025 
ZE 0000 26 
ZE000027 
ZE000028 
ZE000029 



021135. 4C C0CC00.3C 
021136. OC • C0CC24.CC 

021162.00 232513.00+ 

021163j.pg _cp_cp_QP_._3_Q.+_ 

021163.40 CCCCCC. 20+ 



CO 



000 000010 021162 



TUFRE 

T TYARA 
T COMBO 



CNOP 
DRZ{BU,64),TUFRC 

XW,TDISK,8,TTYARA 

VFtlTYBC+TMACBC+TREGBC 
~VF,TTYBC + TMACBC 



-THE NOT OVERLAP FIRST REEL TABLE 

-THE TYPE CODE 

-A _CO.N S T A N T _TH A I _ W I L L_ B Y_ P_A_S_S_ JPJIE _« CR P 

-FOR COMPUTING THE NUMBER OF UNITS 



2^* 
3C* 
31* 

3i» 
33* 
34* 



J _2CP_M B 
T ASIGN 



ZE00pp3p 
'ZE000031" 
ZE000032 
ZE000033 
ZE000034 
ZE000035 



021164. 
021165, 
021165, 
Q21166, 
021167. 



00 
00 
40 
^0 
00 



C0CC21.C0 80 
CCCC00.24 IF 
232227.32 80 
G 2X5X5 • 3 1_ AG 
021170.63 40 



021063.30 EG 



006000. CC FO 



SWAPI, 12,il,TASAV£ 
LX,TCTWDX,0.0($15) 
CM0000(BU,6J,TM0CE 
BZXVZ,TA9 



-SAVE INDEXES 
-OVERLAP AND MACHINE CCNF TEST 
-RESET INDICATORS 
-IF A MACH ONF CHANGE 



_35.1 
36* 
31* 
3i* 
3S* 
4C* 



T BIF 



B Z X F , T B IC -IF_ JDVEALA P _MPpE 

NOT OVERLAPPED TYPE OF PROBLEM PROGRAM 



ZEp00p36 
'ZE00C037' 
ZE000038 
ZE000039 
ZE000040 
ZE000041 



021167. 
02117C. 



40 

CC 



232230. 
C21171. 



06 

iO 



10 

GO 



LX,TIXEtTPPURF 
B,TA1-1.C 



-NOT OVERLAP PP SET UP 



Alt 

42* 
43* 

44* 
45* 
46» 



ZEpppp42 
ZE000043 
ZE000044 
ZE000045 
ZE000046 
ZE000047 
"ZE000p48 
"ZE6o0049~ 



OVERLAP TYPE OF PP 



02117C 
021171 
Q21172 
021173 



.40 

,00 

•pc 

,CG 



232226. C6 10 
_2__3_2„2_27.3 7_8p 
_CJD_C_C_PP^47_83 

C0CCC0.44 83 



002000. CC_F_0_ 
P2172i_.74_P„2_ 
021503.74 02 



T BIC 

"t""aT" 



LX,TIXE,TSAV 

CM0C00(BU,2),TINDE 



-FIND LGC. KITH IN P P REF TBL 



47* 

46* 



BB,_TLPPENiTiXEJ_,J_F _ 
BB,TJBPR0{TIXE) ,TB8Z 



_- IF _L A S T £ N T R Y W_I JH I N PP R E F_ _T_6 
-IF The PP WAS PROCESSED 



■Kai 



e 



"TIME CLOCK CC054C41 



PUN ID 22iEQJ 



CARD ID ZE00C051 



DIST. CF 3/Cl 



3/01 



PAGE NUMBER 399 



LINE 



LOCATION 



BINARY CUTPUT 



NAN£ 



STATEMENT 



LOCATION 



C2I174 



1» 

2* 
2* 
4» 



021174. CC 
021175.00 
021175.40 
021176.40 



000000.46 
000000.10 
000000.34 
COCCll.lC 



83 
33 
83 

50 



021503.74 02 



010027.20 50 



8B,TASGNP(TIX£J,TB8Z 
LV,TIXA,TCRREFiTIXE} 
L,TUNCTITIXE),46 
LC,TIXA,$R 



-IF PP IS ASSIGNED BYPASS REMAINDER 
-GET I/O REQ TBL ADDRESS 
-GET THE UNIT COUNT 



ZE000051 
ZE000052 
ZE000053 
ZE000054 



S» 021177.00 



021105.11 03 



LRI ,TIXA,TREFIL 



-REFILL ADDR TC INDEX 



ZE000055 



1* 
£• 

IC* 



021177.40 
021200.00 
021201,00 
021201.40 
021202.00 



021105.11 
000000.45 
021501.70 
000000.24 
021205.23 



10 
83 
42 
IF 
42 



021663.34 02 



SX,TIXA,TREFIL 

8B,TRJECT{TIX£),TAREJ 

BXCZ,TB8C 

LX,TCTWCX,0.0{$15) 

BXF,TDl+.32 



-IF PP kAS REJD AND TBLS TO BE CLEARED 
-IF NO I/O REQUESTS FOR THE PP 
-TO ACTIVATE THE FLAG IND 
-TO PREVENT A DOUBLE VALIDITY 



ZE000056 
ZE000057 
ZE000058 
ZEGG0059 
ZE000060 



U*_Q2 1202,^0 
12* 021203.40 
13* 021204. CO 
14* 021204.40 
15* 
16* 



23 2227.4 3 
232512. C6 
021225.73 
232512.07 



80 
90" 
40 
30 



021204.74 06 



^^Z,_TLOCPl,Tpi 
"KVtTIXE,TVALVF" 
BZXH,TA2 
SVtTIXE.TVALVF 



_-l':_I>^"i~_WAS REFILLED 

"f-CHECK TC PREVENT A DOUBLE VALIDITY CK 
-IF A VALIDITY CHECK HAS BEEN MADE 
-SAVE TO PREVENT DOUBLE VALIDY CHECK 



ZE000061 

^£000062"^ 

ZE000063 

ZE0000&4 

ZE000065 

ZE000066 



T Cl 



DO A VALIDITY CHECK ON THE REQUEST 



11? 
If* 
19* 
2C* 
21* 
22* 



ZE 00 00 67 
ZE000068 
ZE000069 
ZE000070 
ZE000071 
ZE000072 



FIRST CLEAR CCUNT AREA 



021205.00 
021205.40 
021206.00 



021162. 
OCCCll. 

ccccoo. 



24 
22 

20 



10 
00 
8A 



010000.20 DO 



T CLEAR 



LX,TX1,TTYARA 

Z,$R 

ST,TRCAC(TX1) 



•LOAD TO BEGINNING CF TABLE 

-ZERO THE ACC 

■THEN CLEAR THE COUNT AREA 



23* 
"2<* 
25* 
26* 
27* 
2€* 



021207_.0C_ 

021207.40 

021210.00 

021211.00 

021211.40 

021212.40 



021163_. 
021206." 
000000. 
232307. 
COOCOO. 
000000. 



2^4 
30 
22 
11 

03 

CO 



FC 
40 
84 
01 
84 
8A 



JV+CR^TX1,TCCMBC 
BZXCZtTCLEAR 
BZB,TLAST(TIXA),TSETBC 
LVI,TIXA,TICREQ 
L,TTYPE(T1XA) 



ZE000073 
"Z"E000074" 
ZE000075 
ZE000076 
ZE000077 
ZE000078 



021211.74 00 

004000. 20 50 

010000.21 10 



T SETAC 



T SETBC 



T COMPA K,TTYAD(TX1) 



-RELOAD TO BEGINING OF TABLE 
-REQUESTED TYPE TO ACC 

■C_CAPM£ _*:0 R EQUALITY 

-IF EQUAL I 3 

-GET NEXT FEILD 



-ILLEGAL REQUEST - MCP ERROR 



lit 
"3C* 

31* 

32* 

33* 
34* 



021213.50 

021214.00' 

021214,40 

021215.00 



021215. 
021163." 
021212. 



76 C 2 
24 DO 
70 40 



BAE,TC1 

V+C,TX1,TC0MB0" 
BZXCZiTCCMPA 

BD,$ 



ZEq00079 
"ZE000080" 
ZE000081 
ZE000082 
ZE000083 
ZE000084 



021215.04 00 



35* 
36* 
37* 
3£» 
3S* 
4C* 



021215.40 

021216.40' 

021217.00 



00 0000.20^ 8 A 
000032.02 00 
021210.11 4C 



010000.22 BO 



T Cl 



A+l'^iiC A c Qx 1 1 

R,TX1 
CBR+,TIXA,TSETAC 



rJi^ CMMAI T .R E Q ^£ STCOUNT 

-REFILL TO BEGINNING OF TABLE 



ZEO 000 85 
"ZE000086 
ZE000087 
ZE000088 
ZE000089 
ZE000090 



CHECK REQUEST COUNT AGAINST THE MACH CONF COUNT 
TFrfRCADttxiT -REQUETf "COUNf'tOACC 



41* 
42* 
42* 
44* 
45* 
46* 



021217.40 
021220.40' 
021221.00 
021222.00 
021222.40 
02122 3^40 
"021224_.0C_ 
021224.40 



ACpAQP_-_2_0 _8 A 
021223.74 C2 

000000.10 8A 

021223.77 40 

COOCOO. 45 83 

A2A163.24 IJO 

C_2 12 17^70 40 

000000,45 83' 



010000.06 70 
010000.23 10 
001000.36 FO 



T CHEK 



ZEOOOOgi 
'ZE000092' 
ZE000093 
ZE000094 
ZE000095 
ZE000096 



T CONT 



BRZ,TCCNT 
KF,TMCAD{TXl) 
BZAH,TCONT 
CM1111,TRJECT(TIXE) 

tt^*JAlll^9^^9 

'BZXCZ.TCHEK 

8B,TRJECT(TIXE) ,TAREJX 



■NO REQUEST 

-COHPARE MACHINE CONF. COUNT 

-IF REQUEST IS OK 

■REJECT PP FOR REQ IS TO HIGH 



4 7* 

'4£* 

4S« 

5C* 



ZEOOoogj 

'ZE600098' 
ZE000099 
ZEOOOIOO 



021662.34 02 



-IF PP WAS REJECTED 



'Nai 



TIME CLOCK CCC540A1 PUNID 22$EOJ CARD ID ZE000102 DISF. OF 3/Gl 3/01 PAGE NUMBER 400 
-CiNL__LgCAjIcFIII"I~"~"2lBfNARYlcyTPU^^ IcCATTcn"" ^D2T2~2~5" 



I* 021225.40 
i* 021226.00 
2* 021227.00 
i?_ 02^2 30 ._0_0_ 
f» 021231. CC 



021102.22 00 
232227.33 80 
232227.22 80 
C_0 0000.13 84 
021232.76 42 



004000.00 FO 
007000.06 70 
007000.23 10 



T A2 



T A2G 



ZtTCTEMP 

CM0C00(BU,4},TIN0A 
LF,TLCHCT 
KF,TRLSYM(TIXA) 



-CLEAR THE TEMP SYMB CHAN WORD 

-RESET ALL IND 
-COMPARE THE REQUESTED CHANNEL COUNT 
-AG_AJ_NST_IH£ ACTUAL MACHINE CONFIGURATION 



_BALtTA2f -. IF GREATER THAN THEN ALLOW 



ZE000102 
ZE000103 
ZE000104 

zEgopip5_ 

ZE000106 



' r 

z 

£ 

9 
9 

' ( 

6 

0, ( 

II 

SI 
Ci ( 

SI 

" ( 

n 

SI 
6, ( 

OS 

( 

c 

( 

( 

( 

( 

( 

( 

i 

i 

c 

c 

c 

c 

i 



6* 
1* 
e» 
?* 

11* 

12* 
13* 

15» 

li* 



021231.40 

021232.00 

021232.40 

021233.40 

Q21234_.C_C_ 

Q21234_._4P_ 

021235.40 

021236.40 



021230.11 4C 
021234.10 00 
232227.33 80 
G0CC24.02 CO 

_o_o_pcpg._i2_ig 

_2_32227._36_80 
232227.40 80 
021722.10 CO 



002000.36 FO 



OQigpc)_. CC_ FC 
021237.34 00 



T A2F 
T A2A 



CBR+,TIXA,TA2G 
8,TA2A ' 

CH1111(BU,2),TINCA 
R.TIXA 

LX,_TIXBi$Z 

-CMOCOOtTINDp 

BZB,T1NCZ,TA28 
B,TG 



-A SPLIT CHANNEL OPERATION. 



_ _- IN tllA L I Z E ig PRE VE NJ_ _E_RAOA 

_-fiESET^THE_gPTIMIZ£__INp 

-IF MORE MULTI UNIT CHAN AVAILAL8E 



GET AN I/C REQUEST AND FOLLOW IT THRU 



ZE000107 
ZE000108 
ZE000109 
ZEOOOllO 

zEogpiii_ 

ZEgppll2_ 

ZE000113 

ZE000114 

ZE000115 

ZE000li6 

ZE000117 



_ 1 1 * _ P 2_1 2 3_7_.p_0_ 
ie» 02124G.CC 
IS* 021241.00 
2C* 021242.00 
21* 021242.40 

-22*^021243_.4C 
22 5_021244,4p_ 
2A* 021245.40 
25* 021246.40 
26* 021247. CC 
21* 021247.40 
2£* 021250.00 



_CO_CCQp._Cp 84__g2i25p_.34_ CO T A2B 

C0CC00.C3 84 

C0CC0O.13 84 

C21245.74 C2 

C0GC00.56 84 
ilQC_C_Q-C_'_C 7 _84 

_o_2JJ_c_2_._pg_ _8 p 

000001.22 84 021247.34 00 T B2 
232306.11 01 

021234.11 48 T B2Z 

021476.10 00 
_2_3.22_2_7_«_32_ 80 001000.00 FO T A2D 



Q2i25p_.34_CG_ 
021245.74 00 
007020.20 50 

022027.06 70 

PQ3ggg.C6 7C_ 
pcpggg.2c_pc 

021247.34 00 



-BZBiIASGNiJ T_I_XAb JA<JD_ _ _ _ 

BZB,TTYPE(TIXA),TB2 

L,TRLSYMITIXA),32 

8RZ,TB2 

C0011,TABSCH(TIXA),46 

_Q_gpiliTABSyNiJIXAJ 

_S_lLey,641,TCTEMP 

BZB,TLAST+l.0<TIXA),TB2Z 

LVI,TIXA,TI0REQ-1.G 

CB+,TIXA,TA2A 

B,TA8 

CMOCOCTMOOE 



-IF _REQ _ I S _ Np T A S S_I GNED 

-IF A SINGLE UNIT TYPE OF REQUEST 
-REL SYMBOLIC CHANNEL TO ACC 
-IF A ZERO CHANNEL REQEST 
-ABSOLUTE CHANNEL TO ACC 

-AB_S_CLUTE UNIT _IQ_ ACC 

-AM_lt-_D _1EMP_CHAN WCRp 

-CHECK FOR TABLE LOOP ARCUNC 



-IF COUNT GOES TO ZERO 

-AE_SAT_I_ND 

■AE_T_UP_FPR FORWARD SCAN 

-SET UP FOR OVERLAP MODE TEST 
■IF FULL NOT OVERLAP MODE 
■IF SINGLE OVERLAP MODE 
•SET IND TO NOT OVERLAP MODE 
JA A TAPE CHAN REQUEST 



ZEgppil8_ 

ZE000119 

ZE000120 

ZE00012X 

ZE000122 

ZEpggi23 
^Egogi24" 

ZE000125" 

ZE000126 

ZE000127 

ZE000128 

ZE000129 



2i*: 
30* 
31* 
32* 

33» 
34* 



Q21251,pC 
021251,40 
021252.00 
021252.40 
021253.40 
021254.40 



_2_32_5_1_7_._2_^2 _l_p 

000000.24 IF 

C21253.63 42 

CCCCOO.Ol 84 021254.74 00 

232227.32 80 001000.36 FO 

0P_0_CPP.C3 84 021264.34 02 



T A2DB 
T A2DC 



_LX»_IX2tTYSCAN 

LX,TCTWDX,0.0{$15) 

BXF,TA2CB 

BZ8,TUN0BT(TIXAKTA2DC 

CMllll.TMOOE 
AB ._T T Y P E (TIXA),TA2E 



ZEOOOISC 
'ZE000131' 
ZE000132 
ZE000133 
ZE000134 
ZE000135 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
S 
4 
3 
2 
I 



_3-_» 
36* 
37* 
3E* 
3S* 
4C* 



SINGLE UNIT REQUEST, ASSIGN ONLY NEXT PP TC RUN 



021255.40 
021256.00 
021256.40 



41* 021257.40 



42* 
43* 
4-^* 
45* 
4f* 



021260.40 
021261.40 
021262.00 
021262.40 
021263.00 



41* 
4£» 
4S* 
5C» 



021263.40 



021311.63 42 

232232.24 10 

A0AQP0.4 7_8A 

_QPAQ01Q.»A5 8 A 

C0CCC0.44 8A 

C00C02.25 07 

021257.50 CO 

000032. C6 90 

_Q2_l_2_4_5«_72_Cg 

021311.50 go' 



g2172 5_.74_p2_ 
021261.74 02 
021262.74 00 



J__C2A_ 
T C2BA 

T C2BC 



BXF,TA7 
LX,TX1,TPPRUN 

_BB,_TLPPENnXlijJP 

BB,TRJECT(TX1J,JC2BA _ 

BZB,TJBPRC(TX1),TC2BC 

V+ICR,TX1,2.0 

B,TC2e 

KV,TIXE,TX1 

BZXE?^TB2 

B,TA7 



-IF NOT OVERLAP CASE, BYPASS 
-SET IX TO NEXT JOB TO RUN 
--EA10R _- _SGMETH I NG 1 S_ OUJ _0A AHASA 

"lliJAlS JOB WAS REJECTED 

-IF THE JOB WAS"N0T PROCESSED 



-IS ASSIGNMENT FOR 

_-NC, DO NOT ASSIGN 



NEXT JOB TO BE RUN 



_ZE00gi36 
Ze000137" 
ZE000138 
ZE0C0139 
ZE000140 
ZE000141 
ZF00pl42~ 
ZE000143 
ZE000144 
ZE000145 
ZEG00146 
ZE000147 



ZE0gpl48 
ZE000l4g" 
ZE000150 
ZEO00l5i 



021264.00 



232227.32 80 021267.34 02 T A2E 



BB,TM0DE,TA6 



-IF NOT OVERLAP MODE 



'wai 



TIME CLOCK CCC54C41 PUNID 


22$E0J 




CARD 


ID 


ZE0O0153 CIST. OF 3/Cl 


3/01 PAGE NUMBER 401 




LINE LOCATICN 


BINARY OUTPUT 






NAME 


STATEMENT 


LOCATION 021265 




1* 
2* 

■ 3* 


021265.00 
021266.00 » 


232227.40 
232227.41 


80 
80 


021245 
001000, 


.74 

.36 


OE 
FC 


— 


BB1,TINCZ,TB2 
CI*'1111(BU,IJ,TINCX 

*«««««««»««««««««««•«•««•«««««*«•*«*«««««««•«*«««•«««•**«*«***««***** 


ZE000153 
ZE000154 
ZE000155 
ZE000156 


5* 














- 




CONCLUSION 


~ TRY TO ASSIGN THIS MULTI-UNIT REQ 


ZE000157 


e* 

7* 

fc* 

S* 

IC* 


021267.00 
021267.40 
02127C.40 
021271.00 


021105.24 
OOOGOO. 13 
C0CC22.22 
021103.11 


10 

84 
00 
50 


007000. 


.C6 


70 


T 


A6 LX,TX1,TREFIL -SET FOR CHANNEL SCAN 

LF,TRLSYV{TIXA) -SYHBOLIC CHANNEL NUHBER TO ACC 
Z,TX3 -ZERO THE COUNTER INDEX 
SCTIXAfTVvORKl -SAVE FCR COMPARING 


ZE000158 
ZE000159 
ZE000160 
ZE000161 
ZE000162 


11* 


021271.40 


C21337.34 


C2 












BRZ,TA3 


-00 NOT COMPARE IF RLSYM IS ZERO 


ZE000163 


12* 
13* 
14* 
15* 
16* 


021272. CC 
021273.00' 
021273.40 
021274.00 


C0CC00.13 
021274.76 
021272.25 
021275. 5C 


8A 
C2 
48 

CO 


007000, 


.23 


10 


T 

T 


A6A 
A6B 


KF,TRLSYM{TX1) 
BAE,TA6C 
CB+,TX1,TA6A 
B,TA6D 


-LOCK FCR LIKE SYMBOLIC CHAN 
-IF LIKE SYMBOLIC CHANNEL 


ZEG00164 
ZE000165 
ZE000166 
ZE000167 

ZEC00168 


17* 


021274.40 


CCCCC1.C5 


CO 








T 


A6C 


C+I,TX3,1.0 


-ADVANCE THE LIKE REQUEST COUNTER 


ZE000169 


18* 
IS* 
2C* 
21* 
22* 


021275.00 

021275.40 
021276. 4C 
021277.00 


C21273.5C 

021102.31 
232227.05 
C21307.73 


CO 

80 
90 
42 


007000. 


.23 


10 


T 


A6D 


B,TA6e 

KF,TCTSCH 
KC,TX3,TLUCT 

BXH.TAC 


-COMPARE ACC AGAINST TEMP 

-IS THERE A CHANNEL WITH ENOUGH UNITS 

-IF THE CHANNEL REQ IS TOO LARGE 


ZE000170 
ZE000171 
ZE000172 
ZE000173 
ZE000174 


22* 


021277.40 


021337.36 


CO 












BZAE,TA3 


-IF UNLIKE ABS CHAN LOG 


ZE0C0175 


2<« 
25* 
26* 
27* 
28* 


021300. CC 
021301. CO 


021102. CO 

C0CC11.04 


80 
10 


022027. 


.20 


50 


- 




GET ABSOLUTE CHANNEL 

L,TCTACH,46 
LX,TX3,$R 


NO. AS REQUEST IS PARTIALY ASSIGNED 

-GET ABSOLUTE CHAN ADDRESS 
-PLACE IN INDEX 


ZE000176 
ZE000177 
ZE000l7a 
ZE000179 

ZEOOOIBO 


2S* 


021301.40 


000000.14 


32 












LV,TIXJ,TUNTBA(TX3) 


-GET UNIT TABLE ADDRESS 


ZE000181 


3C» 
31* 
32* 

33* 
34* 


021302. CC » 

0213C3.CC 

0213C3.4C 

021304.40 

0213C5.40 


C0CCC0.73 
000011.14 
232227.33 
232227.34 
232227.32 


82 
50 
80 
80 
80 


004027. 

C21356, 
021307. 
021307. 


20 

34 
74 
74 


5C 

00 
02 

02 






L,TUNITK(rX3),46 

LC,TIXJ,$R 

BZB,TINDA,TC3Z 

8B,TINDB,TAQ 

BB,TMGDE,TAQ 


-UNIT COUNT TO CF 

-IF THE SAME CHAN IS NOT ALLOWED 

-IF SPLIT CH MODE, SET TO REV SCAN 
-IF NOT OVERLAP 


ZE000182 
ZE000183 
ZE000184 
ZE000185 
ZE000186 


35* 


0213C6.4C 


232232-06 


90 












KV,TlXEtTPPRUN 


-IS THIS THE NEXT JOB TO BE RUN 


ZE000187 


36* 
37* 
38* 
3S* 
4C* 


021307.00 
021307.40 
021310.40 
021311.00 


021356.32 
232227.34 
C0CG01.23 
C21337.1C 


CO 
80 
05 
00 


001000. 


36 


FC 


T 


AQ 


8ZXE,TC3Z 
CMllli,TINDB 
V+I,TX2,1.0 
6,TA3 


-NO — BYPASS 

-SET THE SPLIT CHANNEL INO 
-STEP TO THE REVERSE SCAN 


ZE000188 
ZE000189 
ZE000190 
ZE000191 
ZE000192 


41* 














- 








ZE000193 


42* 
42* 
44* 
45* 
46* 


021311.40 


215CC2.C4 


10 








T 


A7 


CONCLUSION 
LX,TX3 ,TCHSXi« 


• 

—TRY TO ASSIGN THIS SINGLE UNIT REQUEST 


ZE000194 

zeoooi95 

ZE000196 
ZE000197 

ZE000198 


4<» 


021312.00 


00CC00.64 


82 


021325. 


34 


02 


T 


ATA 


B8,TEQUIP{TX3 J,TB7 


-IF A TAPE CHANNEL 


ZE000199 


46* 
4S* 

5C* 


021313.00 
021314.00 
021315.00 * 


C0CC00.31 
CCCC00.C3 
C0CC00.64 


82 
84 

82 


021325. 
OC4000. 
004000. 


34 
06 
23 


02 
70 
10 






BB,TCHAVL{TX3 ),TB7 

LF,TTYPE(TIXA) 

KF,TEQUIP{TX3) 


-IF THE CHANNEL IS NOT AVAILABLE 
-IS IT THE CORRECT EQUIP TYPE 


ZE000200 
ZE000201 
ZE000202 







*Kai 



TIME CLOCK GCC54C41 PLNID 22$6CJ CARD ID ZEC00204 
LINE LOCATION 6 1 NARV" CUTPUT H^f*E 



CIST. OF 3/Cl 
STATEMENT 



3/01 



PAGE NUMBER 402 

I OCA t1 ON ^oYiT r6 



1* 02I3I6.CC 
2* 021316.40 
3* 021317.40 
4* 021320. 4G 



021325.36 CO 
000000.33 82 
000000.34 82 
C0CC00.35 82 



021326.34 02 
021325.34 02 
021325.34 00 



BZAE,TB7 

BB.TMULTUTXS J,TA7D 
B6,TUNAVLtTX3 ),TB7 
BZB,TyNASGJTX3 ),T87 



-NO 

-IF A HULTI SING UNIT CHANNEL 
-IF UNIT IS NOT AVAILABLE 
-IF THE UNIT IS ASSIGNED 



ZEOOO'204 
ZE000205 
ZE000206 
ZE000207 



» 021321. 4C 



000000.76 82 002000.07 70 



CT0C11{BU,2),TUNRES(TX3) -IS THE UNIT RESERVED 



BRZ,TA5S 

BZB,TMCCE,TB7 

BZB,TUNRES(TX3),TA5S 

CB+,TX3 ,TA7A 

B,_TB2 



ZE000208 



1* 
£• 

1C» 



021322.40 
021323.00 
021324.00 
021325.00 
021325.40 



021467.74 
232227.32 

COCC00.76 
021312.05 
021245.50 



C2 
80 
82 
48 

00 



021325.34 00 
021467.74 00 



T 87 



-NO 

-YES, WHAT IS THE NODE 

- NOT OVERLAP, GO ONLY 

-IF IX -D- RUNS OUT 



IF OVERLAP RES 



ZE000209 
ZE000210 
ZE000211 
ZE000212 
ZE000213 



12* 
12* 
14» 
15» 

16« 



ZE000214 
ZE000215 
ZE000216 
ZE000217 
ZE000218 
ZE000219 



MULTI-SINGLE UNIT REQUEST. EG DISK, CONSOLE 



021326.00 
021326.40 
021327. 40 



00GC00.14 
000000.73 
00CC11.14 



32 
82 

50 



T A7C 



004027.20 50 



LV,TIXJ,TUNT8ACTX3) -ADDRESS OF UNIT 
L,TUNITK{TX3 ),46 -GET UNIT COUNT 
tCtIlXJi$R ^TPkACE_IN_CF 



TABLE 



11? 
It* 
1S» 
2C» 
21* 
22* 



P2i330_.0_0_ 

021330.40 

021331.40 

021332.40 

021333.40 

021334.00 



_Q2_L325._30_42 
€00000.34 86 
000000.35 86 
000000.76 86 
021432.74 C2 
232227.32 80 021336.34 00 



BXCZ,TB7 -lF^NO_UNITS_ARE^AVAiL_ABL^___ 

BB,TUNAVL{TIXJ) ,TC7 -IF THE UNIT IS NOT AVAILABLE 

BZB,TUNASG(TIXJ),TC7 -IF THE UNIT IS ASSIGNED 

CT0C11(BU,2),TUNRES(TIXJ} -IS UNIT RESERVED 

BRZ,TA5A -NO 

8Z B , TMCC E , TC 7 _ __-YE_S_»_ _W_H A L _IS THE MODE 



?EOOC22P_ 

ZE000221 

ZE000222 

ZE000223 

ZE000224 

ZE000225 



021336.34 02 
021336.34 00 

002000.07 70 



T A7CA 



22* 
2^* 
25* 
26* 
21* 
2£» 



Q21335_.pC 
021336. CC 
021336.40 



0_0_C_G_0_Q_._7_6 
021330.55 
021325.10 



86 
48 
00 



021432.74 OC 



_B_Z B tly N R E S( T I X J ) , T A 5 A 
CB+,TIXJ,TA7CA 
B,Tfi7 



-NOT OVERLAP, GO IF OVERLAP RES 



?.c00g226 
ZE00022/ 
ZE000228 
ZE000229 
ZE000230 
ZE000231 



T C7 



2i* 
3C» 
31* 
32* 

32* 
3^« 



MULTI-UNIT CHANNEL SCAN 



ZE000232 
"ZE000233' 
ZE000234 
ZE000235 
ZE000236 
ZE000237 



021337. OC 
021337.40 

021340.00 



00CC00.12 19 
021245.70 42 
C0CC00.14 55 



T A3 LX,TIXB,0.0(TX2) 

BXCZ,TB2 
T A3D LC,TIXJ,0.0( TIXB) 



■GET THE PROPER SCAN 

■IF THERE ARE NO MULTI UNITS AVAILABLE 

■LOCATE THE CHANNEL WORD INDEX 



35* 
36* 
37* 
3€* 
3S* 
4C* 



02134C.4G 
02i341.C0 
021341.40 
021342.40 
021343. 4C 
021344.00 



C00C22.J5 
OOCCOO. 14 
000000.73 
OOCCOO. 24 
000011.14 
00CG11.45 



50 
32 
82 
85 
50 
90 



004027.20 50 
004007.06 70 



_S_C,_TI_XJ,TX3 
LV,TIXJ,TUNtBA(tX3) 
L,TUNITK(TX3),46 
LF,TCHCNT{TIXB),14 
LC,TIXJ,$R 
KC,TX3,$R+.32 



-TO REMOVE THE INTERGER FROM THE VF_ ?.Eqq0238 

-ADDRESS OF THE UNIT TABLE TC IX ZE000239 

-GET THE NUMBER OF UNITS ON CHANNEL ZE000240 
-GET NO. OF UNITS ON CHAN FOR COMPARE ZE000241 
-PLACE IN CF ZE000242 

-ARE THERE ENOUGH UNITS TO SATIFY REQ ZEC00243 



4L» 
4i» 
43* 

45* 
46* 



021344.40 
0213A5.40 
021346.00 
021346.40 



A0CC00.._1_3 
021356.34 
021347.73 
232227.34 



8i 

C2 
40 
80 



007000.06 70 



LF,rRLSYMiTIXAJ 
BRZ,TC3Z 
BZXH,TA3C 
BZB,TINDB,TA3F1 



■_T_E_S_T_ _F_CR _B L ANK CH ANNE L_ _R_£_QiJESJ_ 

■YES, ASSIGN TC ANY CHANNEL 

■IF THERE ARE ENOUGH UNITS ON A CHAN 

■IF THE SPLIT CHAN IND IS OFF 



ZE000244 
'ZE000245" 
ZE000246 
ZE000247 
ZE000248 
ZE000249 



021423.34 00 



IS THIS CHAN ASSIGNED TC ANOTHER I/O WITHIN PP 



41* 
46* 
4S* 
5C* 



ZE0Gg250 
ZE000251 
ZE000252 
ZE000253 



021347.40 
021350.40 
021351.00 



232227.33 
021105.24 
C0CC11.C5 



80 
10 
30 



021356.34 02 



T A3C BB,TINDA,TC3Z 
LX,TIXK,TREFIL 
SV,TX3,$R 



-IF SAME CHAN IS ALLOWED 

-SET IX FOR SCANNING 1/0 REC TABLE 

-CHANNEL ADDRESS TC ACC 



•Hai 



TIME CLOCK 00054C41 
XiNE LCCATTc"N 



PUNIO 22$EQJ CARC IC ZE0O0255 DIST. OF 3/Cl 
BINARY^CUTPUl HAHE STATEMENT 



3/01 



PAGE NUMBER 403 
L OC ATI ON ^0"2T3 5 1 



1* 
2* 

2 * 



021351.40 
021352.40 



C00000.56 8A 
C21355.76 CO 



022027.23 IC 



T A3CA 



KF,TABSCH(TIXK),46 
BZAE,TA3Ce 



-LOOK FOR LIKE CHANNEL ADDRESS 

-IF CHAN IS NOT ASSIGNED TO ANOTHER 



YES — DOES THE I/O REQUEST THE SAME CHANNEL 



ZE000255 
ZE000256 
ZE000257 

ZE000258 



5* 
1 * 

IC* 



Z EDO 02 59 
"ZE000260 
ZE000261 
Ze000262 
ZE000263 
ZE000264 



021353. CC 
021354.00 
021355.00 

021355.40 



COGCCC, 
COCCOO, 
C21423, 



13 
13 
36 



8A 
84 
CO 



007000.06 70 
007000.23 10 



LF,TRLSYM(TIXK) 
KF,TRLSYM(TIXA) 
BZAE,TA3F1 



-REL SYMB CHAN NUMBER VS 

-THE ASSIGNED REL SYMB CHAN NUMBER 

-IF THEY ARE UN-LIKE 



021351.65 48 



T A3Ce 



CB+^TIXK,TA3CA 

IF IT GETS HERE, 



II* 
12* 

13* 

14» 

15* 
16» 



DO A UNIT TABLE SCAN 



ZE000265 
"ZE000266" 
ZE000267 
ZE000268 
ZE000269 
ZE000270 



021356,00 
021356. 4C 
021357.00 

021360. OC * 



021104.15 10 
021104.14 10 
COCCOO. 34 86 
232227.41 80 



021420.34 02 

OCIOOO.CO FC 



T C3Z SX,TlXJ,TWiORK2 
T C3 LX,TIXJ,TV«0RK2 
T C3A BB,TUNAVL(TIXJ),TB3 

CMOCOCTINDX 



-SAVE IX FOR RELOAD 
-RELOAD 

-IF THE UNIT IS NOT AVAILABLE 
-MORl UNITS ARE AVAILABLE 



II* 
If • 
IS* 
2C» 
21* 
22* 



ZE000271 

ZE000272" 

ZE000273 

ZE000274 

ZE000275 

ZE0G0276 



021361 
021362 
021363 



.00 
.CC 
.CO 



OCCCCO. 
000000. 
021366. 



35 86 
76 86 
74 C2 



021420.34 OC 
002000.07 70 



BZB,TUNASG{TIXJ),TB3 
CT0C1UBU,2),TUNRES(TIXJ) 

BRZ,TA4A 



IF THE UNIT IS ASSIGNED 

-=TEST THE RESERVE BITS 
IF NOT RESERVED 



22* 
24* 
25* 
26* 
27* 
2€» 



021363 
021364 
021365 
021366 
021367 
021370 



.40 

.40' 

.40 

.40 

.40 

.40 



23222 7.32 ,80 021420.3400 

COCCOO. 76 86 021420.34 02' 

OOOCOO.Cl 84 021400.74 02 

232227.40 80 001000. CO FO 

232227.36 80 021432.74 02 

COCCOO. 34 84 022000. C6 70 



jB^B^TMCCE,TB3 

BB,TUNRES{TIXJ),TB3 

BB,TUN08T(T1XA),TA4C 

CHOCOO.TINOZ 

BB,TINDD,TA5A 

LFtTFREELlTIXA) 



■_lf__OVERLAP MODE ^ £0002 77 

-IF NOT OVERLAP RESERVED ZE000278 

-IF SINGLE UNIT NOT OVERLAP MODE ZE000279 

-SET THE MULTI-UNIT AVAIL. BIT ZE000280 

-IF THE OPT. REEL MOUNT IS BY PASSED ZE000281 
-GET THE REEL NUMBER ADDRESS ZE000282 



T A4A 



29* 
"3C* 
31* 
32* 
33* 
34* 



021371 

021372" 

021373, 

021374. 

021375. 

021375, 



4G 

OC' 

00 

00 

CC 

40 



021377. 
COCCOO. 
232227. 
COCCOO. 
021432. 
232227. 



34 C 2 
33 86 

31 80 

32 86 
76 C2 

35 80 



BRZ^TA4B 

8B,TFDISP{TIXJ),TA5A 

LFtTONE 

KF,STATI(TIXJ» 

BAE,TA5A 

CM1111,TINDC 



- IF _SC R A IC H .REG- 

-IF NO TAPE MTED, MNT THE 
-IF REEL ADDRESS IS NOT ZERO 

-ORIGINAL VS THE NEi* 
-IF LIKE MOUNTING 

-SET THE UNIT FOUND IND. 



ZEq00283 
"ZE0002a4" 
ZE000285 
ZE000286 
ZE000287 
ZE0002a8 



021432.74 02 
001000.06 70 
001000.23 10 

qciqqq.36 FO 

'02 13 75 774" 02' 



LAB TAP 



T A4BA 
T A 4 CM 
T A 4"fi~ 



3J* 
36* 
37* 
3£» 
39* 
4C* 



021376, 
021377^ 
021400, 



40 

CO" 

OC 



C21420. 
000000. 
021374. 



10 CO 
33 86 
10 DO 



8,TE3 

BB,TF0ISP(TIXJ),TA4CM 
B,TA4BA 



Z_E0qq289 
■ZE000290 
ZE000291 
ZEQ00292 
ZE000293 
ZE000294 



-SCRATCH. 
-YES 



IS A TAPE MTEC 



SINGLE NOT OVERLAP MODE — BE SURE THE UNIT IS 
RESERVED FOR A PP THAT IS IN CUEUE AFTER THIS PP 



il* 

42* 
43* 
44* 
45* 
46* 



ZEqq0295 
"ZE000296" 
ZE000297 
ZE000298 
ZE000299 
ZE000300 



021400.40 
021401.00 
021401.40 
021402.40 
021403.40 



C0CC23.26 10 
000C02.27 07 
COCCOO. 47 8B 
COCCOO. 44 8B 
COCCOO. 34 8B 



021420.34 02 
021401.34 02 
010027.20 50 



T A4C LX,TIXL,TIXE 
T A4CA V+ICR,TIXL,2.0 

B8,TLPPEN{TIXL),TB3 

BB,TJBPR0(TIXL},TA4CA 

L,TLNCT(T1XL),46 



-LOAD FOR PP REF TABLE SCAN 

-GET THE NEXT PP REF NUMBER 
-IF LAST ENTRY 

-IF NOT OVERLAP JOB HAS PROCESSED 
-GET THE I/C REG COUNT 



47* 

"4e» 

4S* 
5C» 



021404.40 
021405. CC 
021405,40 



021401.34 C2 
C00C11.2C 50 
COCCOO. 20 3B 



BRZ^TA4CA 

"lc,tixm,$r 
lv,tixm,tcrref(tixl) 



-IF THE RE I S NC I/O REG FOR PP 

-UNIT COUNT TO CF 

-GET I/O REG TBL ADDRESS 



ZEOoq3qi 

'ZE000302' 
ZE000303 
ZE000304 



'Kai 



TIME CLOCK CCC54C41 



PUNID 22$E0J 



CARD IC ZE000306 



CIST. QF 3/Cl 



3/01 



PAGE NUMBER ^0^ 



LINE 



LOCATION 



BINARY OUTPUT 



__J<AHJE 
T A4C8 



STATEMENT 



LOCATION 



021406 



1* 021406.00 C0CC00.56 88 

2* 021407.00 » C0CC11.04 90 

2» 021407.40 021417.32 CO 

<« 021410.00 COCOll.24 30 



022027.20 50 



L,TABSCH{TIXM),46 
KV,rX3,$R 
BZXE,TA4CC 
LV,TX1,$R 



-GET THE CHANNEL ADDRESS 
-COMPARE CHANNEL ADDRESSES 
-IF THEY ARE UNLIKE 



ZE000306 
ZE000307 
ZE000308 
ZE000309 



7» 

ic» 



C214_1C.4_0_ 

021411.40 

021412.40 

021413.00 

021413,40 

021414.40 



ccccqq. 

OOCCOO, 
OOOCll. 
021417, 

coccoo. 

coccoo. 



Z3_8A 
07 88 
15 90 
32 CO 
00 88 
02 88 



pG4p27_._20__5G_ 
003027. 3C 10 



001000.00 FO 
001000. CO FC 



L».iyNITKlTXl),46 
'-,TABSUN(TIXM),46 
KCTIXJf $R 
BZXE,TA4CC 
CMOCOOfTASGNKTIXM) 
Cf^OCOCTPRINnjIXH) 



iCe I _ IH i „ y N I T COUNJ 
-Cdf^PUTE THE RELATIVE 
-COMPARE UNIT NUMBERS 
-IF UNLIKE UNITS 
-ZERO THE ASIGNEO BIT 
-RESET THE PRINT BIT 



Z £0003 10 
ZE000311 
ZE000312 
ZE000313 
ZE000314 
ZE000315 



UNIT NUMBER 



— UNIT BASIS 



11* 
12» 
13» 
14* 
15* 
16» 



Q21415_.4C_ 
021416.40 
021417.00 
021417.40 



o_occgq 

021436 
021406 
021401 



46_8B 
,10 00 

21 48 
,iC CO 



001000.00 FO 



CMOCOCtTASGNPJTIXL) 
8,TA5MA 

CB+,TIXM,TA4CB 
B,TA4CA 



iZERG _IHE _AS IGNEO fij T --_ _JPA A^AIS 
-THE UNIT IS NOW RELEASED 
-IF UNLIKE UNIT/CHAN NUMBER 
-COULD NOT FIND RESERVED UNIT 



ZE00P316 
ZE000317 
ZE000318 
ZE000319 
ZE000320 
ZE000321 



T A4CC 



11* 
16* 
IS* 

2C* 
21* 
22* 



?EQqp322 
ZE000323 
ZE000324 
ZE000325 
ZE000326 
ZE000327 



021420.00 
021420.40 
021421.40 
021422.40 



021357.15 48 T B3 CB+ , T I X J, TC3A 

232227.35 80 021423.34 04 BZBZ , T I NDC,TA3F 1 

232227.36 80 001000.36 FO CM1111,TINDD 

_C_2_1_3_5_6_._5C _Cg B,_TC3 



-IF IND -C- IS OFF 

-SET THE OPTIMUM REEL MTNG BYPASS IND 



23» 
2i* 

25* 

2e* 

21* 

2i* 



ZEp0p328 
ZE000329 
ZE000330 
ZE000331 
ZE000332 
ZE000333 



021423. CO 
021423.40 
021424.00 



00CC25.12 10 
021245.70 42 
021340.12 C8 



T A3F1 



LX,TIXB,TIX8 

BXCZ,TB2 

CBH,TIXfi,TA3D 



-IF THERE ARE NO MULTI UMTS AVAILABLE 
-GET THE NEXT CHANNEL 



IN THE CASE OF AN INDEX RUNOUT 



2i* 
3C» 
31* 
32* 
33* 
34* 



ZE000334 
'ZE000335' 
ZE000336 
ZE000337 
ZE000338 
ZE000339 



021424.40 
021425.40 
021426.40 
021427.00 
Q21427.4C 
021430.40 



232227.32 80 
232227.41 80 
232232.06 90 
021245.72 CO 

2 3_2_2_2J_»_3.3_ 30_ 
021337.10 00 



021427.74 02 
021431.34 02 



021245.74 OA 



T ABBN 



BB,TM0CE,TAB8N 
Be,TINDX,TACX 
KV,TIXE,TPPRUN 
BZXE,TB2 
_B_8N»_TI_NCAt.IB2_ 
B,TA3 



-CONTINUE IF NOT OVERLAP 

-OVERLAP, IS IT THE NEXT JOB TO BE HUN 
-NO, SO 00 NOT ALLOW THE SAME CHANNEL 
— SET THE SAME CHANNEL ALLOWED IND. 



_35_* 
36* 
37* 
36* 
3S* 
4C* 



ZEg0034p 
"ZE000341 
ZE000342 
ZE000343 
ZE000344 
ZE000345 



021431.00 
021432. CO 



232227.33 80 

021307.50 00 



001000.36 FO 



T AGX CM1111,TINDA 
B,TAG 



-AS TO ALLOW BOTH SPLIT CHAN AND SAME CHAN 



il* 

42* 
43* 
44* 
45» 
4£* 



ZEg00346 
"ZE000347" 
ZE000348 
ZE000349 
ZE000350 
ZE000351 



021432.40 
021433. CO 



COCCOO. 24 IF 
021435.23 40 



T A5A 



MULTI - UNIT ASSIGNMENT 
MARK ThE I/O UNIT RESERVED 
MARK THE I/O RtCUEST ASSIGNED 
LX,TCTWCX,0.0{$15) -CHECK THE MODE 
SZXF,TA5M1 -IF OVERLAP 



^It 
4£» 
4S» 
5C* 



ZE00g352 
ZE000353 
ZE000354 
ZE000355 



021433.40 
021434.40 
021435.00 



COCCOO. 76 
021436.10 
000000.77 



86 
CO 
86 



001000.36 FO 



001000.36 FO 



T A5M1 



CM1111,TUNRES(TIXJ) 

B,TA5MA 

CM1111,T0VRES{TIXJ} 



-SET NOT OVERLAP RESERVED BIT 
-SET THE OVERLAP RESERVED BIT 



^wai 



TIME CLOCK CCC5AC41 



PUNID 22$E0J 



CARD IC ZEC00357 



DIST. OF 3/Cl 



3/01 



PAGE NUMBER 405 



LINE 



LOCATION 



BINARY OUTPUT 



NAFE 



STATEMENT 



LOCATION 



021436 



1* 021436. OC 

2* 021437.00 

2* 021437.40 

^» 02144C.4C 



COCCGO.CC 
CCCC11.C5 
C0CC00.56 
215C02.CC 



84 
30 
84 
80 



021723.34 OE 

022027. 2C DO 
022027. 3C IC 



T ASf'A 8Bl,TASGNnTIXA},TI 
SV,TX3,$R 

ST»TABSCH(TIXA),46 
-{ BU, 18),TCHSXW,46 



-SET THE ASSIGNED BIT — 1/0 REQ TBL ZE0O0357 

-THE CHANNEL ADDRESS ZE000358 

-ABSOLUTE CHAN TO I/O REQ TABLE ZE000359 

-COMPUTE THE CHANNEL NUMBER ZE000360 



5» 021441. 4C 



022307.14 80 007027.20 CO 



ST{EU,7),TC0T+.12,46 



ZE000361 



e* 
1* 
t* 
s« 

1C» 



021442.40 
021443.40 
021444.40 
021445.40 
021446.40 



C22272.14 80 
000000.73 82 
C0CC26.52 80 
C0CC00.C7 84 
C22307.57 80 



CC7027.2C CO 
004027.20 50 
004027.30 IC 
003027.20 DO 
003027.20 CO 



ST(EU,7),TCAT+.12,46 

L,TLNITK{TX3),46 

- I EU,4),TIXJ+0.42,46 

ST,TABStN(TIXA),46 

ST{EU,3),TC0T+.47,46 



-COMPUTE REAL UNIT NUMBER 
-TO THE I/O REQUEST TABLE 



ZE000362 
ZE000363 
ZE000364 
ZE000365 

ZE000366 



11» 021447.40 



C22272.57 80 003027.20 DC 



ST{eu,3),TCAT+.47,46 ZE000367 



12* 
12* 
14* 
15* 
li* 



02145C.4C 
021451.40 
021452.40 
021453.40 
021454. 4C 



0OOC00.C3 84 
C00C00.33 86 
CCCC00.32 86 
C0CG00.34 84 
021234.34 C2 



021234.34 OC 
021234.34 02 
021456.74 02 
022000.07 70 



BZB,TTYPE(TIXA),TA2A 
BB tTFDISP(TIXJ),TA2A 
BB,STATI(TIXJ),TA5LC 
CT0C11*TFREEL(TIXA> 

BRZ,TA2A 



-IF THERE IS NCTAPE MOUNTED 

-IF THE TAPE MTEO IS A SPECIFIC TP 

-AND A THE REQUEST IS FOR A SCRATCH 



ZE000368 
ZE000369 
ZE000370 
ZE000371 
ZE000372 



17* 021455. CO 



022307.13 02 



LCI,TIXB,T COT 



-FOR DO NCT SAVE MESSAGE 



ZE0003ir3 



ie» 

2C» 
21» 
22» 



021455.40 
021456.00 



021456. 4C 



CCCC11.13 03 
C21457.50 00 



022272.13 02 



TA5LC 



LRIf TIXB,UNAGN9 
6,TA5LC+1.0 

CONCLUSION IS A SCRATCH IS MOUNTED AND A LABEL TAPE IS TO RE- 
PLACE IT , HENCE ^E MUST UNLOAD 
LCItTIXB,T CAT -FOR SAVE MESSAGES 



ZE000374 
ZE000375 
ZE000376 
ZE000377 
ZEC00378 



22» 
'2<* 
25* 
2€« 
2?» 
26* 



021457_.CC 
021457. 4C 
021460.00 
021460.40 
021461.40 
021462. 4C 



0CC_C03 . 1 3 03 
021465.53 70 
C0CCC0.13 56 
00GGO0.40 86 
000000.35 86 
000000.65 86 



All » 1 1?§ 1 yN A§!!*3 

SR,flXB,TVARI 

SC,TIX8,0.0{TIXJ) 

CM1111,TCH0HN(TIXJ) 

CMOCOO,TUNASG(TIXJ) 

CMOOOO,SIMNT(TIXJ) 



ZEq00379 
"Z"E000380" 
ZE000331 
ZE000382 
ZE000383 
ZE000384 



001000.36 FO 
001000.00 FO 
001000. CC FO 



-SET- UP THE DUMMY UNIT AREA AODR, 

-AND SET TO MCP OWNER 

-ALSO SET ASSIGNED 

-AE_SEJ__1H^ 

■AQM.LAIIS 

-THEN UNLOAD WITH - SFREE - 

-MAY ALSO BE UNAGN3 

-THEN RESET BACK TO PP OWNER 



2i*_021463.4C 
"3C« 021464.40 
31« 021465. OC » 
32» 021465. 4C 
33« 021466.00 
34* 021467.00 



Ci'_GC_0_0_»A3 
G0CG40.10 
C0CC12.40 
COOCll.CO 
C00C00.40 
021234,10 



86 
00 
80 
80 
86 
CO 



OCIOOO.CC FO 



CMOCqq^SMOUNTjTIXJ) 

B,DMCP 

,CFREE 

,UNAGNg 

CMOCOO,TCHOWN(TIXJ) 

B,TA2A 



ZEqqq385 

"ZE000386 
ZE000387 
ZE000388 
ZE000389 
ZE000390 



T IPL3 
T VARI 



001000.00 FO 



35* 
36* 
37* 
36* 
3S» 
4C» 



Z £000391 
"ZE00C392 
ZE000393 
ZE000394 
ZE000395 
ZEC00396 



SINGLE UNIT ASSIGNMENT 

MARK THE 1/0 CHAN/UNIT RESERVED 

MARK THE I/O REQUEST ASSIGNED 



021467. 4C 
02147C.00" 



C 2 1 4 7 2 .2 3 42 

00CC00.77 82 
021473.10 CO 
000000.76 82 
CCCCOO.CO 84 
C_0_C_0_11._G5_30 
0O0C0_q^56 84" 
021245. 5C 00 



T A5S 



>^^»_IQ.I^^QXlO-P($15) 
"BXF,TA5Z 



-IF NO T^ AVER LA P 
-SET THE OVERLAP' 



41* 
42* 
43* 

4-4* 
45* 
4e* 



ZEqoq3g7 

ZE000398" 

ZE000399 

ZE000400 

ZE000401 

ZE000402 



021470.40 

021471.40 

021472. CC 

021473.00 

Q21474.q0_ 

021474.40 

021475.40 



001000.36 FO 

001000.36 FO 
021722.74 OE 



T A5Z 
T A5SA 



CM1111,T0VRES<TX3) 
B,TA5SA 

CM1111,TUNRES{TX3) 
BBl,TASGNnTIXA),TH 
SV,TX3 »$R 

SI._IABSCH{Ji^A5jA6__ 
"b,TB2 



RESERVED BIT 



■SET THE NOT OVERLAP RESERVED BIT 
-SET THE ASSIGNED BIT — I/O REQ TBL 

JAE A1*y ^y!^I I_ *PPi^ASS 

•PLACE IN THE I/O REQ TBLE 



47* 
"46* 
4S» 
5C» 
51* 
52* 



022027. 2C do 



ZEoqq4q3 

'ZE000404" 
ZE000405 
ZE000406 
ZE000407 
ZE000408 



CHECK TO SEE THAT ALL UNITS WERE ASSIGNED TO A GIVEN 
PP. IF SO MARK THE ASSIGNED BIT ON IN THE PP 
REFERENCE TABLE 



■Nai 



time clock 0c05aca1 
"lIne^'^locatIcn 



PUNIO 22$E0J CARD ID ZE000410 CIST. OF 3/Cl 
BfNARY"CUTPUT NAME STATEMENT 



3/01 



PAGE NUMBER 406 
I OC A t1 CTJ oYf 4 7 6 



1* 
2* 
2* 
4» 



021476.00 
021476.40 
021477.40 
021500.00 » 
021501.00 



000024.02 00 
GC0000.22 84 
232307.11 01 
00CC00.C0_84 
021476.51 48 



021500.34 00 



021510.74 00 



T AS 
T A8A 

T A888 



R,TIXA 

BZB,TLASTtTIXAJ,TA88B 
LVI,TIXA,TIOREQ 
BZB.TASGNIj JJ X AJ_fJA8B_ 
"CB+,TIXA,TA8A 



-RELOAD -A- 

-RELOAD IX TO BEGINNING OF TABLE 
-IF NOT ASSIGNED 



ZE00041G 
ZE000411 
ZE000412 
ZE000413 



5* 

1C» 



Z £00 0414 
ZE000415 
ZE000416 
ZE000417 
ZE000418 
ZE000419 



021501.40 
021502.40 

021503.00 



000000.46 83 
C0CC00.24 IF 
021723.63 42 



001000.36 FO 



T B8C CM1111,TASGNP(TIXE) 
. LX,TCTWCX,0.0{$15) 
BXFjIK 



-SET PP ASSIGNED BIT 
■LOAD FOR OVERLAP TEST 

•IF NOT OVERLAP MODE 



11* 
12* 
13* 
14* 
15» 

le* 



ZEO0g42C 
ZE000421 
ZE000422 
ZE000423 
ZE000424 
ZE000425 



021503.40 
021504.00 
021504.40 
021505.40 
021506.40 



C0CCC2.07 07 
021505.70 40 
232227.43 80 
232227.37 80 
00CC00.24 IF 



001000.22 BO 
021172.34 02 



T B8Z V+ICR,TIXE,2.C 

BZXCZ,TB8A 

M+1,TLGCP1 
T 88A BB,TINDE,TA1 

L X , TC I W D X , p_._0J_$ 1 5 ) 



-STEP IX -E- 

-COUNT IS OK 

-IX REFILLED INDICATOR 

-IF SAVING IS TO BE IGNORED 

iCHECK _MODE _ 8EFpRE_ S A VJ_N_G„ 

JFNOI OVERLAP 

-IF NOT SAVE 



-LOAD FOR OVERLAP TEST 
■NOT OVERLAP ASSIGNED 



11* 
Ifi* 
19* 
2C» 
21« 
22* 



P 2i 507 . C_C_ 

021507.40 

02151C.CG 

02151C.40 

Q21511_.CC_ 

021511.40 



_C2_1112._23_42 
232226.07 10 
021172.10 00 

000000.24 IF 
_0_2_16_62_._2 3 _4 2 

000002.07 07 



BXF,TA1 

SX,TIXE,TSAV 
B,TA1 

LX,TCTWCX,0.0{$15) 
BXF.TAREJX 



ZEPPP526 
ZE000427 
ZE000428 
ZE000429 
ZE000430 
ZE000431 



T ABB 



22* 
2<« 
25* 
26* 
27* 
2£* 



_V + I_CR,TIXE,2.C 
CMllll.TINOE 
8ZXCZ,TA1 
M+1,TLGCP1 
B.TAl 



ZEQQP432 
ZE000433 
ZE000434 
ZE000435 
ZE000436 
ZE000437 



021512.00 
021513.00 
021513.40 * 
021514.40 



232227.37 80 
021172.30 40 
232227.43 80 
021172.10 00 



001000.36 FO 



001000.22 BO 



-DO NOT SAVE INDEX TIXE FROM HERE ON 

-COUNT STILL OK 

-IX REFILLED INDICATOR 

-SO DO NOT SAVE -E- 



2it 
3C* 
31* 
32* 
33* 
34* 



ZEpC0438 
'ZE00043g' 
ZE000440 
ZE000441 
ZE000442 
ZE000443 



MACHINE CCNFIGU^ATION CHANGE 
ADJUST THE NECESSARY TABLES 



_3_-_» 
36* 
37* 
38* 
3S« 
4C» 



Q21515.CC 
021515.40 
021516.40 
021517.00 
021520.00 
021521.00 



2_1_5_C_0_2_«_2A _1_Q. 
COCCOO.CO 8F 
215003.20 30 
022270.00 80 
022271.00 80 
021162.20 10 



T A9 



_L_X «_II_X F , T CH SXh 

CM0C0C(BU,24) ,0.0 ($15) 

LV»TIXG,SBAMCP 

TItltTCSI0,UNAGN3(TIXG) 



r_B_E_GJ_N_N IN G OF ^CH A N „ S T A T TABLE 
-CLEAR CON FIG CHANGE 

-SET UP THE DUMMY SIOL FOR 
-UNLOADING TAPES ON UNITS 



ZEqpp444 
ZE000445 
ZE000446 
ZE000447 
ZE000448 
ZE000449 



030000.00 FO 

000003.02 A8 
000011.02 A8 



TI,l,TDSIO+l.,UNAGNg(TIXG) -FOR UNLOADING SCRATCH TAPES 
LX,TIXG,TTYARA -CLEAR THE MACHINE CONFIGUATION 



41 



021521.40 
021522.40 
021523.00 

021523.40 

Q21524_.4C_ 
021525.40 



ACCC_0_0_._1_C _8 8 
021163.20 DO 
021521.70 40 

232227.22 80 
2 322.2_7._CC_80 
232516.04 10 



010000.00 FO 



T CM9 



CMpCgg,TMCAD_{JJXG) 

V+C,TIXG,TCCMBO 

BZXCZ,TCM9 

CMOCOCTLCHCT 

CMOCgO,TLLCT 

LXlTIXHiIMUCTX ' 



-COUNT TABLE 



ZEg0p45p 
'ZE000451' 
ZE000452 
ZE000453 
ZE000454 
ZE000455 



42» 
42* 
44» 
45* 
46* 



007000.00 FO 
022000. CO FO 



-CLEAR THE CHAN. COUNTER 

^-_CLEAR LARGE SI_CpUNJ AREA 

-BEGINNING OF THE MULTI UNIT CNT TBLE 



46* 

4<;» 

5C* 



ZE0pp456 
ZE000457 
ZE000458 
ZE000459 



021526.00 
021527.00 
021530.00 



CCCC00.24 32 
C00C00.64 8A 
021562.74 C2 



004000.00 FO 
004024.20 50 



T A9A CM0C00,TCHCNT(TIXH) 
L,TECUIP(TIXF),4C 

BRZfTSgB 



-CLEAR THE UNIT 

-GET EQUIP FOR 

-IF NO EQUIP ON 



COUNT AREA 
MACH CONF 
THIS CHAN 



>Hai 



TIME CLOCK 00054C41 PUNID 


22$E0J ( 


:arc 


IC 


ZE000461 CIST. CF 3/01 


3/01 PAGE NUMBER 407 




LINE LOCATION 


BINARY OUTPUT 






NAME 


STATEMENT 


LOCATION 021530 




1* 
2* 

2 » 
A* 


021530.40 
021531.40 
021532.40 
021533. 4C 


021163. CO 
021163.40 
OOCCll.OO 
CCGC11.2C 


80 
80 
80 

30 


030024.21 
030012.30 
000012.20 


9C 

10 
50 






»{8U,24J,TCOMBO,40 

~(BU,24),T2CC«B,20 
L(BU,645,$R,20 
LV,TIXG,$R 


-COMPUTE LOC WITHIN TABLE 
-LEFT SHIFT TO VF 


ZEQ00461 
ZE000462 
ZE000463 
ZE000464 


5* 


021534. CC 


40CC00.CG 


80 


401000. 2C 


5C 






LUBU,!),! 


-AT LEAST GIVE A COUNT OF ONE 


ZE000465 


6* 
7» 
£• 

9* 
IC* 


021535.00 
021536.00 
021537.00 
O2154C.0C 
021541. CC 


C0CCC0.64 
000COO.73 
232513.00 
00CC00.33 
C0CCC0.31 


8A 
8A 
88 
8A 
8A 


021537.34 
004000.20 
010000.20 
021576.74 
021544.34 


00 
50 
90 
02 
02 


T 


9M 


BZB,TEGlJIPJTIXF),T9H 

L,TUNITK{TIXF} 

«+,TOI$K{TIXG) 

BB,TMbLTI(TIXF),TA9D 

8B,TCHAVL(TIXF),TA9B 


-IF A NON TAPE CHAN 
-GET COUNT FOR MULTI CHAN 

-ADD CONFIGURATION TO TABLE 
-IF A MULTI CHANNEL 
-IF CHANNEL NOT AVAILABLE 


ZE000466 
ZE000467 
ZE000468 
ZE000469 
ZE000470 


11* 


021542.00 


CCCC00.40 


8A 


021545.34 


02 






BB,TCHCWN{TIXF),TA9EA 


-IF HCP LEVEL IT IS NOT AVAIL TO PP 


ZE00047i 


12* 

13* 
14* 
15* 
16* 


021543.00 • 

021544.00 

021545.00 

021545.40 

021546.40 


CCCC00.34 
000000.35 
C21547.C3 
C0CC00.76 
021622.34 


8A 
8A 
01 
8A 

CO 


021547.34 
021724.74 

002000.07 


00 
00 

70 


T 
T 


A9B 
A9BA 


BZB,TUNAVL(TIXF),TB9 -IF UNIT IS AVAILABLE 
BZB,TUNASG(TIXF),TM -IF THE UNIT IS ASSIGNED 
LVI,TX1BR,T89 -LOAD FOR SUB ROUTINE BRANCH 
CT0C11(BU,2},TUNR£S(TIXF) -IS UNIT RESERVED BY PP 
BZRZ.TAIO -YES 


ZE000472 
ZE000473 
ZE000474 
ZE000475 
ZE000476 


IT* 


021547. CC 


000C00.64 


8A 


004000.06 


70 


T 


B9 


LF,TEQUIP(TIXF) 




ZE000477 


le* 
19* 

2C* 
21* 
22* 


021550.00 
021551.00 
021551.40 
021552. CC 
021553. CC 


lOCCOO.CO 
021555.76 
CCC032.2C 
COCC30.30 
215C02.20 


80 
CO 
30 
80 
80 


404000.23 
001000.36 


10 
FO 






KFI{BU,4),2 
BZAE,TB9A 
LV,TIXG,TIXF 
CMllll{BU,I),TIXG+.24 

V+,TIXG,SXCHAN 


-LOOK FOR CCNSCLE 
-NO 

• 

-SET IX NEG SO TO SUB 

-COMPUTE CONSOLE CHANNEL 


ZEC0047a 
ZE000479 
ZE000480 
ZE000481 
ZE000482 


23* 


021553.40 


C0CC11.21 


30 










SV,TIXG,$H 




ZE000483 


2A* 
25* 
26 « 
27* 
2£» 


021554. CC 
021555.00 
021555.40 
021556.40 » 
021557. CC 


215006.02 
021562.50 
24CCC0.C0 
021562.76 
C0CC32.2C 


80 
00 
80 
CO 
30 


021027.12 
404000.23 


FO 
10 


T 


B9A 


SF(BU,17),SYCCCH+.2,^6 

8,TBgB 

KFI{BU,4),5 

BZAE,TBge 

LV,TIXG,TIXF 


-LOOK FOR A PRINTER 
-NO 


ZE000484 
ZE000485 
ZE000486 
ZE000487 
ZE000488 


29* 


021557.40 


C0CC30.30 


80 


001000.36 


FO 






CMllll(8U,l),TIXG+.24 


-SET IX NEG SO TO SUB 


ZE000489 


3C» 
31* 
32* 
33* 
3A* 


02156C.4C 
021561.00 
021561.40 
021562.40 


215C02.2C 
000011.21 
215006.42 
021526.25 


BO 
30 
80 
48 


021027.12 


FO 


T 


B9B 


V+,TIXG,SXCHAN 

SV,TIXG,$R 

SF( BU, 17 J ,SYPRCH+.2,46 

CB+,TIXF,TA9A 


-COMPUTE THE PRINTER CHANNEL 


ZE0004gO 
ZE000491 
ZE000492 
ZE000493 
ZE000494 - 


35* 












- 




SAVE THE VALUES OF THE UNIT COUNT INDEX 


ZE000495 


36* 
37* 
3£» 
39* 
4C» 


021563.00 
021563.40 
021564.00 
021565. CC 


000000.45 
232521.05 
232521.30 
232522. C5 


OD 
10 
80 
CI 


001000.36 


FO 






V-I,TIXH,C.32 
SX,TIXH,TRCHSC 
CM1111{BU,1J,TRCHSC+C.24 
LVI,TIXH,TCHCUC 


-REDUCE BY A HALF 

-SET THE IX NEG 
-MODIFY THE VALUE FIELD 


ZE000496 
ZE000497 
ZE00049B 
ZE000499 

ZE000500 


41* 


021565.40 


232520.05 


10 










SX,TIXH,TFCHSC 


-SAVE THE FORWARD SCAN INDEX 


ZE000501 


42* 
43* 
44* 
45* 
46* 


021566.00 


C00C22.24 


10 






T 


D9A 


SORT THE UNIT COUNT TABLE 
LX,TIXF,TIXH -LOAD TRANSIT INDEX 


ZE000502 
ZE000503 
ZE000504 
ZEG00505 
ZE000506 


47* 


021566. 4C 


021575. 7C 


42 










BXCZ,TC9 


-IF NO MULTI UNIT TABLE 


ZE000507 


4E* 
4S* 
5C* 


021567.00 
02157C.C0 
021571.00 


OOCCOO.CO 
C0CC00.24 
021573.77 


82 
8A 
40 


040020. C6 
004024.23 


70 
10 


TCSB 


LF{BU,32),0.0(TIXH) ,32 

KF,TCHCNT{TIXF),40 

BZAH,TD9C 


-LOAD ACC WITH THE TCP WORD 
-IF ACC IS THE SMALLER 


ZE000508 
ZE000509 
ZE000510 







'Nai 



TIME CLOCK CCC54C^1 



PUNID 22$E0J 



CARD IC ZE000512 



DIST. CF 3/Cl 



3/01 



PAGE NUMBER 408 



LINE 



LOCATION 



BINARY OUTPUT 



NAME 



STATEMENT 



LOCATION 



021571 



1» 021571.40 
2* 021572.00 
2* 021573.00 
ti* 021573. 4C 



OOOC00.20 
000000.00 
00CCH.21 
021570.24 



3A 

8A 
30 
CB 



040020.20 00 



T C9C 



LV,TIXG,0.0(TIXF) 
ST{eU,32),0.0{TIXF),32 
SV,TIXG,$R 
CBH,T1XF,JP9B 



-USE INDEX FOR SWAPPING 

-STORE THE GREATER 

-RELOAD AGO WITH THE LESSER 



ZE000512 
ZE000513 
Ze000514 
ZE000515 



5* 
6* 
7* 
fc» 

ic? 

11* 



0215 7 4. 00 
021575. CC 

021575.40 
021576.00 



cccccg.co 82 

C21566.C4 CB 

CCCGC0.24 IF 
021167.10 CO 



P5 P P 2 0_._2 D_C S T (^ Py , 3 2 J , p. pj J_I_X HJ_»JL2_ _ _ _-R E P L AC E T H E I N_I J_I_A L_ MRP AILH F IN A L 

CBH,TIXF,TD9A 



Z £000516 
ZE000517 
ZE000518 
ZE000519 
ZE000520 
ZE000521 



T C9 LX,TCTV«CX,0.0($15) 
B.TEIF 



-RELOAD FOR TEST 



MULTI UNIT SCAN 



?Epgp522 
'ZE000523 
ZE000524 
ZE000525 
ZE000526 
ZE000527 



12* 
13* 

15* 
16* 



021576.40 
021577. 4C 
021600.00 
021600.40 



00CC00.73 8A 
00CC11.2C 50 
021547.30 42 
C0CC00.20 3A 



004027.20 50 



T A9D L,TUNITK(TIXF),46 

LC,TIXG,$R 

BXCZ,TB9 
LVtllXG, I UN T B_AJ J_I_X_F 



-LOAD FOR UNIT TABLE SCAN 
-UNIT tOUNT TO CF 
-IF NO UNITS CONNECTED TO CHAN 
-UNIT TABLE ADDRESS TO VF 



11? 

le* 

1?* 
2C* 
21* 
22* 



P2_160_1_.C_G_ 

021602. CC 

0216C3.00 

021604.00 

021605.00 

021605.40 

021606^40 

021607.00 



_0_0_CC_00.._31_8A 
00CG00.40 88 
C0CC00.34 88 
OOCC00.35 88 
021607.03 01 
_0_0_C_C_0_0_._76 _8 8 
_Q_2_l_6_2_4_._l4 _C 0. 
021601.21 48 



Q21604.34__0_2_ 
021605.34 02 
021617.74 00 
021725.34 00 

002000.07 70 



J_ A9E_ B B I.ICH A y Lj T J X F )„f T_A_9_F_ 

BB,TCHCKN{TIXG),TA9FA 
BZB,TUNAVL(T1XG) ,TC9 

T A9F BZB,TUNASG{TIXG),TN 

T A9FA LVI,TX1BR,TA9G 

CT0Cll{Byi2ijTUNRESlTIX_G_) 



-IF_CHAN_IS_NOT AyA_ILA_B_L_E 

-IF MCP LEVEL IT IS NOT AVAIL TO PP 
-IF THE UNIT IS AVAILABLE 
-IF THE UNIT IS ASSIGNED 
-LOAD FOR SUB ROUTINE BRANCH 



?iPPP52a 

ZE000529 
ZE000530 
ZE000531 
ZE000532 
ZE000533 



23* 
2^» 
2f • 
26* 
27* 
2i* 



_BZRZt_TClC 

CB+,TIXG,TAgE 



-IF THE UNIT IS RESERVED BY PP 



ZE000534 
ZE000535 
ZE000536 
ZE000537 
ZE000538 
ZE000539 



T A9G 



ADVANCE THE UNIT COUNT TABLE FOR ANOTHER CHANNEL 



2i» 
3C* 
31* 
3i» 

33* 
3^* 



021607^40 
02161C.4C 
021611.00 
021612.00 
021612.40 
021613.40 



_co_cc_o_o_- 

021547, 
232227. 

COCCll, 
OOOCOO, 
COCGOO, 



2A 
34 
22 

25 
CO 
45 



82 
C2 
80 
30 
82 
05 



-pC4ogg.C6_7p_ 

007000.22 BO 
022027.20 CC 



AllLlCHCNIiTIXHJ 

BRZ,TB9 

M-H,TLCHCT 

SV,TIXF,$R 

ST,TCHACD(TIXH},46 
■V + I,TIXH,0.32 



-_TJE_SJ_ _F_C R _N g E N T R Y 

-IF NO ENTRY 
■BUMP THE CHAN. COUNTER 

-SAVE THE CHANNEL ADDRESS 

-ADD A HALF WORD TO VF 



ZE000540 

ZE00054i' 

ZE000542 

ZE000543 

ZE000544 

ZE000545 



35* 
36* 
37* 
36* 
3?* 
4C* 



02161-^.00 
021614.40 
021615.40 
021616.00 
021617.00 



COCCOl. 
232227. 
021547, 
232227. 
021547. 



5 00 
00 80 
37 40 
00 80 
10 CO 



022000.23 10 
022000.20 DO 



_C_tl»_TIXH, 1.0 
KF.TLUCT 
BZAH,TB9 
ST.TLUCT 
B,TB9 



-KEEP ONLY THE LARGEST COUNT 
-IF TLUCT IS LARGER 
-SAVE THE LARGER 



ZEggg546 

"ZE000547' 
ZE000548 
ZE000549 
ZE000550 
ZE000551 



A I* 
42* 
43* 
44* 
45* 



ADO TO THE UNIT COUNT IN THE MULTI UNIT TABLE 



ZEggg552 

ZE0C0553 
ZE000554 
ZE000555 
ZE000556 



021617.40 
021620.40 * 
021621.40 



000000.64 8A 
C0CC00.24 82 
021607.10 00 



021607.34 00 
004000.22 BO 



T C9 BZB,TEQU1PCTIXF),TA 
«+l,TCHCNT(TIXH) 
B,TA9G 



9G -NOT A TAPE UNIT 

-ADD TO THE UNIT COUNT 



^Mai 



( 

i 


20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 
1 


TIME CLOCK CCC5 


4C41 PUNID 


22$E0J 


CARD 


ID 


ZE000558 CIST. OF 3/01 


3/01 PAGE NUMBER 409 


i 




LINE LOCATICN 


BINARY CUTPUT 






NAME 


STATEMENT 


LOCATION 




( 


1» 
2* 

3* 
4» 


021622.00 
021623.00 


000000.76 
G0CCC0.77 


8A 
8A 


001000.00 
001000.00 


FC 
FG 


T 


AlO 


MACHINE CONFIGURATION CHANGE, THE RESERVED BIT 
IS ON AND THE CHAN ANO/OR UNIT IS DOWN 
CMOCOOtTUNRES(TIXF) -RESET THE UNIT RESERVED BIT 
CMOCOC,TOVRES{TIXF) -RESET THE NOT OVER LAP RES BIT 


ZE000558 
ZE000559 
ZE000560 
ZE000561 




S • 


021624. CO 


021626.50 


CO 










B,TA10A 




ZE000562 


1. 

( 


i* 
1* 
f» 

1C« 


021624.40 
021625.40 

021626.40 


0CCC00.76 
000000.77 

232232.16 


88 
88 

10 


001000.00 
001000.00 


FO 
FO 


T 

T 


CIO 

AlOA 


CMOC00,TUNRES(TIXG) 
CMOCCC,TOVRES(TIXG) 

LX,TIXC,TPPRUN 


-RESET THE UNIT RESERVED BIT 
-RESET THE NOT OVERLAP RES BIT 

-SET FOR LOCATING NEXT JOB TO BE RUN 


ZE000563 
ZE000564 
ZE000565 
ZE000566 

ZE000567 




11* 


021627.00 


232227.42 


80 


001000.00 


FO 






CMOCOOfTLOOP 


-RESET THE LOOP INDICATOR 


ZE000568 


( 


12» 
13* 
14« 
15« 
16* 


021630.00 
021631.00 
021632.00 
021633.00 
021633. 4C 


000000.47 
00C000.44 
C0CC00.34 
021645.34 
C0CC00.12 


67 
87 
87 
C2 
57 


000000.34 
021645.34 
010027.20 


03 
02 
50 


T 


BlOA 


BB,TLPPEN{TIXD),C.0(TX1BR) -IF LAST ENTRY IN PP REF TBL 
B6,TJ8PRO(TIX0),T810 -IF THE JOB hAS PROCESSED 
L,TLNCT{TIXC),46 -GET THE UNIT COUNT 
BRZtTBlG -IF A NCN I/O TYPE JOB 
LC,TIXI,TCRREF{TIXD) -GET 18 BIT I/C REG TBL ADD 


ZE000569 
ZE000570 
ZE000571 
ZE000572 
ZE000573 




n* 


021634. CO 


000025.13 


50 




00 






SC,TIXI,TIXI 


-SAVE ONLY 18 BITS 


ZE000574 


( 
( 


It* 
1^» 

2C« 
21* 

22* 


021634.40 * 
021635.00 


000011.12 
000000.22 


50 
85 


021636.74 


T 


All 


LC,TrxI,$R 
BZB,TLAST(TIXI),TA11B 


-UNIT COUNT TO CF 


ZE000575 
ZE000576 
ZE000577 
ZE000578 
ZE000579 




23* 


021636. GC 


232307.13 
000000.56 
000011.24 
021644.72 

000000.03 
000000.73 


01 
85 
90 
CO 
85 
8A 


"022027.20 

021647.74 
004027.20 


5C"" 

00 
50 


" T" 




LVI,TIXI,TIOREQ 




ZE000580 


( 

( 


2i* 
25* 
26* 
21* 
2€» 


021636.40 
021637.40 
021640.00 
021640.40 
021641.40 


A118 


L,TABSC1-(TIXI)»46 

KV,TIXF,$R 

BZXE,TB1CB 

BZB,TTYPE{TIXI),TA11A 

L,TUNITK{TIXF),46 


-GET ABSOLUTE CHANNEL ADDRESS 
-COMPARE CHANNEL AODRESSFS 
-IF UNLIKE 
-IF THE TYPE I S NOT TAPE 


ZE000581 
ZE0005a2 
ZE000583 
ZED00584 
ZE000585 




2S» 


021642.40 


000000.07 


85 
90 
C2 
48 

07 
40 


003027.30 


10 


T 
T 


BlOB 
810 


-,TABSUNtTIXI) ,46 


-COMPUTE THE RELATIVE UNIT^-NUMTER" 


ZE000586 


( 

( 


• 31* 
32* 

33* 
34* 


021643.40 
021644.00 
021644.40 
021645.00 
021645.40 


000011.21 
021647.72 
021635.13 
000002.17 
021630.30 


KC,TIXG,$R 

BXE,TA11A 

CB+,TIXI,TA11 

V+ICR,TIXC,2.C 

BZXCZ,TB10A 


-COMPARE UNIT LOCATIONS 
-IF LIKE 

-IF THE COUNT IS OK 


ZE000587 
ZE000588 
ZE000589 
ZE000590 
Ze000591 




35* 


021646.00 


232227.42 


80 


021630.34 


OC 






BZB1,TLCCP,TB10A 


-SET THE LOOP PREVENTER 


ZE000592 


( 


36* 
37* 

36* 
3S* 
4C* 


021647.00 

021647.40 » 

021650.40 

021651.40 


021647.04 

000000.46 
000000.00 
OOOG00.56 


00 

87 
85 

85 


001000.00 
001000.00 
022000.00 


FO 
FO 
FO 


T 


AHA 


B0,$ 

CMOOOO,TASGNP{TIXD) 
CMOCOO,TASGNI(TIXI) 
CMOCOO,TABSCH{TIXI) 


-MCP OR MACHINE ERROR 

-RESET THE ASSIGNED BIT PP REF TBL 

-RESET THE ASSIGNED BIT ~I/0 REQ TBLE 
-ZERO THE CHANNEL ADDRESS 


ZE000593 
ZE000594 
ZE000595 
ZE000596 

ZE000597 




41* 


021652.40 


C0CC0O.O7 


85 


003000.00 


FO 






CMOC00,TABSUN(TIxn 


-ZERO THE REL UNIT ADDRESS 


ZE000598 


( 


42* 
42* 
44* 
45* 
46* 


021653.40 
021654.40 
021655.40 
021656.40 
021657.00 


000000.02 
000000.01 
232227.42 
232512.16 
021660.32 


85 
85 
80 
90 

40 


001000.00 
001000.36 
021644.74 


FO 
FO 
02 






CM0C00,TPRINT(TIXI) 
CMHll,TUNOBT(TIXn 
BB,TLOOP,TB10B 
KV, TIXCTVALVF 
BZXL,TB11C 


-RESET THE PRINT TO OPERATOR BIT 
-RESET TO ONE THE NOT OVERLAP BIT 
-IF IX WAS REFILLED ~ BRANCH 
-SHALL WE RESET THE VALID CHK PTR 

-NO 


ZE000599 
ZE000600 
ZE000601 
ZEG00602 
ZE000603 




47* 


021657.40 


232512.17 


30 










SV,TIXD,TVALVF 


-YES — 


ZE000604 


i 

c 


4£» 
4S* 

5C» 
51* 

52* 


02I66C.C0 
021660.40 
021661.00 
021661.40 


232226.16 
021644. 72 
232226.17 
021644.50 


90 
40 
10 
00 






TfillC 


KV,TIXD,TSAV 

BZXL,TB10B 

SX,TIXD,TSAV 

B,TB10B 


-DOES THE TSAV PTR. NEED RESETTING 
-DO NOT PLACE IXH IN TSAV IF IX GREATR 
-DO PLACE IX IN TSAV IF LESS 
-LOOK FOR MORE 


ZE000605 
ZE000606 
ZE000607 
ZE000608 

ZE000609 






i 





z 

E 



'Hai 



TIME CLOCK 000540^1 



PUNID 22$E0J 



CARD ID ZE0006I1 



DIST. OF 3/Cl 



3/01 



PAGE NUMBER 410 



LINE 



LOCATION 



BINARY OUTPUT 



NAME 



STATEMENT 



LOCATION 



021662 



I* 
2* 

2* 
A* 



021662 
021662 
021663 
021663 



.00 
.40 

.00 

.40 



021753. 
CCCCOl. 
00C024. 
021716. 



25 01 
25 33 
02 00 
70 42 



TAREJX LVI,TX1,TMESSY 
SV,TX1,1.(TIXE) 

T AREJ R,TIXA 

8XCZ,TAREJ6 



-SET REASON FOR REJECTION 



-RELOAD IX 

-IF A NCN lOD TYPE 



PP 



ZE000611 
ZE000612 
ZE000613 
ZE000614 



_5» 
£» 
i» 
i* 

1C« 



021664 
021665 
021666 
021666 
021667 
021670 



.C0_ 

".00 

.00 

.40 

.00 

.00 



c_occqq._ 

GOCCOO. 
OOOGll. 
021676. 
000000. 
215C02. 



15_83 
56 84 
24 30 
34 C2 
33 8A 
00 80 



PClppp.36_ F_0 
022027.20 50 



021711.34 00 
022027. 3C__1C_ 
0C702 7„.2C_ CC_ 
022027.20 50 



c M 1 111, I B J e C JJ T I X EJ _ 
"L,TABSCH(TIXA),46 
LVtTXl,$R 
BRZ.TAREJN 

BZB,TMULTI{TXl),TARE43 
Tl_Bytl8),TCHSXW,46 



^SfcT THE REJECJ BIJ 

-GET THE CHANNEL ASSIGNED 



-IF NOT A MULTI CASE 
-COMPUTE THE CHANNEL NUMBER 



ZEg00615_ 
"ZE000616 
ZE000617 
ZE000618 
ZE000619 
ZE000620 



T AREJl 



II* 
12» 
13» 
14* 
15* 
16» 



Q21671 
021672 
021673 
021673 
021674 
021675 



•_GC_ 

.00 

,00 

.40 

.40 

.40 



JD.2_22_72. 

ooccoo. 

COCOll. 
OOCCOO. 
022272. 

000011. 



CO 8A 
24 30 
07 84 
57 80 
24 80 



S I {_E y 1^ 7 ) , JC AT +.12 ,46 

L,TUNTBA(TX1),46 

LV,TX1,$R 

L,TA8SUN{TIXA»,46 

ST(BU,31,TCAT+.47,46 

vttlxiilB 



zEggg62i 

'ZE000622 
ZE000623 
ZE000624 
ZE000625 
ZE000626 



003027. 2C 50 
003027.20 DC 



-GET UNIT TABLE ADDRESS 

-GET UNIT NUMBER 

-ALSO STORE THE UNIT NUMBER 

_-ADD_IO_yALyE 

-GET _ADDRESS_gF_ REEL 

-IF NO REEL 

-ZERO THE RfEL SLOT 

-IF REQ WAS NOT ASSIGNED AS UNIT 

-SET UP THE UNIT AREA TABLE ADDRESS 



le* 

19« 
2C» 
21« 
22* 



P2_1676 
021677 
021677 
0217CC 
021700 
021701 



.o_c___ 

.00 « 

.40 

.00 

.40 

.40 



_c_c_cc_qq._ 

021711. 
000011. 
OOCCOO. 
CCCOOO. 
022272. 



34_84 
34 C2 
04 30 
22 02 
00 84 
25 02 



022027.20 50 



T AREJN 



LtTFReELlTIXAJ_,4A 

BRZ,TAR£J3 
LV,TX3,$R 
Z,0.0{TX3) 

BZB,TASGNUTIXA),TAR£J3 
_LCI_,TX1,TCAT 



zEggg627_ 

ZE000628 
ZE000629 
ZE000630 
ZE000631 
ZE000632 



021711.34 00 



23* 
2<* 
25* 
26* 
27* 
2£* 



021702 
021702 
0217C3 
021704 
021705 
021706 



•CC 
.40 
.40 
.40 
.40 
.40 



0_0_CJC_0_0_- 
OCCCOO. 
CCCOOO. 
OOCCOO. 
OOCCOO. 
C0C040. 



2_5 _5 A 
35 8A 
40 8A 
65 8A 
63 8A 
10 00 



AC»_TX1, 
CMOCOO, 
CMIUI, 
CMOCOO, 
CMOCOO, 
B,DMCP 



C.G{TX1J 

TUNASGITXI) 
TCHOWNCTXIJ 
SIMNTdXll 
SMOUNTITXIJ 



_-J_N _THE_ _yN LI _SIATy S_ T ABL E_ 
-RESET THE ASSIGNED BIT 

-SET UNIT OWNER TO MCP 

-TO RESET THE 

-MOUNT BITS 

-GO TO FREE THE TAPE 



?.Eggg633 

ZE000634 
ZE000635 
ZE000636 
ZE000637 
ZE000638 



001000.00 FO 

001000.36 FO 

OdlOOO.CC FO 

001000.00 FO 



T IPL4 



2i* 
3C» 
31* 
32* 
33* 
34* 



021707 
021707 
021710 
021711 
021711 
021712 



•CO 

.40' 

.CO 

.00 

.40 

.00 



_C_C_C_C_12_. 
C0CCC3. 
COOCOO. 
OOCCOO. 
OOCCOO. 
C21714. 



^-0__8q 

CO 80 
40 8A 
22 04 
25 05 
71 42 



_»_DFR|E_ 
,UNAGN3 
CMOCOO, 
Z,0.0{T 
V+I,TX1 
BXVZ.TA 



ZE000639 

ZE000640" 

ZE000641 

ZE000642 

ZE000643 

ZE000644 



001000. CO FO 



T AREJ3 



TCHOWN(TXl) 

IXA) 

,0.0 

REJ4 



-RESET UNIT TO PP OWNER 
^ZERO THE I/O REQ SLOT 
-FOR INDEX CHECK 
-IF REQ >«AS NOT ASSIGNED 



35_* 
36* 
37* 
38* 
3S* 
4C* 



Q21712 
021713 
021714 
021715 
021716 
021716 



•^C * 

.40 

.40 

.40 

.00 

.40 



PP_o_c_o_o_. 

OOCCOO. 
OOOCOl. 
232306, 
021665. 
C217 57. 



7_6__84. 
77 aA 
22 84 
11 CI 
11 48 
C3 80 



02171^- Z^_ 06 
001000. CC FO 
021716.34 00 



022123.34 06 



BBZ,TUN 
CMOCOO, 
8Z8,TLA 
LVI,TIX 
CB+,TIX 
8RZ,YSC 



I^?SLIX1),TAREJ4 

TGVRES(TXl) 

ST+1.0(TIXA),TAR 

A,TI0REQ-1.C 

A,TAREJ1 

RET,TP18A 

cx,g.g<$i5) 

8Z 



-RESET THE NOT OV RES FIRST 



ZEg0064.5 
ZE000646 
ZE000647 
ZE000648 
ZE000649 
ZE000650 



T AREJ4 

T AREJ5 
TARtJ6 



EJ5 



42* 
43* 
44* 
45* 
46* 



Q21717 
02172C 
021720 
021721 
021721 
021722 



•5P 

.cc" 

.40 
.00 
.40 

.OC 



jyiQcpA- 

021503. 
021724. 
021763. 
021763. 
021763. 



2_4_1F 

63 40 
10 00 
10 CO 
10 00 
IC 00 



_LX»_TCTW 
BZXFtTB 
8,TL 
B.TSCRI 
B,TSCRI 
B,TSCRI 



-CHECK THE MODE 



ZE000651 
"ZE000652' 
ZE000653 
ZE000654 
ZE000655 
ZE000656 



T C 
T F 
T G 



-IF NOT OVERLAP 

-NOT OVERLAP FULLY ASSIGNED 

-OK — ALL I/O REQ HAVE BEEN PROCESSED 

-OK — NO MCRE UNITS AVAIL FOR ASSIGN 



47* 
4£» 
49* 
5C» 
51* 
52* 
53* 



021722 
021723 
021723 
021724 
021724 
21725 
021725 



• 40 

.CO 

.40 

.00 

.40 

.PP_ 

.40 



JD_2_L7_2^2._ 
C21723. 
021763. 
022104. 
021724. 
C21725. 
021725. 



44 00 
04 00 
10 CO 
5C CO 
44 00 

Q4_gg 

44 00 



J__H_ 
T I 
T K 
T L 

T M 

JLA 

T P 



BD,_$ 

BD,$ 

B,TSCRI 

B.TPICA 

8D,$ 

BOs_$ 

BD,$ • 



_-4 S S IGN^B 1 1 gN_ r_ SJ NG UNJ X -QMAN ZIE0gg657 

-ASSIGN BIT ON - MULTI UNIT CHAN ZE000658 

-OK — NGT OVERLAP JOB FULLY ASSIGNED ZE00065g 

-NOT OVERLAP JOB NOT ASSIGNED ZE000660 

-HACH CGNF CH. ASSIGN BIT CN - SING ZE000661 

_-M ACH _CCNF CH ._ ASSJ GN_ _BJJ_ _CA _" AULll ?Eggg662_ 

-ERROR MCP IS OUT OF PHASE ZE000663 



B 



*Kai 



TIME CLOCK 00054041 
L J NE" " ~ LCC A T i GN 



PUNID 22$E0J CARD ID ZE000665 DIST. OF 3/01 
BINARY^CUTPUT "NA'ME STATEMENT 



3/01 



PAGE NUMBER 411 
LOCATION 



z 

£ 
9 

^ r 

8 
6 

0, r 



i» 

2* 



A PRINT SOB - ROUTINE THAT WILL PRINT ASSIGNMENTS 



ZE000665 
ZE000666 
ZE000667 
ZE000668 



ZE000669 



t* 
J* 

fc« 

S* 

1C« 



021726.00 » 
021733. CO 



CNOP 
T 6UF01 (IGSX)CC{BU,64,8l, 
T M8LK { IQSX)DD(BU,64,8), 



SET UP THE FOLLOWING UNITS 

X-BLANK MASK 



ZE000670 
ZE000671 
ZE000672 
ZE000673 
ZE000674 



Al*_Q21734.00 O0CO17473332130331C621 T 8UF81 0D{ BU ) , { 16) C00F9DB68B0D9191 -BYPASS IN RED ZE000675 



12» 
12* 
14* 
15* 
16* 



021735.00 
021737.50 
021740. 5C 
021742.10 
021742.40 



( IQSX)DC(BU), MOLNT - RttL NUMBER X 
T REELX (IQSX)0D{BU,64,8), X 

{ IQSX)DD(BUt64,8)f ON CHANNEL X 
T CHANX { IQSX)DC(BU,24,8), X 

( IQSX)DC(BU,36,8), UNIT X 



ZE000676 
ZE000677 
ZE000678 
ZE000679 
ZE000680 



n* 

Ifci 

19* 

2C* 
2\* 
22* 



21 7 4 3 ._2_G_ 
021744. CC 
021745.00 
021746.00 
021747.00 
021752. CC 



T UNITX { IQSX)DC(BU), 



00CC2 70730 142500 10 56 17 
10462 3052 1C6230000C000 



DC(BU), (16)CC171C8 31500EBeF 

DD(EU),U6)8993151193C0C000 

I SCRAT ( IQSXJDDCBU, 64, 8), SCRATCH X 

T SUBHD ( IQSX)DD(BU,8,8), — PROBLEM 

T PID { IQSX)DD{BU,64,8) , X 



PROGRAM X 



ZE000681 
ZE00C682 
ZE000683 
ZE000684 
ZE000685 
ZE000686 



CNOP 



ZE000687 



24* 
25* 
26* 
27* 

2e» 



021753.00 » 

000022.00+ 
000023.00+ 
000024.00+ 



T MESSY {A*)DD(8U), I/O REQ. INCOMP WITH MACH CGNF.» 



+0CCC00C0 
+GCCC00C0 
+COCCOCCC 



BU,1CC,10 
BU.ICO.IO 
BU,ICC,1C 



T 
T 
T 



XA 
XB 
XC 



SYN,$2 
SYN,$3 
SYN,$4 



ZE000688 
ZE000689 
ZE000690 
ZE000691 
ZE000692 



2i*_00CG25^CC+ 
"3C* 000026.00+" 
31* 021757.00 
32* 021757.01 
32* 021757.02 
34* 021757.03 



+ OCC_COG_CG 
+OCCOOOCO 



BU,1CC,10 T IXZ SYN,$5 



ZEq00693 
"ZE000694" 
ZE000695 
ZE000696 
ZE0006g7 
ZE000698 



BU,1CC,10 











T IXY 
T HEAD 
T SBHDI 
T NGATE 
YSCRBT 



SYN,$6 

Do(eu,n,c 

DD( EU,1 J,0 
DD{BU,1),0 
DDIBU.l), (2)0 



-SUB HEADING IND 
-GATE FOR NOT OVERLAP RE-ITERATION 



3A*_021760.00 

"36* 021761.00 

37* 021762.00 



P CO 00 0.0 + COO j^Q^Si^ 0_OCGCOO J_ _P_5_I_N_ _ _X_W_ 

CCCOCC,00+ COO 000000 OCOCCC T P50UT XW 
CC0O0C.00+ COO 000000 OCOOOO T PSAV XW 



"pO_Ny_£AS_I_0_N 
-CONVERSION 
-CONVERSION 



BUFFER 
BUFFER 
BUFFER 



IN__ 

CUT 

INDEX 



Z £000699 

ZE000700" 

ZE00070i 



SAVE 



'Hai 



TIME CLOCK C0C54CA1 



PUNID 22$E0J 



CARD IC ZE000703 



DIST. CF 3/Cl 



3/01 



PAGE NUMBER 412 



LINE 



LOCATION 



BINARY CUTPUT 



KAWE 



STATEMENT 



LOCATION 



1» 
2* 

3« 
4* 



SCAN THE PR REF TABLE FOR NEV« ASSIGNMENTS 



ZEG00703 
ZE000704 
ZE000TO5 
ZE000706 



ZE000707 



!• 

£» 
S» 

1C» 



021763. CO 
021763.40 
021764. 4C 
021765.40 



232232.04 10 
00CC00.47 82 
000000.44 82 
G0C00O.45 82 



022100.74 02 
022076.74 02 
022076.74 02 



T SCRIB LX,TXA,TPPRUN 
T P6 BB,TLPPEN(TXA),TP1 
BB,TJBPR0{TXA),TP2 
BB,TRJECT(TXA),TP2 



ZE000708 
ZE000709 
ZE000710 
ZE0007li 
ZE000712 



11?_Q21766_._40 
li* 021767. CO 
021770.00 
021770.^0 
021771.00 
021772. CC 



C_00CCO._C6 
00CCC0.34 
C0CC11.C6 
022076.70 
CCCCOl.CO 
021760. CC 



32 
82 
50 
42 
82 
80 



_L V tl X B , I C R R E FJ T X A ) 
L,TUNCTCTXA),46 
LCtTXB»$R 
BXCZ,TP2 
LF,TPNAME(TXAI 
SF(_BUt64,8_)_, T_P 51 N_ _ 



-GET CRCSS REF ADDRESS 



ZE000713 
"ZE000714 
ZE000715 
ZE000716 
ZE000717 
ZE000718 



010027.20 50 



13» 
1A» 
15» 
16» 



060600. C6 
000000.12 



70 

FO 



-GET PP NAME 

-SAVE FOR CONVERSION 



11* 
IE* 
19* 
2C» 
21* 
22* 



02_177_3_._C_C_ 

021773.40 

02177A.00 

021774.40 

021775. CO 

021775.40 



___C_2_1162._37 
C21774.77 
230566.04 

C2176C.0C+ 

CCCOIC 

021761.00+ 



10 
01 

CO 



_SX|.$l5,IPSAy_ 
LVI,$15,TP6A 
BD,SA8IGS 
VF,TP5IN 
CF,8 
VF,TP501jT 



ZE000719 
ZEOO'6720 
ZE000721 
ZE000722 
ZE000723 
ZE000724 



T P6A 



-SET UP FOR CCNV ROUTINE 

-FHA IN 

- N 
-FhA OUT 



_22«. 
2i* 

25* 
26* 
2'/* 
2£* 



Q21776_.CC__ 
021776. 4C 
021777.40 

022000.00 

022001. Cp__ 
Q22CC2.C0 
022002.40 
022003.40 * 

022004.40 
Q22CC5.4g__ 
022006. CC 



iL21_7_76_._4_C _C 
021761. CC 80' 
021762.36 10 
021752.00 80 

0CC0.Q_._2_2_ _8_3 

_2_3_2_3_0J_«_Q_7_ _0_l 
OOCCOO.OO 83 
000000.03 83 

C0C000.56 83 
C_C_l_l_«_l_0_ _3_0 
000000.10 34 



T IPLBl 



_B_E»_i+.32 

LF(BU,64,8),TP5QLT 

LX,$15,TPSAV 

SF.TPID 

BZBtILAST(IXBJ,JP_5Z 
LVI,TXB,TIOREG 



■_M_Q_D_IF_L£ _BY_IPL 

-GET THE CONVERTED WORD 
■RESTORE INDEX 



ZE000725 
ZE000726 
ZE000727 
ZE000728 
ZE000729 
ZE000730 



000000.06 70 
000000.12 FC 
022002.74 00 



J__PA_ 
T~ pYz' 



2i» 
3C* 
31* 
32* 

33* 
34* 



ZE000731 
'ZE000732" 
ZE000733 
ZE000734 
ZE000735 
ZE000736 



022076.34 OC 
022076.34 00 

022027.20 50 



BZa,TASGNI{TXB),TP3 
BZB,TTYPE(TXB),TP3 

L.TABSCHITXB) ,46 
LV,TXC,$R 



-GET THE CHANNEL STATUS WORD 



JA* 
36* 

37* 
36* 
39* 
4C* 



_l-_Vf_TXCf_C.gnxC) 

L,TABSLN(TXB) ,46 

V+,TXC,$R 

BZB1,TPRINT<TXB»,TP5A 

8Z8,_TlJNRES(.TXCj ,TP3___ 
BBZ,TPRINT(TXB),TP3 



■G_E_T_ _AJIDR.E S S _0 F U N I T T A 8 L E 

-GET THE UNIT NUMBER 

•ADD TO VF TO GET UNIT STATUS WORD 



JJl _0_VE R L A P .RESERVED -- _0_NJ-_V_ _— _ 
-RESET THE PRINT BIT AND GO 



ZEqq0 737 
"ZE00G738' 
ZE000739 
ZE000740 
ZE000741 
ZEg00742 
'ZE000743' 
ZE000744 



022CC6.40 
022007. AC 
O22O1C.O0 

Q22C11^CC 
022012.00 



000000.07 83 
000011.10 BO 
00CC00.02 83 

OjOC C . 7 6 84 
000000.02 83 



003027.20 50 

022013.34 OC 

022P76_.3A_P0_ 
022076.34 06 



42* 



•^Hai 



TIME CLOCK 00054C41 PUNID 22$E0J CARD ID ZEC00746 DIST. OF 3/01 
-O^il II LCC A jTcK^IIIIIIIIIirf IN ARVCUTPUT ^N'a'ME STATEMENT 



3/01 



PAGE NUMBER 413 
lOCATlON 



' ( 
z 

z 

' ( 
s 

9 

L ( 



1* 

3« 
4» 



CONVERT THE CHANNEL FIELDS 



02 2013.00 
022013.40 



CO C GOO. 
C"22C15, 



24 IF 
23 40" 



J_P_5_A LX£^TCTVsCXj0.0J$15) TQy§9!<_J«E MODE 

8ZXF,TP5A1 



ZE000746 
ZE000747 
ZE000748 
ZE000749 



: * 
~l* 

1« 
€* 
?* 

IC* 

n« 

12« 
13* 
14* 
15» 
16* 



ZE000750 
"ZE00075r 
Ze000752 
ZE000753 
ZE000754 
ZE000755 
ZE000756'" 
"ZE000757~ 
ZE000758 
ZE000759 
ZE000760 
ZE000761 



02201^.00 

022014.40 

022015.00 

022016.00 

022017.00 » 

p22C20_.0_Cl 

022021.00 

022022.00 

022023.00 

022024.00 



C211C6, 
C22C76. 
OOCCCO. 
215G02< 
232225. 

c_cccqq. 
coccio. 

600000. 
600CC0. 
C21742. 



C5 C4 
32 CO 
56 83 
CO 80 
01 80 
0080" 
24 80 
CO 80 
00 80 
10 80 



022042. 2C 50 
022042. 3C IC 
022042.12 F0_ 
922060.21 BO 
014400.46 7C 
402002.46 70 
402006.46 70 
030000.12 FO 



KVI ,TXA,TPURFT 

BZXE,TP3 
T P5A1 $L,TABSCH(TXB),-60 

$-{BU, 18),TCHSXW,-6C 

$SF[BU, 18j,TIPL+_l,-60 

iOJJ_^^1.\^ll^l^l-J^ 

LF<RU,12,4),$L+.20,1 

LFI(BU,2),3,5 

LFI(8U,2),3, 13 

CMOIOI.TCHANX 



-PRINT ONLY THE MESSAGES OF THAfMGDE 

-LOAD FGR ABS CHANNEL CONVERSION 

iTO SAVE THE ChANFCR IPL PRINT 

^CONVERT f0"8~ BIT" BYTE 
-GET THE IQS LEAD BITS 
-GET THE IQS LEAD BITS 



6. ( 
OS 

( 

( 

( 

( 

( 

( 

( 

c 

c 

c 

c 

c 

c 

c 



\1* 

le* 

IS* 
2C* 
21* 
22* 
23*' 
'24* 
25* 
2£« 
27* 

2i* 



P2202_5.C_C_ 

022026.00 

022027.00 



022030 .CO 
022031. 00__" 
022032. CO 
022032.40 

022033.00 • 



CiCccqq.q? 83 

60CCC0.C0 80 
021743.20 80 



AOpJL0_O '-^ C 84 
A0AC_C0_._3 4 83 
G22C50.74 C2 
000011.12 30 



003000.46 70 
402002.46 70 
010000.12 FO 



001000.36 FO 
"022027.06 70" 



COO 11, T A B SUNJ J XB ) , 1 
\FI(8U,2),3,5 
CM0101(BU,8,8),TtNITX 



A^lllltiyERiTXCJ 
A''»_IF«EEL(TX8)j46 

BRZ,TPSCR 

LV,TIXZ,$R 



J^GET UNIT NUMBER 
-GET THE IGS LEAD' 



BITS 



-SET THE 
-GET THE 
-SCRATCH 



VERIFY BIT 

FI-^iST REEL ADDRESS" 
TAPE REQUEST 



CCCCCO.OO 85 060600.06 70 



C0011{BU,48,6),TRE£LN(TIXZ) 



ZE000762 

ZE000763" 

ZE000764 

ZE000765 

ZE000766 

ZEq00767 

ZEq00768" 

ZE000769" 

ZE000770 

ZE000771 

ZEG00772 

ZE000773 



2S* 

"3C* 

31* 

32* 

33* 
3A» 



022034j.CC 

022034,40' 

022035.40 

022036. CO 

022036.40 

022037.00 



C 2JL 7 6 2 • 3 1 10 
021760. CO 80 
C22C36.77 01 
230566.04 CO 

02176C.00+ 

CCCOIC 



000000.12 FO" 



J__P_5A2___SA'_!15^IPSAy ' 

SF{BU,fc4,8),TP5IN 

LVI,$15,TP5A3 

B0,SA8ICS 

T P5A3 VF,TP5IN 
CF,8 



-SAVE FOR CONVERSION 

-SET UP TO GO TO IQS CONV RTNE 

-F«A IN 

-N 



ZEqG0774 
'ZE000775' 
ZE000776 
ZE000777 
ZE000778 
ZE000779 



20 
19 
18 
17 
16 
IS 
14 
13 
12 
11 
10 
9 

e 

7 

« 
5 
4 
3 
2 
1 



35* 
36* 
37* 
3£* 
3S» 
4C* 



022037.40 

022040.00' 

022040.40 

022041.40 

022042.40 



C 2 1 7 6_1 . + 

022040.40 00 
021761.00 80 
021737.50 80 
021762.36 10 



000000.06 70 
050000.12 FO 



^^_fi»_lP5quT y 

T IPL82 BE, $+.32" 

LF(BU,64,8),TP50tT 
SF{PU,4C,8),TREELX 
LX,$15,TPSAV 



-FV«_A OUT ' 

-MODIFIED BY IPL 

-GET THE CONVERTED WORD 

-SET UP IQS REEL NUNBER 

-RESTORE 



Z £0007 80 
"ZE00078r 
ZE000782 
ZE000783 
ZE000784 
ZE000785 



42* 
42* 

4-^* 
45* 
46* 



022043.00 

022044.00' 

022045.00 

022046. CO 

022047.00 

022C50.00 



il2_i7A3_»Aq 8 q 

021740.20 80 
C00C00.33 84 
C00CC0.32 84 
COCCOO.OO 85 
C22C56.1C CO 



0C004q^C6_ 70 
030040.12 FO 
001000,00 FO 
001000.36 FO 
060600.06 70 



-C0011,_TMBLK,64 _-pJ_T A^C F^LL CF BLANKS 

CM01Cl(8U,24,8),TREELX+,40,64 

CMOCOO,TFCISP(TXC) -SET TO TAPE MOUNTED 

CM1111,STATI(TXC) -SET TO TAPE MTED- SPECIFIC 

LF(8U,48,6),TREELN(TIXZ) -RESET ACC FOR REEL PROTECT TEST 

B,TP4 



ZEqqq786 

'ZE00078?' 
ZE000788 
ZE000789 
ZE000790 
ZE000791 



47* 
48* 
4S* 
5C* 
51* 
5?* 
53* 
5^* 
55* 
56* 



022C5C.4C 
022051,40 
022052.00 
022053.00 
O22q54.CC 
q22q55._C0_ 

022056. CO 
022057.00 



CCCC00.32 84 

C22C76.34 C2 

021746.00 80 

021737.50 80 

0.22 1 32. C 7 80 

cccqqq.32_84; 

COCC00.63 84 
000000.65 84 



002000,07 70 TPSCR 

000000,06 70 
000000.12 FC 

006634.06 70 

002000.00 F 

001000.36 FO TP4 

ooioocae fo 



CT0C11{BU,2),STATI(TXC)" 
8RZ,TP3 
COOll.TSCRAT 
CM0101,TREELX 
_Cqqil(BU,6,6)j T N p P , 5 6 
C MOC (By, 2 ) J S T_A T I { T XC_r 

CM1111,SM0UNT(TXC) 
CMllll.SIMNTiTXC) 



-GET THE SCRATCH TAPE WORD 
-BUILD ViORD 

-GET NOT FILE PRO T_ECJMAS_K 

-SET TC TAPE MJED-SC_RATCH 

-SET MOUNT BIT AND 
-THE INITIAL MOUNT BIT 



^ZEq00792 
"ZEC00793' 
ZE000794 
ZE000795 
ZE000796 
Z £00079 7 
'ZE00q798 
ZE000799 
ZE000800 
ZE000801 



TIME CLOCK CCC5AC41 PUNIC 


22$EGJ 


( 


:ard 


IC 


ZE000802 DIST. OF 3/Cl 




3/01 PAGE NUMBER 414 




LINE LOCATICN 




BINARY OUTPUT 






NAKE 


STATEMENT 




LOCATICN 022060 




]* 


022060 


.00 


OOOCOO, 


.15 


01 












LVI,TIXY,0 




-INITIALIZE TO NON PROTECT 


ZE000802 


2* 


022C60 


.40 


COCCOl. 


13 


01 












LVI,TIXZ,1.C 




-SET UP FOR OVERLAP 


ZE000803 


2* 


022061 


.00 


OOOCOO, 


.24 


IF 












LX,TCTt^CX,0.0{$l5) 


-CHECK FOR MODE 


ZE000804 


A* 


022061 


.40 


022C63. 


.23 


42 












BXF,TP4A 


-IF 


BY-PASS J^ODE 


ZE000805 


f » 


022062 


.CC » 


OOOCOO, 


.01 


83 


022064, 


.34 


00 






BZB,TUNCBT{TXB),TP7 


-IF 


NOT A SINGLE NOT OVERLAP CASE 


ZE000806 


t* 


022063 


.00 


CCCCOO. 


13 


01 








T 


P4A 


LVI,TIXZ,0.0 


-SET 


UP FOR BY-PASS MCUNT 


ZE000807 


7» 


022063, 


.40 


OCCCOl, 


15 


05 












V+I,TIXY,1.0 




-GET ALL OF MESSAGE PLUS 


ZE000808 


t* 


















_ 










ZE000809 


c* 


















— 




CHECK FOR REEL 


PROTECTION 


ZEOOOaiO 


1C» 


















— 










ZE000811 


U* 


022064 


.00 


G22132. 


.07 


80 


006634, 


.23 


10 


T 


P7 


KF,TNCP,56 




-LOOK FOR NON - PROTECT 


ZE0008I2 


12* 


022065 


.CC 


022C66. 


36 


02 












BAE.TWRITE 




-IF NOT PROTECTED 


ZE000813 


12* 


022G65 


.40 


00CCC2. 


15 


05 












V+I,TIXY,2.C 






ZE000814 


lA* 


022066 


.00 


021757, 


GO 


80 


0220 71, 


.34 


OE 


T 


WRITE 


BBl.THEACtTPENY 




-CHECK FOR MAJOR HEADING 


ZE000815 


15» 


022067 


.00 


CC0040. 


.10 


CO 












B,DI*«CP 




-WRITE THE MAJOR HEADING 


ZE000816 


li* 


022067 


.40 


C0CC43, 


.40 


80 












,OCCMM 






ZE000817 


17» 


022070 


.00 


021726. 


GO 


80 












,T8UF01 






ZE0008i8 


ie» 


022C7C 


.40 


C0CCC5, 


CO 


80 












,5,0 






ZE000819 


19* 


022071 


.00 


021757, 


.01 


80 


022074, 


.34 


OE 


T 


PENY 


BBltTSBHDI,TPEN 






ZE00Oa2O 


2C* 


022072 


.CC 


000040, 


10 


00 












B.DF'CP 




-WRITE THE SUB HEADING 


ZE000821 


21* 


022072 


.40 


C0G043, 


40 


80 












,DCCMM 






ZE000822 


22* 


022C73 


.00 


021747. 


CO 


80 












,TSUBHD 






ZE000823 


23* 


022073 


.40 


00CC04, 


,co 


80 












,4.0 






ZE000824 


2^* 


022074. 


.CC 


00CC40. 


10 


CO 








T 


PEN 


B,Df«CP 




-WRITE THE MOUNTING PROCEDURES 


ZE000825 


25* 


022074, 


.40 


C0C043, 


40 


80 












,DCCMM 






ZE000826 


26* 


022075 


.CO 


021734. 


00 


85 


" \, 










,TBUFB1(TIXZ) 






ZE000827 


2?* 


022075 


.4C * 


C0CC07, 


cc 


86 












,7.(TIXY) 






ZE000828 


26* 


022076 


.CC 


022C01. 


C7 


48 








T 


P3 


CB+,TXB,TP5 






ZE000829 


2?» 


022076. 


.40 


00CGC2, 


05 


07 








T 


P2 


V+ICR,TXA,2.0 






ZE000830 


3C» 


02207 7 


.00 


021757. 


01 


80 


001000, 


00 


FO 






CM0C00{BU,1J,TSBHDI 






ZE005831 


31* 


022100, 


.00 


021763. 


5C 


CO 












B,TP6 






ZE000832 


32* 


02210C 


.40 


021757. 


CC 


80 


002000. 


CO 


FO 


T 


PI 


CMO0OO(BU,2}tTHEAD 




^ZERO THE I NO 


ZE000833 


33* 


022101. 


.40 


OOCGOO. 


24 


IF 












LX,TCTW0X,0.0{$15) 




-CHECK THE MODE 


ZE000834 


3^* 


022102. 


.CO 


022104, 


63 


40 












BZXF.TPICA 




-IF OVERLAP PROCEED ONWARD 


ZE000835 


35* 


022102 


.40 


021757. 


C2 


80 


022104, 


74 


OA 






BBN,TNGATE,TPICA 




-IF SECOND PASS 


ZE000836 


3t» 


022103. 


.40 


232230. 


04 


10 












LX,TXA,TPPURF 




-SET UP FOR THE NOT OVERLAP 


ZE000837 


3/* 


022104. 


.00 


021763, 


50 


00 












B,TP6 




-FOR NOT OVERLAP RE-ITERATION 


ZE000838 


36* 


















- 










ZE000839 


3S* 


















— 










ZE000840 


4C* 


















- 




LOOK AHEAD -N- 


JOBS 


AND DETERMINE THE STATUS 


ZE000841 


41* 


















— 










ZE000842 


42* 


022104. 


.40 


OCCCOO. 


77 


8F 


022127. 


34 


02 


T 


PICA 


BB,.631$15),TP1A 


-IF 


SPECIAL ASSIGN ENTRY 


ZE000843 


42* 


022105. 


.40 


232232. 


2C 


10 












LX,TIXG,TPPRUN 


-GET 


NEXT JOB TO BE RUN 


ZE000844 


44* 


0221C6. 


.00 


OOCCOO. 


24 


IF 












LX,TCTWCX,0.0($15) 




-CHECK MODE 


ZE000845 


45* 


0221C6. 


.40 


022107. 


63 


40 












BZXF,TPIC 




-IF OVERLAP 


ZE000846 


46* 


022107, 


.00 


232230. 


20 


10 












LX,TIXG,TPPLRF 




-IF NOT OVERLAP 


ZE000847 


47* 


022107, 


,4G 


OOOCOO. 


34 


8F 


022000. 


CC 


FO 


T 


PIC 


CMOOOO<BU, 18), .28(415) 


-CLEAR THE ENTIRE RETURN DISPO FIELD 


ZE000848 


46* 


022110. 


.40 


232224. 


61 


30 












SV,TIXG,TN£XT 




-SAVE THE ACCR OF THE NEXT PP TO FUN 


ZE000849 V 


4S* 


022111, 


.00 * 


COCGOO. 


47 


88 


022113. 


74 


00 






BZB,TLPPEN(TIXG),TP1B 


-IF MORE JOBS 


ZE000850 


5C* 


022112. 


.00 


COCCOO, 


55 


8F 


001000. 


36 


FO 






C^^llll(BU,l»,0.45($l5) 




ZE00085i 


51* 


022113. 


.00 


022127. 


10 


00 












B.TPIA 






ZE000852 


52* 


022113, 


.40 


CCCCOO. 


46 


88 


022127. 


34 


02 


TPIB 


BB,TASGNP{TIXG) ,TP1A 




-IF THE PP IS ASSIGNED 


ZE000853 


53* 


022114, 


40 


CCCCOO. 


10 


38 












LV,TIXA,TCRR£FCTIXG) 




-COMPUTE THE 10 REQ TBL ADDR 


ZE000854 


54* 


022115. 


.CO 


COCCOO. 


34 


88 


010027, 


2C 


5C 






L,TUNCT(TIXG),46 




-AND THE NUMBER OF I/O UNITS REUUESTEC 


ZE000855 


55* 


022116, 


.00 


OOOCll. 


10 


50 












LC,TIXA,$R 




-AS TO ENABLE ASSIGN TO 


ZE000856 


5£* 


022116, 


40 


022123. 


30 


42 












BXCZ.TPIBA 




-DCNT TRY TO CLEAR A NON ICC PP 


ZE000857 



'Hfll 



1 IME CLCCK 00C54C41 



PUNID 22$E0J 



CARD ID ZE000858 



DIST. OF 3/Cl 



3/01 



PAGE NUMBER 415 
IC C A TlON" ~ ~ ~ " "02Tf f 7 



LINE 



LOCATICN 



BINARY OUTPUT 



NAJ«E 



STATEMENT 



1* 
2» C 
2» 
4* 



22117. 
22120. 
22120. 
22121. 



CO 
00 
AO 

cc 



021757.03 80 
CCCC30.06 10 
021105.11 03 
021105.11 10 



001000.36 FO 



CM1111,YSCR8T 
LX,TIXE,TIXG 
LRI,TIXA»TREFIL 
SX ,TIXA,TREFIL 



ZE000858 
ZE000859 
ZE000860 
ZE000861 



^5« 
~iV 
1* 
f » 

1C» 



22121. 
22122. 
22123. 
22124. 
22125. 
22125. 



A_0_ 

40 

00 

00 

00 

40 



c_qccoq.45 88 

021662.10 00" 

COCC00.44 88 

000000.34 8F 

000000.24 IF 

022127.23 42 



021663.34 OE 



BBltTRJECJj T I X G ) , T A R E J 
"B,TAREJX 

CMlllltTjePROlTIXG) 
CM1111(BU,1),0.28{$15) 
LXtTCTWDX,0.C($15) 
BXF,TP1A 



-CLEAR CUT THE PRE-REJECTED JOB 



ZE000862_ 

ZE000863 

ZEG00864 

ZE000865 

ZE000866 

ZE000867 



001000.36 FC 
001000.36 FO 



T PIBA 



-IF SO SET JOB PROCESSED BIT TO ONE 
■SET THE DISPOSITION BIT 
-ACTIVATE THE KODE 

-AS TO CHECK MODE — IF NOT OVERLAP 



11* 
12* 
13* 
14 « 



22126. 
22126. 
22127. 
22130. 



0_C_ 
40 
00 
00 



C_0CGq2.21 07 
232232.21 10 
000021.00 80 
COCCOl.lO OF 



VtlCRi!IXG,2_.C 

"SX,TIXG,TPPRUN 
SWAPI,12,$1,TASAVE 
B,1.0Cl $15) 



:yP_DAIE THE PCjNJER 
•AND SAVE 
-RESTORE INDEXES 
■RETURN 



ZE000868 
ZE000869" 
ZE000870 
ZE000871 



021063.30 EO 



T PIA 



'Mfll 



TIME CLOCK CC054C41 



punid 22$e0j card id zfcooool 
binary"cutpu"t H^HE 



DIST. OF 3/CI 
STATEMENT 



3/01 



PAGE NUMBER 416 

L DC at! ON ^ozTfa 



LINE t CC A TI NL 

1» 022130. 4C ♦ 
2* 



SLC,$ 

PRND 



ZFOOOOOl 
ZF000002 



ZF0pp0p3_ 

ZF000004 

ZF000005 



4» 



I/O ASSIGNMENT MOVE 



A* 
1* 
i* 



ZFoogpp6 

ZF000007 
ZF000008 



THE MOVE PROGRAM LINKAGE FORMAT 



1C» 
11* 



ZFpppppg 

ZFOOOOIO 
ZFOOOOll 



LVI,$15,Z 
B,TMCVE 



.12*. 
12 » 
1A» 



BEW«$ 



ZFppppl2 
ZF000013 
2F000Q14 



RETURN LOCATION 



_15» 

le* 

17» 



J-_ET_ A _=_ _F W A _C F THE 1 00 BREAKDOWN^ 
+ = STANDARD ENTRY 
- = INITIAL ENTRY 



ZF000015 
ZF000016 
ZF000017 



_lJlt 
1S» 
2C* 



]-^J_ _B_ J=_ Ae L<^« N _D I S P S I J i C N_ _ 
LET C = STATUS OF NEXT JOB 
ZERO = ACCEPT NEXT JOB 



AF0pp018_ 
ZF000019 
ZF000020 



21* 
22* 
22« 



^DAE_=_REJECJ NEXT JOB 

LET D = MODE 

ZERO = OVERLAP MODE 



ZF000021 
ZF000022 
ZF000023 



_2<* 
25* 
26» 
27* 



-N Q I _ Z E R p _ = NO T p V_E_R_L_A P_ AQ.D_E 
LET BIT .26 = OWNERSHIP 
ZERO = PP OhNER 

"not"zerc~="mcp~cw¥e~r 



.ZFPPPP24 
ZF0G0025 
ZF000026 
ZF000b27~ 



*Nai 



TIME CLOCK OCOS'iCAl 

A I ^ 1 1 1 1 1 c c Ajj c[n" III I 

1* 
2* 



PUNID 22$E0J CARD ID ZF0OC029 DIST. OF 3/Cl 
8INARY"CUTP1jT ~ h^Ht STATEMENT 



3/01 



page number 417 
IocaTion 



HOW THE UTILITY TABLES ARE COMPUTED AND PLACED 



ZF000029 
ZF000030 






ZF 0000 31 
ZF000032 
ZF000033 



WHEREAS, - 



B = S 



S+R=F 

F+(I*7)=t 
U+{R*9)=P 

pVn=Tm7ar~k 



ZF000034 
ZF000035 
ZF000036 



/* 
€* 



9» 
1C» 
11* 



ZF0000 37 
ZF000038 
ZF000039 



LET,- 



B = THE -B- LIMIT FROM THE LIM,CARD 

s" =" THE' Fl r"sT 'Word" "oT The "symbolic" i /o" I oc" "t a~b1T 



11* 

13* 
14» 



ZFq00040 
ZF000041 
ZF000042 



R = THE LARGEST REFERENCE NUMBER PER PP 
F = THE FIRST LOC OF THE FILE AREA TABLE 



15* 

1?» 



_l_ = _TI^E_^i-i^BEAJlF_JJlO_^4.'iDS SUBMITTED BY PP 2^0999^3 

U = THE FIRST LOC OF THE UNIT AREA TABLE ZF000044 

R = THE NUMBER OF DIFFERENT I/O UNITS REQUESTED BY PP ZF000045 



IJ* 
IS* 
2C» 

"2r* 



P_=_iyE_FI R S T ADDRESS C F THE _RE£LPCOL TABLE 
N = THE NUMBER OF INDIVIDUAL REEL REQUEST 
TMARK = THE NEXT SLOT AVAILABLE FOR USE 



ZF00q046 

ZF000047 

ZF000048 

"ZF666049" 



""Kai 



r 



TIME CLOCK CCC5AC41 



PUNID 22$E0J 



CARC ID ZF000051 



CIST. GF 3/Cl 



3/01 



PAGE NUMBER 418 



LINE 



LOCATION 



BINARY OUTPUT 



NAME 



STATEMENT 



LOCATION 



1* 
2« 

2» 
A* 



PRNS 



EXTRA CONSTANTS FOR THE PROGRAM - MOVE - 



ZF000051 
ZF000052 
ZF000053 
ZF000054 



5« 
I* 
1* 
€• 

11* 



ZFOOppSS 
"ZF000OD6 
ZF000057 
ZF000058 
ZF000059 
ZF000060 



022130 
022131 
022131 
022131 



.40 
.GO 
.21 
.51 



C0CCC0.3O CO 



CNOP 
C07777 T MMAX D0( EU t 17 ) , 4095 

T MIGD (AX)DD(BU,24,6),I0D X 
J_ _MifLE_E_L _ _LAX ) Q D { B U , 2 4 _, 6_)_, REJE LA 



-THE MAXIMUM ARC AVAILABLE 

- BCD CODE FOR lOD 

-BCD CODE FCR A REEL CARD 



CN DISK 



Q22132 
022132 
022132 
022133 
022133 
215CC5 



,07 
.15 

00 

31 
:GC + 



X _L_B_L_ t_A X ID D t B y i 6 , 6_) jr L X_ 

T NOP ( AX)CC(eU,6,6),NX 

T M6BL (AX)DD(BU,48,6), 

T ERFLG VF,C 

T MFREJ DD(6U,1),0 

T LIMB SYNtSBAPP 



_-LA8ELED CHARACTER 

-NOT PROTECT CHARACTER 
( 

-lOD CARD ERROR INDICATOR 
-A ONE IF FREE IS ENTERED FROM MOVE 
-UPPER BOUNDARY OF A PP 



ZF000062 
ZF000063 
ZF000064 
ZF000065 
ZF000066 



12* 
13» 
14* 
15* 
It* 



CCCCCC.OO+ 



+OCCCOCCO 







B_j3J_jOJ_ 
B ,31 ,01 



II? 

ie« 

19* 
2C« 
21* 
22* 



215007^ 
215225. 
215005, 
215012. 

00CG21, 
000022, 
000023, 
0CC024. 
0CC025. 
00C026. 
00CC27, 



3_c_+_ 

00 + 
40 + 
40 + 

cp+_ 
cp+ 

00 + 
00+- 
00 + 
00 + 
00 + 



_+occcppcg 

+CCCC0CC0 
+OCCGOOCO 
+OCCOOOCO 

_+_c_c_c_o_c_c_c_Q_ 
+_ccc_oco_cc 

+OOCOOCCO 
+OCCCOOCO 
+CCCOOOOO 
+OOC000C0 
+OCCGGOCO 



J__S_Y_R_FT 

T BAMCP 
T MAXRF 
T MARK 

J„AX_A___ 
T MXB 
T MXC 
T MXD 
T MXE 
T MXF 



SYN,SSYRFT 
SYN,SMAXUB 
SYN.SMAXRN 
SYN,SMARK 

_SYN!.|1_ 
AYNt$2 

SYN,$3 

SYN,$4 

SYN,$5 

SYN,$6 

SYN,$7 



-THE _AD D R E S S F JH E TRACK A V_A_I_L JA _PP 
-FOR CHECKING THE UPPER LIMIT OF A PP 
-THE MAX REF NO. PER PP 
-THE NEXT VACANT REEL SLOT FOR PP 



ZFpppp67 
ZF00006B 
ZF000069 
ZF000070 
ZF000071 
ZF000072 



B ,31 ,01 
B ,31 ,01 
B ,31 ,01 

By,icp_,ip 
By,iccjic 

BU,1C0,10 
BU,100,10 
BU,100,10 

eu,icc,ic 

BU,100,10 



22* 
2<» 
25* 
2€» 
27* 

2e* 



lPP_ AE F _W RD _L CC A T g R _ _ 
-I/O REG TABLE PICK UP 
■SYMB 1/0 TABLE INDEX 
-FILE AREA TABLE INDEX 
■UNIT AREA TABLE INDEX 
-REEL POOL INDEX 



ZFp0pp73 
"ZF000074" 
ZF000075 
ZF000076 
ZF000077 
ZF000078 



IX 



2i? 
"3C« 
31* 
32* 
33* 
3^» 



000030, 

000031, 

000032 

000033, 

OG0G21. 

000034. 



cp+_ 

00 + 
00 + 
0C + 
00 + 
00 + 



_+_o_c_o_OQ-Q.o_o 

+0CC0C0C0 
+OGCOOOCC 
+OOOOCCCO 
+0CCOOOC0 
+OCCOOOCO 



BUilCCjlp 
BU,IC0,10 
BU,1CC,10 
BU,1CC,10 
BU,1C0,10 
BU,10C,10 



T MXEE 
T MXl 
T MXGA 
T MXH 
T MLXA 



_SYN,$a_ 
SYN,$9 
SYN,$10 
SYN,$11 
SYN,TMX1 
SYN,$12 



- T E_M_PO R A R V _I.NpEX 

-TEMPORARY INDEX 
-CONTROL WORD INDEX 
-TEMPORARY INDEX 

-CONVERSION ROUTINE INDEX 



ZF000079 
"ZFOOOOBO" 
ZF000081 
ZF0000B2 
ZF000083 
ZF000084 



3-_* 
3£* 
37* 
3f « 
3C* 
4C* 



ZFqpp085 
ZF000086 
ZF000087 
ZF000088 
ZF000089 
ZF000090 



SAVE AND RESTORE AREA FOR INDEXES 



Q22133_.4p__ 
022134.00 * 



_C_0_C_C_G_0_._3p 
CCGG17.C0 



00 



_CNOP 

DRZ(BU,64),< 15) 



42* 
42* 
44* 
45* 
4C« 



T CKSAV 



ZFC00091 
'ZF000092' 
ZF000093 
ZF000094 
ZF000095 
ZF000096 



022153.00 



CCCCOC.OO+ 



VF,C 



-ADDRESS OF THE UNIT TABLE 



THE UNIT NAME TABLE 



47* 
48* 
45* 
5C* 
51* 



ZFOoppg? 

ZF6o0098 
ZF000099 
ZFOOOIOO 
ZFOOOlOl 



022154.00 
022155.00 * 
000000.00+ 



022155.00+ 000 COCOOO 000020 T UNXW 
000062.00 T UNATB 

+CCCOOCCO BU,6C ,10 T CHNM 



XW,TUNATB,O,$0 

DRZ{BU,64),(5C) 

SYN(BU,48),0-0 



-RESET INDEX 

-THE CHAN/UNIT NAME TABLE 

-SYMBOLIC CHAN NAME 



'Kai 



3/01 



PAGE NUMBER A19 



LINE LOCATION 


BINARY OUTPUT 






NAME 


STATEMENT 


LOCATION 000000 




s 


1* 


O00C0G.74+ 


+0O0CO0C0 


BU,04 


»10 


T 


UNTYP 


SYN{BU,4),0,60 


-THE EQUIP TYPE REQUESTED 


ZF000103 


9 


2* 


OCCC00.60+ 


+0CC0OO00 


8U,14 


tlO 


T 


UNREF 


SYN{BU,12),0.48 


-REF NO IN THE UNIT NAME TABLE 


ZF000104 


9 


2» 


OCGC31.G0+ 


+0CCC0O00 


BU,60 


,10 


T 


UNME 


SYN{8U,48),25.0 


-2ND TABLE — UNIT NAME 


ZF000105 


6 


A* 


0G0C31.6C+ 


+0CC000CG 


8U,14 


»io 


T 


CSKRF 


SYN(BU,12),25.48 


-REF NU^'BER OF NULL DISK OR TRACK 


ZF000106 


0. ( 


5* 


0CGC31.74+ 


+0CGC0CCC 


BU,01 


,10 


T 


CTRK 


SYN(BU,1),25.60 


-ONE IF TRACK - ZERO IF DISK 


ZF000107 


11 


€* 


0GC03I.75+ 


+0CCC00C0 


BU,03 


,10 


T 


CKCT 


SYN{BU,3),25.61 


-RELATIVE ADDRESS OF ALLOCATION COUNT 


ZF000108 


SI 


't» 










- 








ZF000109 


s. C 


£» 










- 




THE DISK ALLOCATION TABLE 


ZFOOOllO 


VI 


S» 










- 








ZFOOOIU 


51 


1C» 


022237.00 


G2224C.00+ 000 


000004 022237 


T 


DCLRX 


XW,TSBDFT,4,$ 


-INDEX kORD FOR CLEARING 


ZF000112 


91 ^ 


11* 


022240.00 « 


C0CCC4.00 






T 


SBDT8 


DRZ{BU,32),I8) 




ZF000113 


Zl 


12* 


02224G.0G+ 


+ 0GC00t)CC 


BU,21 


,10 


T 


SBDFT 


SYNtRU,17),TSBDTE 


-DISK ALLOCATION TABLE 


ZF000114 


81 


13* 
14* 


















ZFO00115 
ZF000H6 


61 f 










— 




THE FORMAT OF 


THE lOD CARD BREAKDOWN TABLE 


OS 


15* 
li* 


















ZF000117 

ZF000118 












_ 










17* 


OOCGCl.CC- 


+0GC00CCC 


BU,6G 


,06 


T 


JCNME 


SYN(8U,48,6),-1.C 


-JOB NAME FORMAT FOR BREAKDOWN TBL 


ZF000119 ^ 




1€« 


00G0CG.C0+ 


+0GCG0OCG 


BU,22 


,10 


T 


lABEX 


SYN(BU,18),C.O 


-THE ABSOLUTE EXIT ADDRESS 


ZF000120 




19* 


000000.64* 


+OCCOOOCO 


BU,14 


,10 


T 


IREF 


SYN(BU,12),0.52 


-THE REF NUMBER 


ZF000121 




2C* 


00CG01.00+ 


+OOCCOOCC 


8U,3C 


,10 


T 


lOP 


SYNIBU,24),1.0 


-OP CODE FIELD 


ZF000122 




21* 


000002.00+ 


+OOCOOCCC 


BU,52 


,10 


T 


ITY 


SYN(BU,42),2.C 


- THE TYPE FIELD 


ZF000123 




22* 


00C002.C0+ 


+GCCCOOOO 


BU,60 


,10 


T 


IREEL 


SYN(BU,48),2.G 


-FORMAT AND POSITICN OF REEL NAME 


ZF000124 




23* 


00CC02.73+ 


+CCCOOOCO 


BU,01 


,10 


T 


ITRK 


SYN(BU,1),2.59 


-TRACK CODE BIT 


ZF000125 




2^» 


0CCC02.74+ 


+0CC000CO 


BUf04 


,10 


T 


ITYCD 


SYN(BU,4),2.6G 


-THE TYPE FIELD CONVERTED 


ZF000126 




25* 


000004.00+ 


+0C00OOC0 


BU»60 


,10 


T 


ICH 


SYN(BU,48),4.0 


-CHANNEL FIELD 


ZF000127 


f 


2t» 


Q0CC05.G0+ 


+0G00OOC0 


BU,60 


,10 


T 


lUN 


SYN{BU,48),5.0 


-THE UNIT FIELD 


ZF000128 




21* 


000005.00+ 


+0CCOOOQO 


BU,6C 


,10 


T 


INO 


SYN(BU,48),5.0 


-THE NUMBER FOR DISK 


ZF000129 




2£» 


00G006.GC+ 


+OOGOOOCO 


BU,36 


,10 


T 


IMD 


SYN{BU,30),6.0 


-THE MODE FIELD 


ZF000130 




2S» 


0CCG06.76+ 


+OOCCOOGO 


8U,02 


,10 


T 


IMGCD 


SYN(8U, 21,6.62 


-THE MODE FIELD CONVERTED 


ZF000131 




3C* 


000007.00+ 


+0CCG0OGO 


BU,14 


,10 


T 


IDN 


SYNIBU, 121,7.0 


-THE DENSITY FIELD 


ZF000132 




31* 


000007.76+ 


+0CGCOOO0 


BU,02 


,10 


T 


lONCD 


SYNCBU,2),7.62 


-THE DENSITY FIELD CONVERTED 


ZF000133 




32* 


000010. CC+ 


+0OGOO0C0 


BUf36 


,10 


T 


IDS 


SYN<BU,30),8.C - 


-THE DISP FIELD 


ZF000134 




33* 


00GC10.76+ 


+00000000 


BU,02 


,10 


T 


IOSCO 


SYNC8U,2I,8.62 


-THE DISP FIELD CONVERTED 


ZF000135 




34* 










- 








ZF000136 




35* 










- 








ZF000137 












3£* 
37* 
36* 










— 




SYN CARDS FOR 


THE UNIT AREA TABLE 


ZF000138 
ZF000139 
ZF000140 












— 










39* 


00CC00.GC+ 


+00C00011 


BU.06 


,10 


T 


UNLGN 


SYN{BU,61,9 


-THE UNIT AREA TABLE LENGHT 


ZF000141 




AC* 


00CCCC.14+ 


+OCCCGOCO 


BU,07 


,10 


T 


CHANN 


SYN{BU,7),0.12 


-THE CHANNEL NUMBER 


ZF000142 




AI» 


0CC000.57+ 


+OCGCOOCO 


BU,03 


,10 


T 


UNITN 


SYN(BU,3),0.47 


-THE UNIT NUMBER 


ZF000143 




42* 


C0GC01.06+ 


+00000000 


BU,14 


,10 


T 


lOCK 


SYNiBU,12),1.6 


-THE lOD COUNT 


ZF000144 




43* 


000001.40+ 


+00000000 


BU,32 


,10 


T 


RMTC 


SYN(8U,26),1.32 


-REMINDER MESSAGE TIME CONSTANT 


ZF000145 




44* 


000003. C0 + 


+0OO0O0C0 


BU,22 


,10 


T 


FIAAC 


SYNIBU, 181,3.0 


-THE FILE AREA TABLE ACTIVATED 


ZF000146 




45* 


0CCC07.31+ 


+OOCGOOCO 


BU,01 


,10 


T 


SYSTM 


SYNtBU, 11,7.25 


-SYSTEM TAPE IF A ONE 


ZF000147 




4(« 


0CCC1C.0G+ 


+CCCGOOGO 


BU,22 


,10 


T 


FRLAC 


SYN{BUt 181,8.0 


-FIRST FELL ADDRESS 


ZF000148 




47* 


00C01C.4C+ 


+OCC0OCCC 


BU, 22 


,10 


T 


CREEL 


SYNJBU, 181,8.32 


-CURRENT REEL ADDRESS 


ZF000149 




48* 


CCCC1C.71+ 


+OCCOOOGO 


BU,07 


,10 


T 


REELK 


SYN(BU,7),8.57 


-CURRENT REEL COUNT 


ZF000150 




49* 










- 








ZF000151 




5C* 


















ZF000152 


( 







'Nai 



TIME CLOCK CCC5AC41 



PUNIC 22$E0J 



CARD ID ZFOOOIS^ 



DIST. OF 3/Cl 



3/01 



PAGE NUMBER 420 



LINE 



LGCATICN 



BINARY OUTPUT 



NAME 



STATEMENT 



LOCATION 



1» 
2» 

2* 
A* 



SYN CARDS FOR FILE AREA TABLE 



ZF000154 
ZF000155 
ZF000156 

ZF000157 



_I?_QCP000_.00+ ^*_Q_0C0g0C7 BU,06 ,I0 ^r FLLGN SYN{BU,6),7 -THE FILE AREA TABLE LENGHT ZF00015S 



6» 0CCC02.CC+ 

1* 00CC02.33+ 

£• O0C00O.OO+ 

9« 00CC02.35+ 

1C» 0CCCC2.6C+ 



+CCCOOOCC 
+QCCOCOGO 
+CCCGOOCO 
+0CCCO0CC 
+OCCOGCCO 



BU,22 
BUt02 
BU*22 
BU,03 



,10 
flO 
tlO 
,10 



T TCELC SYN(RU, 18),2.G 

T CENMD SYN(BU,2),2.27 

T ICCRN SYN{BU,18),C.O 

T REELD SYN{BU,3),2.2g 



BU _, P 2_ _,_1_0_ _ _ _T_ _FAQ.CE S Y N LBU,2i,2.48 



-TABLE GF EXITS LOC 
-THE FILE AREA DENSITY 
-lOD REF NUMBER 
. -REEL OISPQSITON 
-FILE MGDE 



MODIFIER 



ZF000159 
ZF000160 
ZF000161 
ZF000162 
ZF000I63 



.lll_pCCCC5.pI+ ^tC_CCC0pcg Byj2_l__,_ip J_jy^_ARC_SYN{Byj.l71,5.pi - PRJGJ_NA_L__ARC ZF000164 



12* 
12* 
14* 
15* 
16* 



CCCCC5.41+ 
00CCC6.01+ 



+CCGCC0C0 
♦CGCOOOCC 



BU,21 ,10 
BUt21 ,10 



T MX ARC SYN(BU, 17),5.33 - MAXIMUM ARC 
T CU ARC SYNieU,17),6.01 - CURRENT ARC 



ZF000165 
ZF000166 
ZFG00167 

^— • ZF000168 

THE FORMAT OF THE REEL POOL ZF000169 



_l/» ZF000170 



It* 

IS* 0CC00C.31+ +0CCC0000 , BU,01 ,10 T RENTY SYNC BU, 1 ) , 0. 25 
2C* 00CG00.32+ +CCC00OC0 BU,01 ,10 T REPR SYNC BU , 1 ) ,0- 26 
21* 00C0C0.33+ +0C000CC0 BU,01 ,10 T RELB SYNC BU , 1 ) ,0.27 
22?_0pCpCp_.4 2+ _+_0jDC_0_0_C_C0 By,36_jlp T RENM_E___SYNC BU, 3C ) , C . 34 



-A ONE IF A REEL WAS 
-REEL PROTECT BIT IF 
-REEL LABELED IF ONE 
-REEL NAME FORMAT 



ENTERED HERE 
ONE 



ZF000171 
ZF000172 
ZF000173 
ZF000174 
ZF0C017b 



.22* - ZF000176 



2<» 
25* 
26* 
27* 
2£» 



THE TYPE SCAN TABLES 



022244j.pp _G_22245.31+ C_C0 COCOIO OCOCpp T SCIXl XW , TSCAN 1 , 8 , 



-INDEX FOR TYPE SCAN 



ZF000177 
ZF000178 
Z FOOD 179 
ZF000180 
ZF000181 



_2i*_p22245^pC _C_C_C0_C_C.»_0_5-_ J__S_C_BAl„ _VF,-5 -THE BACKUP CONSTANT TO GET THE CODE ZF000182 



3C* 

31* 022245.31 
32* 022246.03 
33* 022246.10 
34* 022246.62 



T SCANl CAX)DC(EU,42,6),C0NS0LEX 
02 DD{EU,5),2 

C AX)CCCBU,42,6),CISK X 
01 DD(BU,5),1 



ZF000183 
ZF000184 
ZF000185 
ZF000186 
ZF000187 



_35_» 
36* 
37* 
36* 
3S* 
4C« 
41* 



022246.6? 
022247.41 
022247.46 
02225C.2C 
022250.25 
022250.77 
022251. C4 



J_AXlQ.DLByt42,6),REApER X 
DD(eU,5>,3 

(AX)CC(BU,42,6),PUNCH X 
D0CBU,5),4 

CAX)D0{fiU,42,6),PRINTERX 
DDCBU,5),5 



ZFOooiae 

~ZF000189 
ZF000190 
ZF000191 
ZF000192 
ZF000193 



G3 

04 
05 



J_'^X).CC{^Ey,42,6)^ IQS _X 

D0{BU,5),6 

CAX)DD(aU,42,6),TRACK X 
DDCBU,5),C2)i0001 
CAX)DDCBU,42,6),TAPE X 

DDLByi5),8 

DD(ey,p5),0 -ERROR "or NULL TYPE FIELD 



ZF000194 
"ZF0C0195" 
ZF000196 
ZF000197 
ZF000198 
ZFpppl99_ 
'ZF000200 



42* 
42* 
44* 
45* 
46* 
47* 



022251.56 
022251.63 
022252.35 
022252.42 

Q22253_.i4_ 
022253.21 



06 
21 



SPECIAL TRACK IND 



_i_o_ 

00 



'Nai 



TIME CLOCK CCC54C41 PIJNID 22$E0J CARD IC ZF0002C2 

LINE LOCATICN BINARY"CUTPUT mfH 



CIST. OF 3/Cl 
STATEMENT 



3/01 



PAGE NUMBER 421 
1 C C A TlO N 



1« 
i* 

3 » 

A* 



THE MODE SCAN TABLES 



ZF000202 
ZF000203 
ZF000204 
ZF000205 



5* 

7* 

£» 

S» 

IC* 



022254.00 
022255. CO 

022255.31 
022255.67 
022255.71 



€22255.31+000 COO 00 5 OGC CO 
CCCCCC.C2- 



J_AQ.I_X2 XWtTSCAN2,5,0 

T SCBK2 VF,-2 

T SCAN2 {AX)DD{BUf30,6), 
DD{fiU,2),0 
{ AX)CC(BU,30,6),ECC 



_- INQEX _ FOR JWOOE SCAN JABJ-AS _ 
-BACKUP CONSTANT TO GET CODE 



ZF000206_ 
'ZF000207 
ZF000208 
ZF000209 
ZF000210 
ZF000211 



12* 
12» 
14* 
15» 
16* 



022256_.2_7_ 

022256.31 

022256.67 

022256.71 

022257.27 

022257.31 
022257.67 
022257.71 



1 
3 

2 



_DD(_BU|^2JI,1 

(AX)DD{eU,3C,6),00D" X 

0D(8U,2),3 

( AX)DD{BU,30,6),EVEN X 

DD(BU,2 3,2 

(AX)DD(BL,30,6),N0ECCX 



ZF000212 
"ZF000213~ 
ZF000214 
ZF000215 
ZF000216 
ZFOC0217 



1?» 
lEi 
19* 
2C» 
21* 
22* 



3 





qD{BU,2j,3 

DD(BU,2),0' 



ZF0002_18 
'ZF000219"' 
ZF000220 
ZFO00221 
ZF000222 
ZF000223 



THE DENSITY SCAN TABLE 



22* 
'2A* 
25* 
26* 
27* 
2£« 



ZF000224 
"ZF000225" 
ZF000226 
ZF000227 
ZF000228 
ZF000229 



022260.00 
022261.00 
022261.31 
022261.45 
022261.47 



022261.31+ CCO 000003 OCCCCO 
CCC0CG.02- 



T SCIX3 XW,TSCAN3,3,0 

T SCBK3 VF,-2 

T SCAN3 {AX)DDiBU,12,6),HDX 

D0{BUf21,l 

( AX)CC(fiU,12,6),LDX 



•IX FOR DENSITY SCAN TABLE 
•BACKUP CONSTANT TO GET CODE 



2S» 
'3C» 
31* 
32* 
33* 
34* 



022261.63 
022261.65" 
022262.01 
022262.03 



DD{ BU,2),3 

{ AX)DD(BL,12,6)," 

DU(BUf2)tC 

DD{BUt2}tG 



ZF000230 

ZF000231" 

ZF000232 

ZF000233 

ZF000234 

ZF0C0235 








-ERROR WILL BE NULL 



3J» 
36* 
37* 
3£» 
3S* 
4C« 



ZFqqq236 

"ZF000237 
ZF000238 
ZF000239 
ZF000240 
ZF000241 



THE DISPOSITION SCAN TABLE 



022263.00 
022264.00 



022264.31+ 
CCCCCC.C3- 



000 C0C005 OCCOOO 



T 
T 



SCIX4 XW,TSCAN4,5,0 
SCBK4 VF,-3 



-IX FOR 
-BACKUP 



THE DISPOSITION 
CONSTANT TO GET 



SCAN TABLE 
CODE 



42* 
43* 
44* 
45* 
46* 



ZFq00242 
"ZF000243" 
ZF000244 
ZF000245 
ZF000246 
ZF000247 



022264.31 
022264.67 
022264.72 
022265.30 
022265.33 



T SCAN4 (AX)DD(8U,30,6),NSAVEX 
DD(BU,3),0 

{AX)00(BUt30»6}, X 
DDteU,3J,0 
(AX)D0(BU,3C,6) ,CSAVEX 



^1? 
4 6* 

4S* 

5C» 

51* 

52* 



022265^71 

022265.74" 

022266.32 

022266,35 

022266.73 

022266.76 



1 

2 

3 
3 



DD(BU,3),1 

"(AX)DD(EU,30,6),ISAVEX 
DD(BU,3),2 

{AX)DD(BU,30,6J,SAVE X 
DD{BU,3),3 
DD{eU,03),3 -AN 



ZF000248 
"ZF000249 
ZF000250 
ZF000251 
ZF000252 
ZF000253 



LRROR WILL WILL SAVE THE TAPE 



<Kai 



TIME CLCCK CCC5AC41 
LINE LOCATlliN 



PUNIC 22$E0J CARD 10 ZF000255 DIST. OF 3/Cl 
BINARY"CUTPUlr Hf^Ht STATEMENT 



3/01 



PAGE NUMBER 422 
L C A T"I ON 



1« 
2* 

3 « 
A* 



THE DUKMY TABLES FOR THE UN-ASSIGNMENT OF THE REJECTED JOB 



ZF000255 
ZF000256 
2F000257 
ZF000258 



5« 022267. 4C 



CCCG00.3C CC 



CNGP 



ZF000259 



£« 
7* 
8» 

IC* 



02227C.GC 
02227C.4C 
022271.00 
022271. 4C 



022272. 0C + 
C223C3.00+ 
C223C7.00+ 
G2232C.00+ 



T DSIO 



VF,TCAT 
VF.TBIRD 

VF,TCQT 
VF,TBCID 



-SAVE TAPES 



ZF000260 
ZF000260 
ZF000261 
ZF000261 
ZF00G262 



11? 
12» 
13» 
14* 
15* 
16* 



Q22272_.CC_ 
022302.00 
022302.40 
022302.71 

P223C_3_.0p_ 
02230_5_._0_0_ 
022306. CC 

022307.00 
022317.00 
022317.40 



___COGCLO._CO 
C22325.00+ 
022325.00+ 



T CAT 



_DRZ{^N),8 

VF.TWCRM 
VFfTwORM 
DD(8U,7), (16)01 

DliZlNli2 

_XWLl«31i3 

DRZ{N),1 

DRZ{N), 8 
VF,TWDRM 
_VF»_IWQRM___ 

_D_D(_ey,7), (16J01 



■DLMMY UNIT AREA TABLE 



ZF0PP263 
ZF000264 
ZF000264 
ZF000264 
ZF000265 
ZF000266 



001 



_*_ ^G0_CCC2.CO 

_ _ _ _c_c o_o_GC ._g c t _c _ 1 4000 p_ c c c co g_ 
* ooccci.co 

GCGCIO.CO 
022325.00+ 
C22325.0C+ 



T BIRO 



-DyHHY_FILE_AREA 
-SET TO SAVE 



II* 
18« 
IS* 
2C» 
21* 
22* 



?FQQP2 67 
ZF000268 
ZF000269 
ZF000270 
ZF000271 
ZF000271 



T COT 



-DUMMY UNIT AREA TABLE 



23* 
2<» 
25* 
26* 
21* 
2i* 



001 



C22 3l7_.7i 

0Z2320.CC « 00CC05.CC 

022325. OC CG0CCG.00+ 110 000000 OCOOOO 



^F0gp271 
ZF000272 
ZF000273 
ZF000274 
ZF000275 
ZF000276 



T eoiD 

T kORM 



DRZ(N),5 
XW, (.26}3 



-THE DUfMY REEL POOL — PROTECT 



'Nai 



IIME CLOCK C0C54C41 



PUNID 22$E0J 



CARD ID ZF000278 



DIST. OF 3/Cl 



3/01 



PAGE NUMBER 423 



LINE 



LCCATICN 



BINARY OUTPUT 



NAME 



STATEMENT 



LOCATION 



1« 
2* 

3» 
A* 



THE - MOVE - SUB-RCUTINE 



ZF000278 
ZF000279 
ZF000280 

ZF000281 



5* 

<♦ 
£» 

S* 
1C» 



Z FOOD 2 82 
ZF000283 
ZF000284 
ZF000285 
ZF000286 
ZF000287 



022326. CC 

022327. CO 
02233C.CC 
02233C.4C 



C0CC21.CC 80 

C22133.G0 80 
C00C00.24 IF 
CCCCCC.56 8F 



022134. 3C EC 
022000. CC FO 
022000. C7 7C 



T MOVE SWAPI, 12,$If TSIOXK 

CM0C0C{BU,18),TERFLG 
LX,TMXI,0.0C$15} 
CTOCIKBU.IS) ,0.46($15) 



-SAVE INDEXES 

-RESET THE ICD CARD ERROR IND 
-GET CONTROL WORD FOR ENTRY CK 



12* 
13« 
14» 
15* 
16» 



02233U4C 
022332.00 
022333. CC 

022333.^0 
022334.4C_ 
022335. 4C 



C2 2 724.34 CO 

CCCC32.3C 80 

C22634.70 C2 

CCCCCl.CO 8A 

_C_2_2 13 1.21 80 

022606.36 CO" 



BZRZ,TMREJ 

'C^^0CCG(EU»l),TMXI+24 
BXVLZ,TM2 

C0011,TI0P<TMXI) 
KF,TKICC 



_-l^_A .DISPATCHER RE JECJ 
-SET THE SIGN PLUS 
-IF INITIAL ENTRY 

-LOAD OP CODE FOR TEST 
-TEST FOR ICD 



ZF000288 
ZF000289 
ZF000290 
ZF000291 
ZF000292 
ZF000293 



001000. CC FC 



030000.06 70 
030600.23 IC 



T Ml 



I/* 
"l£»" 
IS* 
2C* 
21* 
22* 



BZAE|^TM6 ^^NOT AN I CD CARD 

CONVERT THE NECESSARY FIELDS OF THE lOD CARD 



Z FOOD 294 
"ZF000295 
ZF000296 
ZF000297 
ZF000298 
ZF000299 



022336. OC 
022336.40 
022337.00 



COCCCO. 
C_22244. 

C0CC02." 



27 

20 
00 



CI 

10 

"8A 



LVI ,TMXGA,0.0 
LX,TMXG,TSCIXl 



-RESET THE ERROR FLAG INDEX 
-GET THE NUMBER OF SCAN 



23* 
24* 
25* 
26* 
27* 
2£» 



052000.06 70 
252600.23 IC" 



_COOU»IiIYlJMXi) -GET TYPE FIELD 

KF(V + ICMBU,42,6),.47(TMXG) 

BAE»TMCK1 

BZXCZfTMLCKl 

V+I»TMXGA,16.0 -A TYPE FIELD ERROR 

B,TGET1 



ZFq00300 
"ZF000301 
ZF000302 
ZF000303 
ZF000304 
ZF000305 



02234C.G0 
022341. CO 
022341.40 
022342.00 
0223^2.40 



COCCCO. 
022343. 
022340. 
GO€C20. 
C22343. 



57 
36 
30 
27 
5C 



88 
C2 

40 
05 
CO 



T MLCKl 



2i* 
3C* 
31* 
32* 

33* 
34* 



022343^CC 

022343.40' 

022344.40 



022245. 
COCCCO." 
C0CC02. 

C00C02. 
C4aKKh 
C22406. 



2C BO 
CO 88 

73 8A 

74 8A 

0_0_ _8_0 
36 C2 



T M_CK 1 V + , TM XG , TSC BK 1 

T GETl LF(BU,5),0.0{TMXG) 

SF(RU,5»,TITYCD-1{TMXI) 

8B,TITYCD(TMXI) ,TMNGA 
KFnBU,4),001 



ZFq00306 
"ZF000307" 
ZF000308 
ZF000309 
ZF000310 
ZF000311 



022345 
022346 
022347 



,40 
,40 

140" 



005000. C6 70 
005000.12 FO 

022361.34 02 

4C4000.23 10 



-STORE THE TYPE CODE 

-GO IF TAPE 
-LOOK FOR A DISK 



35* 
36* 
37* 

3e* 

35* 

4C* 



BAEtT^MNG -YES 

LX,TMXG,TSCIX2 -LOAD FOR 

LF»TIM0-1.0{TMXI) -GET CARD 
KF(V+IC)(BU,30,6),0.32{TMXG) 

BAE,TM0K2 
BZXCZ,TMLCK2 



ZFqqq3i2 

'ZF000313 
ZF000314 
ZF000315 
ZF000316 
ZF000317 



02235C, 
022350. 
022351. 
022352. 
022353. 



OC 
40 
40 
40 
CC 



022254. 
C0CC05. 
COCCCO. 
C22354. 
C22351. 



20 10 
CO 8A 
40 88 
76 C2 
7C 40 



036000. C6 70 
236600.23 10 



MODE SCAN FOR 
MACHINE MODE 



CARD MACHINES 



T ML0K2 



42* 
43* 
44* 
45* 
4f * 



022353. 
022354" 
022354, 
022355. 
022356, 
022356. 



40* 

CO 

40 

CO 

00 

40 



_0_0_G_C_0_4_. 
C22355. 
C22255. 
COCCCO. 
022357, 
60CC00, 



27_q_5 

'10 CO 

20 80 

CO 88 

74 CO 

cq_8q 

76 SA" 
IC CO 



_y.tl!.IMXGA,q4.0 

B,TGET2 

V+,TMXG,TSCBK2 
C00lltBU,2),0.C{TMXG) 
BZRZ.Z TGET2 

LFn8U^2],j8)3 -IF 

C MO I q 1 ^ T I MOC 0- 1 . C J T M X I ) 

"b,tmng 



-A MODE FIELD ERROR 



ZFoqq3i8 

ZF000319 
ZF000320 
ZF000321 
ZF000322 
ZF000323 



002000. C6 70 

402000.0 6 70 
002000.12 FC 



T M0K2 
T GET2 



SINGLE UNIT NULL IOD,GET ODD PARITY 



47* 
48* 
49* 
5C* 



02 2357, 
02236C' 



40_ 
40 



_C_0_CC_0 5 
022406 



Z TGET2 



ZF0qq324 

"ZF000325~ 

ZF000326 

ZF000327 



022361.00 



022254.20 10 



T MNGA. LX,TMXG,TSCIX2 



-NON TAPE FINISHED 



-LOAD TO TAPE MODE SCAN 



'Hai 



r 



1 IME CLOCK CCC54C41 

T In E L c A Ti CN 



PUNIC 22$E0J CARC IC ZFC00329 CIST. OF 3/Cl 
8 1 nary" GUT PUT "NA>7e STATEMENT 



3/01 



PAGE NUMBER 424 
L C A t1 ON C2236i 



1« 022361.40 COCG06.eO 8A 036000. C6 70 LF,TIMCCTMXII ZF000329 

2* 022362.40 CCCCCC.4C 88 236600.23 10 T ^'LCK5 KF( V + IC ) ( BU» 30, 6 ) , . 32 { TMXG ) ZF000330 

2* 022363.40 022365.76 C2 8A£,TMCK5 ZF000331 

_!?_ 022364. 00 ^022362. 70 40 8ZXCZ , TNLCK5 ZF0Ci0332 

_!?_ 922364. 40 ^Q.0CCg4^27 05 V + I |^TMXGA_, 04^0 ^^IQDE FIELD ERROR ZF000333 

£• 022365. CO 022366. 10 CO B.TGETS ZF000334 

1* 022365.40 022255.20 BO T M0K5 V+, TMXG , TSCBK2 ZFO0G335 

£« 022366.00 COCCOO.OO 88 0C2000.C6 70 T GETS LF ( PU, 2 ) , 0.0 ( TMXG } ZF000336 

S» 022367.00 » COCC06.76 8A 002000.12 FC CMO 10 1 , T IMOCD ( TMXI I ZF000337 

IC* ~ ZF0PP338 

I1»_Q223 7C_.C_C ^C_2_226g^2C 10 LX lIMXG, TSC 1X3 ^T^LCADFGR DENSIJY SCAN ZF0pp339 

12* 022370.40 C0CGC7.00 8A 014000.06 70 COOl 1, T IDN{ TMXI ) ZF000340 

12* 022371.40 C0CC00.16 88 214600,23 10 T ML0K3 KF { V+ IC ) { BU» 12, 6 ) , 0. 14 ( TMXG ) ZF000341 

14* 022372.40 022374.76 C2 BAE,TM0K3 ZF000342 

15* 022373.00 022371.70 40 BZXCZ,TMLCK3 ZF000343 

n?_02237_3_.4_0_ ^C_0_CCC2._27_p5 V + 1 , IMXGAjp2_.0 - _A _DtNS 1 1 Y.FjELD, ERRi3_R ZFppp344 

ll?_g22_37_4_._0_0 ^C_2_2375.1C_Cp B|.TGEI3 ZFQPP345 

ie» 022374. 4C 022261.20 80 T N0K3 V+ , TMXG , TSCBK3 ZF000346 

IS* 022375.00 OOOOGO.CO 88 002000.06 70 T GET3 COOll ( BU , 2 » , 0.0{ TMXG ) ZF0C0347 

2C* 022376.00 C0CC07.76 aA 002000.12 FO CMOlOl , T ICNCD { TMXI) ZF000348 

21* - ZF000349 

2 2*_P223 77_.C_C _0_2_2_2A3_»_2 _l ^LX,_IMXG , JSC I X4 -JLOAQ. _F_CR _DISP_SCAN ZF0pp35p 

2 3»_P2237 7_.4C _0_QC_C_1_Q_«_CO__8A __p36ppp .06 70 ^tLPOll , T IpS(TMXI ) ZFppp351 

2^* 022400.40 CCCCC0.41 88 236600.23 10 T fLCK4 KF ( V+ IC ) ( BU, 30 , 6 ) , . 33 { TMXG) ZF000352 

25* 022401.40 022403.76 C2 BA£,TMCK4 ZF000353 

26* 022402.00 022400.70 40 BZXCZ,TML0K4 ZF000354 

21* 022402.40 « 000001.27 05 V+I , TMXGA.Ol. - A DISPOSITION FIELD ERROR ZF000355 

2|,»_p224p3_.pp _C_2_2A0A»AQ__gg B,TGET4 ZFQQ0356 

2i»_p2 24C3^4C A2_2AfcA«_2_G AQ. J_ ^'AK4 VtLlMXG,TSCBK4_ ZFQQQ3 57 

3C» 022404.00 OOCGOO.CC 88 003000.06 70 T GET4 COO 11 ( BU, 3 ) , 0.0( TMXG ) ' ZF000358 

31* 022405.00 000010.76 8A 002000.12 FO CMOlOl, TIDSCDCTMXl ) ZF000359 

32* 022406,00 022133.27 30 T KNG SV, TMXGA, TERFLG ^SAVE ERROR FLAG IF ANY ZF000360 

33* 022406.40 022411.71 42 BXVZ,TM1AA -IF THE CARD IS OK ZF000361 

3i» r ZFpC0362 

3S_*_0224P7.CC GCCA0_2_«A^_AA^AG4ppp.2C 50 ^L » I IIYCDI TMX I] -CHECK FOR A^V^L ID TYPE CODE ZF000363 

36* 022410.00 022411.74 CO BZRZ,TM1AA -TYPE CODE OK ZF000364 

37* 022410.40 C0CC20.C3 01 ^ LVI,TMXl,16. -INVALID TYPE CODE CN IGO CARD ZF000365 

3£» 022411.00 022721.10 00 * B,TMREJB ZF000366 

3S* - ZF000367 

4C,» r_-rrrr-rjz-jzz.-zzzzzz--:z--z---"rrrrrrrjz--^^^^^ 

4L» -_ IS_IHIS_IpC_JN__TH_E_UNALAAME TABLE _] ZFQQ0369 

42* ZF000370 

42* - ZF000371 

44* 022411.40 022154.20 10 T NIAA LX, TMXG, TUNXW -LOAD TC BEGINNING OF UNIT NAME TABLE ZF000372 

45* 022412.00 000000.64 8A 014027.20 50 L , T IREF < TMX I ) ,46 -GET THE REFERENCE NUMBER ZF000373 

^4»_Q2 241A«00 ^C_2_2A1A^I^_C0 BZRZtlMEAT -^NC ZFpCp3i4 

iI?_Q2 2413_.40 ^C_CACigiLQ3_01 J_ ACGG ___LVI , IMXl, 8.0 ^RLEGAL REFA^C. ON AN lOD CARD_ ZF0pp375 

46* 022414.00 022721.10 00 BfTN-REJE ZF000376 

4S» 022414.40 215CC5.C0 80 022027.20 10 T HEAT + ( BU , 18 ) , TL INB, 46 -COMPUTE THE SIOL ADDRESS ZF000377 

5C* 022415.40 COCCll.lO 30 LV,TMXC,$R -ADDRESS OF SIGL TG IX ZF000378 



•Hai 



1 IME CLOCK 0CC5ACA1 
"LlNE^^'lGCATycV 



PUNID 22$E0J CARD ID ZF000380 DIST. OF 3/Cl 

BfNARY"CUTPU"T NAHt STATEMENT 



3/01 



PAGE NUMBER 425 
L C A Tl ON ^02T4 r6 



1* 
A* 



022416 
022417 
022417 
022420 



.CC 
.00 
.40 
.40 



COCCOO 
C22413 

C0CC04 
C0CCC5 



.00 84 

.74 CO 

.00 8A 

.CO 8A 



000000.06 70 

060010. 2C 50 

6 5 . C_6 7 C_ 

004000. C^ 70 

404600.23 10 

060610.23 10 

060650.23 10 



LF(BU>,O.ClTMXC) 
8ZRZ,TMC0G 
t,TICH(TMXn,16 
LF,TIUN{TMXn,80 



-IS SIOL SLOT ALREADY USED 
-YES - REPORT ILLEGAL lOD CARD TO 
-SET CHAN FIELD OF 100 CARD 
-GET THE UNIT NAME - TAPE ONLY 



JC 



ZF000380 
ZF000381 
ZF000382 
ZF000383 



f » 

1* 

£♦ 
S» 

1C« 



022421 
022422 
022423 
022424 
022425 
022425 



.40 
.40 
.40 
.00 
.00 
.40 



C_CCCC2 
4CCCC0 
022427 
022132 
022427 
G22132 



.74 8A 

.CO 80^ 

.36 CO 

.15 80 

.36 CO 

.15 80 



LFj^TITY 
KFKBUf 
BZAE.TM 
KF,TM6B 
BZAE,TM 
KF,TM6B 



CpjJMXI) 

4,6) ,8 

IX- NO 

L,16 

IX- NO 

L,80 



-G E I _ JH E J Y P E FIELD _CODED 
-LOOK FOR A TAPE 100 



ZF000384 
ZF000385 
ZF000386 
ZF000387 
ZF000388 
ZF000389 



•YES 



11» 
12* 
12* 
14* 
15* 
1£* 



022426. 
022427' 
022427, 
022430, 
022431, 
022431. 



4_0_ 

CO 

40 

00 

00 

40 



022443 
OOCCGO 
022436 
CCCOOO 
022436 
COCCOO 



.36_C2 
.21 05 
.70 42 
.00 88 
.36 CO 
.74 88 



BAE^TMU 
V+I ,TMX 
BXCZ.TM 
KF.TCHN 
BZAEfTM 
KF,TUNT 



- IF BOTH CH A N / U N I T F I ELDS ARE _B_LANA 
-TO RE-ACTIVATE IX INDICATORS 

-IF ZERO ENTRY 

-COMPARE AGAINST TABLE 

-IF UNLIKE ENTRY 
^^COMPARE_EQUIP FEILO 

-IF NOT ALIKE 



ZF000390 
"ZF00039r 
ZF000392 
ZF000393 
ZF000394 
ZF000395 



060010.23 10 
004000.23 10 



TMIX 
T MIA 



G , . 

IE 

M{TMXG),16 

IB 

YP(TMXG) 



II* 

ie« 
IS* 

2C« 
21* 
22* 



022432^ 
022433. 
022433. 
022434, 
022435. 
022436, 



CO 
40 
40 
40 

CO 



_C_2_2436 
022153 
CCCCC2 
000031 
022504 
022430 



.36 CO 

.21 30 

.74 8A 

.CO 88 

.76 C2 

.21 48 



8ZAE,TM 
"SV,TMXG 
BZB,TIT 
KF,TUNM 
BAE,TM1 
CB+,TMX 



IB 

,TDKSAV 

YCC(TMXI),TM 

E{TMXG),8C 

C 

G,TMIA 



ZF000396 
ZF000397 
ZF000398 
ZF000399 
ZF000400 
ZF000401 



022504.74 OC 
060050.23 10 



IC -IF NOT TAPE 

-TAPE COMPARE UNIT NAME 
-UNIT AREA TABLE GENERATED 



J MIB 

T mTe" 



23* 
2<» 
25* 
26* 
27* 
26* 



ZF000402 
"ZF000403" 
ZF000404 
ZF000405 
ZF000406 
ZF00040 7 



022436.40 
022437.40 
022440.40 
022441.40 
022442.40 



O0CC0O.64 8A 
000031.00 88 
COCCOO. CO 88 
022154.34 80 
022153.21 30 



014002.06 70 

000040.12 FO 

000000.12 FO 

022000.22 BO 



LF,TIREF(TMXI),04 
SF{BU,64),TUNME<TMXG),64 
CM0101(BU,64r,0.C(TMXG) 
M + l(BU,18),TUNX*« + 28 
SV,TMXG,TDKSAV 



-GET THE REF. NUMBER 

-STORE NEW ENTRY IN TABLE 
-STEP TABLE COUNTER 



2?» 
3C* 
31* 
32* 

33* 
34* 



ZF000408 
"ZF00040g" 
ZF000410 
ZF000411 
ZF000412 
ZF000413 



GENERATE THE UNIT AREA TABLES 



022443 
022443 
022444 
022445 
022446 
022447 
022450 
022451 



.00 
.4C 



000C03 

_C_C_C_C_0_0 
OOCCll 
"2i"5"c"02 
COCCOO 
COCCOO 
COCCOO 
COCCOO 



. 13 36 

._5_6__8_3 

.20 10 

.CO 80 

.14 86 

.33 88 

.07 83 

.57 86 



T MU 



022027.20 50 



SV,TMXD,TFIAAC(TMXE) 

A »JJ_?.S C H {_IMXB|t46 

LX,TMXG,$R 



SET UP THE FILE AREA ACT. ADDR. 

_ rAEJ_ JJIE A^D R A^ _ Tb i _ * s s I g n e_d c h;AN_ 
-AHAl A^Ai-A AD OR _Tcix 

-COMPUTE THE CHANNEL NUMBER 

-IF NOT A MULTI UNIT CHAN 

-GET THE UNIT NUMBER 

-AND PLACE IN UNIT AREA TBL 



20 
19 

t 18 
17 
16 

( IS 
14 
13 

II 
10 

8 
7 
6 
5 
4 
3 
2 
1 



3E» 
"36 * 
37* 
3£» 
3S» 
4C* 



.4C 

.CO" 

.00 

.00 

.00 

,00 



022027. 
007027. 
022470. 
003027. 
003027. 



3C 10 
20 DO 
74 OC 
20 50 
20 DO 



-{BL, 18), 
ST,TCHANN 
BZBfTMULT 
L,TABSUN{ 

ST.TUNITN 



TCHSXV«,46 

(TMXEJ,46 

HTMXGJfTMlDA 

TMXB),46 

(TMXE),46 



ZFqqq4i4 

"ZF000415" 
ZF000416 
ZF000417 
ZF000418 
ZF000419 



^1* 
"42* 
43* 
44* 
45* 
46* 



022452 
022453 
022454 
022455 
022456 
022457 



.00 

.CC" 

.00 

.00 

.00 

.CO 



COCCOO. 
C0CG07. 
C00C27. 
COOCIO. 
COOOIO. 
CCCCIO, 



C 3 83 
31 86 
00 80 
CO 86 
40 86 
71 86 



022466. 

001000. 
022000. 
022000. 
022000, 
007000. 



34 CO 
36 FO 
C6 70 
12 FO 
12 FO 
22 BC 



BZB.TTYPE 
CM1111,TS 
COOIKBU, 
CM0101,TF 
CM0101,TC 
M+1,TREEL 



{TMXBJjTMlCAA 

YSTMCTMXE) 

18),TMXF 

RLAD(TMXE) 

REELfTMXE) 

KCTMXE) 



- IF THE TYPE _ 1 § NPA J * f E 

-SET THE SYSTEM TAPE BIT FOR INITIAL 
-GET REEL POOL ADDRESS 

-AND STORE IN UNIT AREA 

- S E T_THEREELC U N T TO ONE 

-ZERO THE FIRST REEL SLOT 



ZFq00420 
"ZF000421" 
ZFG00422 
2F000423 
ZF000424 
ZF000425 



47* 
"4 6 »" 

4<;* 

5C* 
51* 
52* 



022460 
022460 
022461 
022462 
022463 
022464 



.00_ 

.40 

.40 

.40 

.40 

.CO 



ooccoq, 

CCCCGO, 

ccccoi, 
coocoi. 
coocoi, 

215225, 



22 07 

33 8 7 

34 80 
40 86 
17 05 
16 90 



z,q.q[TMx 

"CMIUKEU 
LF{EU,26) 
SF(BU,26) 
V+I,TMXF, 
KV,TMXF,T 



F) 



ZF0qq426 

ZF000427" 

ZF000428 

ZF000429 

ZF000430 

ZF000431 



001000.36 FO 
032000. C6 7C 
032000.12 FO 



,1),TRELB(TMXF 
,$TC 

,TRMTC<TMXE) 
1.0 

BAMCP 

A 

4.0 



-STEP REEL POOL INDEX 
_- IS _IHE _ R EE L PC 0L_ _E XC^ADANG AOA^DS 
-NO 

-YES SO NOTE IT JC 
-AND REJECT JOE 



53* 

54*' 

55* 



02 2464 
022465 
022465 



•AC_ 

.CO 

.40 



C22466 
000C04 
022721 



32_42 

03 01 
10 00 



BXL^TMlpA 
LVI ,TMX1, 

B.TMREJB 



ZFqq0432 

"ZF000433" 

ZF0C0434 



'Kai 



TIME CLCCK 00C5AC41 PUNID 22$E0J CARD 
"lInE LOCATiCN BINARYCUTPU"! 



ID ZF000436 
^NA~f*"E 



DIST. DF 3/Cl 
STATEMENT 



3/01 



PAGE NUMBER 426 

I oc A T Ion" 



1* 

2 » 

3 * 



MCCIFY THE CHAN/UNIT STATUS TABLES 



ZF000436 
ZF000437 
ZF000438 
ZF0C0439 



5* 

i» 

£« 
c « 

1C« 



022466.CC 
022467.00 
022467.40 

02247C.40 



_G_occoo^qo 88 

C0C011.20 30" 

000000.47 88 

C00C0O.15 38 



022027.20 10 
001000.36 FC 



_I„11DAA +,TUNT8AiJMXG),4_6_ 
LV,TMXG,$R 
CMllll,TSEL<TMXG) 

T MIDA SV,TMXE,C.O(TMXG) 



iQ. CM Py T E y N I T T A BL_E_ _AOPA'_ JA A^kl 1 _C A S 

-GET POINTER FOR UNIT TABLE 

-SET THE SEL SIT TO 1 FOR ALL MULTI CH 

-STORE LNIT AREA T8L ADDRESS 

~GEf ~f HE OWNERSHIP" bIt 



ZF 00 0440 
ZF000441 
ZF000442 
ZF000443 
ZF000444 
ZF000445 



12» 
13» 
14* 
15* 
1£« 



Q22471.pC___ 
022472. CC 

022473.00 
022474.00 • 
022475. CC 



_C0_0C0g._32 8F 

C0CC00.4G 88 

000000.35 88 

000000.76 88 

000000.77 88 



OCigoPj.06_7_C 
001000.12 FO 

001000.00 FO 
022476.34 06 

001000. CO FO 



_LFLBy,l),.26i$i5_) 

SF,TCHOkN(TMXG) 

CMOCOO.TUNASGf TMX6I 
BBZ,TUNRES(TWXG),TM1DX 
C MO C Qi TO VR E_SJ TM XG J 



ZF00P446 
ZFG00447 
ZF000448 
ZF000449 
ZF000450 
ZF000451 



-SET THE UNIT ASSIGNED BIT 
-RESET THE NOT OV RES FIRST 



11? 
16* 
ic* 
2C* 
21* 
22* 



^Fp0p452_ 

ZF000453 

ZF000454 

ZF000455 

ZF000456 

ZF000457 



022476.00 
022476.40 



C0CC26.22 
000011.15 



30 
05 



T MDX 



LV,TMX£E,TMX£ 
V+I,TMXE,g.0 



-KEEP ONE IX TO BEGINNING OF T8L 
■ADVANCE THE OTHER TO END + I 



ZERO THE I/C REQUEST TBL AND REEL SLOT 



23? 
2A* 
25* 
26* 
27* 
2i* 



Q22477_.GC 
02250C.CC 
022500.40 
022501. CC 
022501.40 



_C_CCCP_0_._3 4 _8 3 
0225C1.74 C2 
CCCC11.26 30 
C00C00.22 CB 
C0CC00.22 03 



022027.20 50 



_Lf_TFRtELiTMXBJ_,46 
BRZ,TM2AC 
LV,TMXGA,$R 
Z,0.0{TMXGA} 
Z,0.0{TMXE) 



■33X _l.H E _F LR S I _REE L _ ADD RE S S_ 
-NO REEL 

■ZERO THE REEL SLOT 

■ZERO THE I/O REG TBL SLOT 



ZFQQ0458 
ZF000459 
ZF000460 
ZF000461 
ZF000462 
ZF000463 



T f*2AC 



2i* 
3C* 
31* 
32* 

33* 
3^* 



Q225G2j.CC 
022503.00 
022503.40 
022504.00 



J:LCCCC1^^2 83 

232306. C7 CI 

000001.07 06 

0225C7.5C 00 



022503.74 00 



BZB,TLAST+1.0j J M X BJ , T M_l_CiB_-_I_F_ _NO_T_ _L A S T E N T R Y I N J HE I/O REG TBL _ 

LVI,rMXB,TIOREQ-l. 
T P1D8 V-HC,TMXB,1,0 
6,TN5 

THE UNIT AREA TABLE IS ALREADY GENERATED FOR THIS lOD CARD 



ZFQg0464 
"ZF000465" 
ZF000466 
ZF000467 
ZF000468 
ZF000469 



_3L* 
36* 
37* 
38* 
3?* 
4C* 

Al*. 
42* 



ZFqqo4 70 

"ZF000471" 
ZF000472 
ZF000473 
ZF000474 
ZF000475 
ZFQg0476' 
ZF000477 



022504, 4C 
022505.40 
0225C6.40 

022507. OC 

022507^40"*" 



C0CCC0.60 88 
215005.00 80 
CCCG11.20 30 

CpCCC0.2_2_3 8 

"C~C~clfoT."c 6 "89 



014027. 2C 50 
022027. 2C 10 



T NIC L,TLNREF(TMXG),46 
+(BL, 18),TLIMBt46 
LV,TMXG,$R 

LV»TMXEE,C.C{TMXG) 

"t""n"5" M + l7flCCK7tMX£E")~~ 



-GET THE REF NC. 

-COMPUTE SYMB. I/O LCC ADDRESS 



_-GE T UN IT _A R E A ADDRESS 
"-" A"D"d" "fO "l"OD "COUNT 



014000.22 ec 



'Kai 



TIME CLOCK CCC5A0A1 



PUNID 22$E0J 



CARD ID ZF000479 



DIST. OF 3/Cl 



3/01 



PAGE NUMBER 427 



LINE 



LCCATICN 



BINARY CUTPUT 



NANE 



STATEMENT 



LOCATION 



J* 
2» 

3 • 
A* 



GENERATE THE FILE AREA TABLES 



ZF000479 
ZF000480 
ZF000481 
ZF0004B2 



£• 02251C.4C 



00CC00.64 8A 014027.20 50 



L,TIREF(TMXI ),46 



-GENERATE LCC OF SYMB I/O LGC WORD 



ZF000483 



€» 022511.40 
1* 

£* 022512.40 
S» 022513.00 
IC* 



CCCCOC.CO 35 022027.12 FO 

C0CC00.23 34 
000000.53 34 



CM0101,TI00RN(TMXD),46 -STORE REF NO. IN FILE AREA TABLE 



SV,TMXEE,0.0(TMXC) 
SV,TMXD,C.32{TMXC) 



-STORE 
-STORE 



UNIT 
FILE 



AREA 
AREA 



ADD 
ADD 



IN 
IN 



SYH8 
SYMB 



I/O 
I/O 



TB 
T8 



ZF000484 
ZF000485 
ZF000486 
ZF000487 

ZF00048B 



11* 
12* 
lr» 
14» 
15» 

le* 



02 2513_.4_0_ 

022514.40 

022515.40 

022516.40 
022517.40 



cccccq.cq BA 

CCCC02.CC 85 
000002.74 8A 

CCCCC5.76 8A 
CCCC02.6C 85 



022000.06 70 
022000.12 FC 
022521.34 02 

002000.06 70 
002000.12 FC 



COqilfTIABEXjJMXIJ 

Cr^0101,TT0EL0(TMXC) 
BB,TITYCD(TMXn,TMlFUZ 

LF,TIMCCC-1.0(TMXI) 
CM0101,TFM0DE{TMXC) 



_-G|I_IABLE OF EXITS ADDRESS 
-PLACE IN FILE AREA TABLE 
-IF TAPE 

-GET CARD MACHINE MODE 



ZF009489 
'ZF000490" 
ZF000491 
ZF000492 
ZF000493 
ZF000494 



11* 

ie« 

19» 
2C« 
21» 

22» 



022520. 4C 



022530. 5G CO 



B,TM1FAZ 



ZF000495 
"ZF000496 
ZF000497 
ZF000498 
ZF 00 0499 
ZF000500 



23* 
24* 
25» 
26* 
21* 
26* 



022521.00 
022522.00 

022523.CC 
022524_.00" 
022525. CO' 

022526. CC 
022527.00 
022530. CC 



C00CO6.76 8A 

C0CCC2.60 85 

_C_C_C_C_0_2_._74 8 A 

C C_C 1 . 7 6 a A 

CCCC02.35 85 



002000.06 70 
002000.12 FC 

022530. 74_00_ 
002000.06 70 
003000.12 FC" 

002000.06 70 
002000.12 FO 



T MIFUZ LF,TIMOCD(TMXI) 
SF,TFMCCE(TMXD) 

^BZB,TITYCD(TMXI),TM1FAZ 

~ ^Q.OOnftiCSCpjJMXJT __ 

CM0101,TREELD{TMXD) 

COOlltTICNCDITMXI) 

CM0101»TDENMD{TMXD) 

B,TM1FA 



-GET THE TAPE MODE 



^IF^JTHE EQUIP IS NOT TAPE 
-GET THE REEL DISP 



ZF000501 
"ZF000502" 
ZF000503 
ZF000S04 
ZF000505 
ZF000506 



CC0C07.76 
CCCC02.33 
022603.50 



8A 
85 

CO 



■GET GIVEN DENSITY 



29» 
3C» 
31» 
32» 
33» 
3<« 



ZF000507 
"ZF000508' 
ZF000509 
ZF000510 
ZF000511 
ZF000512 



022530.40 
022531.40 
022532. 4C 



C0CCO2.74 SA 
C4CCC0.C0 80 
022603.76 CO 



OC4000.20 50 
404000.23 10 



T MIFAZ 



L,TITYCC{TMXI) 

KFI(8U,4),1 

BZAE.TMIFA 



■LOOK FOR DISK 
■IF NOT DISK 



35* 
36* 
37* 
3f » 
3S* 
4C» 



ZF000513 
ZF000514 
ZF000515 
ZF0005i6 
ZF000517 
ZF000518 



DISK ANALYSER 



41^* 
42* 
43* 

44* 
45* 
4d* 



022533.00 
022533.40 
022534.00' 



022153. 

_cq_o_c_c_o_. 

022240." 



20 30 
26 39 
CO SB 



021040.20 50 
022576.74 02 
021040.20 DO 
021040.20 DO 
021040.20 DO 
06000 0.2 C__5_0_ 
060600.23 10 



LV,TMXG,TDKSAV 
LV»_IMXGA,O.C JMXEE) 
"L,TSBDFT(TMXGA),64 



-GET UNIT TABLE ADDRESS 
-f'OR _L_0_C AT I N G THE _ACCUMUL AT I NG DISK C TR^ 
-GET COUNTER 



ZF000519 
"ZF000520" 
ZF000521 
ZF000522 
ZF000523 
ZF000524 



022535.00 
022536.00 
022537.00 
02254C.00 
022541. CC 



000002. 
000C06. 
00CC05. 
022240. 

CCCC05. 



73 8A 
01 85 
01 85 
CO 8B 
00 8A 



BB,TITRK(TMXn,TMTRK 
T MDK ST,TCUARC(TMXD),64 

ST,T0RARC(TMXD),64 
ST,TSBDFT{TMXGAJ,64 
L,TINO{TMXI) 



-IF TRACK 

-SET CURRENT ARC 

-SET ORIGINAL ARC 

-SAVE AS TRACK ROUNDS OFF 

-GET THE DISK NUMBER 

_- L q K _FCRDISK N U L L^r. JJ-A^A 

-IF NULL 

-GO TO THE CONVERSION ROUTINE 
-IF NULL — ZERO 

-RELOAD ACC 

-IF TRACK 

-ADD THE CONVERTED NUMBER - ARC - 



4e« 

49* 
5C» 
51* 
52* 



02 2542.00 
022543. CC 
022543.40 
022544. CO 
022544.40 
g22545.C_C 
2 2546_._0_C_ 
022547.00 



C2_2_l_32. 
022572. 
022544. 
022772. 
C22572. 
022240. 
"00 0002. 
000011. 



15_80 
36 C2 
43 01 
50 00 
34 C2 
CQ_8B 
I3_§a" 
57 80" 



KFtTM6BL 

"bae,tmnuld 
lvi|tmx1,tmdk1 

BtTMCCNV 
BRZ,TMNULC 
LF,TSBDFT(TMXGA) ,64 



ZF000525 
"ZF000526" 
ZF000527 
ZF000528 
ZF000529 
ZF000530 



T MDKl 



021040.06 7 C_ 
022550.74 02_ 
021040.20 10 



53* 
54* 



BBi^TITRKi JM AI J_» AACA3_ 
■KBU,17),$R-f.47,64 



ZF000531 
ZF000532' 



>KflI 



c 



TIME CLOCK CCCS^C^l 



PUNID 22$E0J 



CARD ID ZFC00534 



DIST. OF 3/Cl 



3/01 



PAGE NUMBER 428 



LINE 



LOCATION 



BINARY OUTPUT 



NAHE 



STATEMENT 



LOCATION 



022550 



1» 
2* 

2» 

4* 



022550. 
022550, 
022551. 
022552, 



00 
40 

40 « 
40 



022551, 

COOCll, 
022240, 
COCCIO, 



50 00 
57 80 
CO 8B 
57 80 



021041.60 10 
021040.20 CO 
02 1 pop. 3_2_ _B_0_ 
021040.23 10 



B,THDK4 
T HDK3 +(BU,17),$R+.47,67 -ADC 
T MDK4 ST,TSBDFT{TMXGA),64 

M-l(BU,17),$L+.47 



THE CONVERTED NUMBER - TRACK 
-UP DATE THE COUNTER 



ZF000534 
ZF000535 
ZF000536 
ZF000537 



t * 

~i* 

1* 

s» 

ic» 



02 2553^ 
02255'!t. 
022555, 
022556. 
022557. 
022557. 



_40_ 

40 

CO 

00 

CO 

40 



022131, 
022605! 
00CC05, 
O0CC31. 
022603, 
215C05, 



go 

37 
41 
60 
74 

GO 



80 
42 
85 
88 
C2 
80 



KFj^TMMAX,64 

'BAH,TMCSK3 
ST,TMXARC{THXDJ,64 
L,TCSKRF{TMXG),46 
8RZ,TM1FA 
+(BL,18i,ILIMB,46 



iLCOK F OR I LL EG AL DISK REQUEST Z FOOOS 38 

-YES ZF000539 

-STORE THE MAXIMUM ARC ZF000540 

-GET THE REF NO. OF NULL lOD ZF000541 

-IF NONE ZF000542 

-ADD THE BASE ADDRESS OF THE SIGL TBL ZF000543 



021040.20 DO 
014027.20 50 

022027.20 10 



11* 
12* 
13* 
14« 
15* 
1(* 



02 2560. 
022561, 
022561, 
022562, 
022563. 
02_2_56_4_, 
022565. 



CO 
40 
40 
40 

AC_ 
^0 



Aogcii, 

COCGCO. 
022240, 
00CC31, 
00CC06. 
C0_CC05. 
C"22"603, 



02 
42 
GO 
74 
01 
CI 
50 



30 
31 
88 
88 
81 
81 
GO 



LV»_1MX1,$R 

LV,TMX1,.32(TMX1) 
LF,TS8DFT(TMXGA) 
BB,TDTRK{TMXG),TMDK2 
ST,TCUARC{TMXl) 

SItinRARC_(TMX_l_) 

BfTFlFA 



ZFQ0P544 
ZF000545 
ZF000546 
ZF000547 
ZF000548 
ZF000549 
ZF000550 



021000.06 70 
022566.34 02 
021000.20 DO 
021000.20 CO 



T MDKIA 



-GET THE FILE AREA OF THE NULL lOD 

-GET LAST COUNTER 

-IF TRACK 

-UPDATE CURRENT ARC 

-UPDATE ORIGINAL ARC 



11* 
1£« 
19* 
2C« 
21* 
22* 



TRACK ANALYSER 



ZF000551 
ZF00C552 
ZF000553 
ZF000554 
ZFC00555 



22* 
2A* 
2£» 
26* 
27* 
2fc« 



ZF00g556 
ZF000557 
ZF000558 
ZF000559 
ZF000560 
ZFG00561 



022566. OC 
022567. CC 
022567.40 
02257C.4G 
022571.40 



00CC11.75 


80 


003000.07 


70 


C22563.74 


C2 






C0CC11.75 


80- 


003000. CC 


FO 


C0CC11.64 


80 


011000.22 


80 


C22563.5C 


CO 







T MDK2 CT0C11(BU,3),$R+.61 
BRZ,TMCK1A 
CM0000(EU,3),$R+.61 
M+l(BU,9),$R+.52 
B,TfCKlA 



-CHECK FOR MULTIPLE OF 8 

-YES 

-ZERO THE TRIVIAL BITS 

-ADD NEXT BEGINNING TRACK LGC 



2i* 

3C» 
31* 
32* 

33* 

34* 



ZF000562 
ZF000563 
ZF000564 
ZF000565 
Z FOOOS 66 
ZF000567 



022572. CG 
022573.00 
022574.00 
022575. CC 
022576. CC 



00CC00.64 8A 
C0CG31.6C 88 
C22131.GC 80 
C0CC05.41 85 
022603.50 CO 



01400G.C6 7G 
014000.20 DO 
021000.06 70 
021000.20 CC 



T MNULD LF,TIREF(TMXI) 
ST,TDSKRF{TMXG) 
LF.TMMAX 
ST,TMXARC{TMXD) 
8,TM1FA 



-IF NULL DISK OR TRACK ,GET REF NO. 
^GET THE MAX DISK NUMBER POSSIBLE 



35_* 
36* 
37* 
36* 
3^* 
4C» 



ZF000568 
"ZF000569' 
ZF000570 
ZF000571 
ZF000572 
ZF000573 



022576.40 
022577.40 
0226CC.0G 
022601.00 * 
022602. CO 



CCGC10.75 80 
022536.34 C2 
00CC10.75 80 
COCCIO. 64 80 
C22536.1C 00 



003000.07 70 

003000.00 FO 
011000,22 BO 



T ^'TRK CT0GI1(BU,3),$L+.61 
BRZ,TNCK 

CM0C0G(BU,3),$L+.61 
H+l{BU,9),$L+.52 
B,TMDK 



-CHECK FOR MULTIPLE OF 8 

-YES - RETURN 

-NO ZERO THE TRIVIAL BITS 

-ADD ON TO GET NEXT BEGINNING TRACK L 



^L* 
42* 
43* 
44* 
45* 
4£« 



ZF000574 
"ZF000575' 
ZF000576 
ZF000577 
ZF0005 78 
ZF000579 



022602.40 
022603.40 

022604. CC 
022604,40 



C0CC02.61 
CCGCC7.13 



85 
05 



001000.36 FO 



000CC0.C3 01 
022766.10 CO 



T MFA 
T OK 



CM1111(BU,1) ,TFMCDE4.1(TMXD) -A DUMMY ONE FOR ALL BUT TAPE 
V+I,TMXC,7.0 -STEP THE VF BY A FILE TABLE 



LVI,TMX1,C.0 
B,TN2 



-OK RETURN 



41? 

4e* 

4S» 

5C» 



ZF0gp58p_ 
ZF000581 
ZF000582 
ZF000583 



0226G5.CG 
022605.40 



00CC01.C3 01 
022721.10 00 



T MDSK3 



LVI,TMX1, 1.0 
BfTMREJB 



-ILLEGAL DISK REG 
-GO TO REJECT JOB 



'vm 



TIME CLOCK 0C054C41 



PUNID 22$E0J 



CARD ID ZF0005a5 



DIST. OF 3/Cl 



3/01 



PAGE NUMBER 429 



LINE 



LOCATICN 



BINARY CUTPUT 



NA^e 



STATEMENT 



LOCATION 



1« 
2* 
3* 



LOCATE THE PROPER REEL SLOT FOR ENTRY 



ZF000585 
ZF000586 
ZF00058T 

ZF000588 



ZF000589 



1* 

£* 

9» 

1C» 



0226G6.00 
022607. CO 
0226C7.4C 

022610.00 



022131.51 80 030600.23 10 T M6 
022610.36 C2 
022607,44 00 

COCCIO. 20 39 T fbD 



KF.TMREtL 

8AE,T«6C 

8D,$ 

LV,TMXG,TFRLAD{TMX££) 



-CHECK FOR A REEL CARD 
-OK 
-MCP ERRORf INVALID OP CODE ON CO. 

-GET INITIAL REEL ENTRY 



ZF000590 
ZF000591 
ZF000592 
ZF000593 
ZF000594 



11* 02261C.4C 



CCCC00.26 lA 



LX,TMXGA,C.CCTMXn 



-TO GET THE REEL CGUNT 



ZF000595 



12* 
12* 
1^* 
15» 
It* 



022611. CC 
022611.40 
022612.00 
022612.40 
022613. CC 



022604.26 4A 
CCCC32.26 30 
CCCC30.02 30 
CCCC00.2C 18 
022612.31 40 



CBZ,TMXGA,TCK 
LV,T«XGA,TMXI 
T H6A LV,TMXH,TMXG 

LX,TMXG,0.0(TMXG) 
BZXVZ,TM6A 



-GET 1ST REEL LOC IF ANY 
-GET FIRST REEL ADDRESS 
-SAVE FOR LAST ENTRY 
-LOOK AHEAD ONE SLOT 
-IF THERE IS AN ENTRY 



ZF000596 
ZF000597 
ZF000598 
ZF000599 
ZF000600 



11* 



ZF000601 



1€* 
ic,» 
2C» 
21* 
22» 



022613.40 

022614.00 * 
022615.00 



022631.23 42 

00CG02.C0 8B 
C0CC00.22 01 



060000. C6 70 



BXF,TM6C+.32 

T N6 C0011,TIREEL(TMXGA) 
Z,0.0{TMXH) 



IF A SCRATCH REEL HAS BEEN ENTERED 

-GET A REEL NAfE FROM BREAKDOWN 
-CLEAR THE REEL SLOT FIRST 



ZF000602 
ZF000603 
ZF000604 
ZF000605 
ZF000606 



23» 
'24* 
25» 
26* 
27» 

2e» 



DETERMINE THE REEL 



ATA.Tm.S_ _-_ _E G . F I L E P R TE C T , SYSTEM^ 

-BYPASS PROTECTION IF SCRATCH 

-INSERT THE NAME 

-LOOK FOR A NON-PRGTECT 



ZF000607 
"ZF000608" 
ZF000609 
ZF000610 
ZF00061i 
ZF000612 



02261 
02261 
02261 
02262 



5.40 
6.40 
7.CC 

0.00 



C22132. 
022624. 
COCOOO. 
022132. 



15 80 

36 C2 

42 81 

07 80 



036600.23 10 

036000.12 FC 
006625.23 10 



KF(EU,3C,6),TN68L 
BAE,TM8AB 

CM0101,TREN«£{TMXH) 
KF,TN0P,42 



2S* 
3C» 
31* 
32* 

32* 
34* 



02262 
02262 
02262 
02262 
02262 
02262 



l.CO 

1.4C' 

2.40 

3.40 

4.00 

5. 00 



C22622. 
CCCCOO." 
C22132. 
022625. 
COCOOO. 
022627. 



76 
32 
01 
76 
33 
5C 



C2 
'81 
80 
CO 
81 
CO 



8AE,TM8 

CM1111,TREPR(TMXH)" 
KF,TLBL,36 
8ZAE,TM8AZ 
CMllll, TRELBCTMXH) 
B,TM8A 



ZF000613 
"ZF000614 
ZF000615 
ZF000616 
ZF000617 
ZF000618 



001000.36 FC 
006622.23 10 

001000.36 FC 



T M8 
T M8AB 



-SET THE REEL PROTECT BIT ON 
^LOOK FOR A LABELED TAPE 
-IF NOT A LABELED TAPE 
-SET THE LABEL BIT TO ONE 



_3J_» 
36* 
37* 
36* 
3S* 
4C* 



ZFqqo6i9 

'ZF000620" 
ZF000621 
ZF000622 
ZF000623 
ZF000624 



022625.40 
022626.00 
022626. 4C 

022627.40 « 
022630. 4C 



CCCC10.02 99 
022627.72 CO 
C0CC07.31 89 



J3C0CC_0_, 
022604 



31 
2 7 



81 
"4A 



001000. CC FO 
001000.36 FC 



T M8AZ 



T _M_8A 
T M6C 



KV,TMXH,TFRLADITMXEE ) 

BZXE,TM8A 

CMOCOO,TSYSTM(TMXEEJ 

CMlll 1» TRENTY{ JMXH ) 
"CBZ + ,TMXGA,TOK 



-CHECK TO SEE IF FIRST REEL ENTRY 

-NO 

-RESET SYSTEM BIT 

-SET THE ENTRY BIT TO ONE 



42* 
42* 
44* 
45* 
46* 



-_ST J P _B R E A K D W N I NO EX 

-STORE THE SLOT ADDRESS 
-GET NEU SLOT 

-IS THE REEL POOL EXCEEDING BOUNDS 
-m 

-NOTE ERROR - PP EXCEEDING LIMITS 



ZFq00625 

ZF000626" 

ZF000627 

ZF000628 

ZF000629 

ZF000630 



022631. CC 
022631.40 
022632.00 
022632.40 
022633.CC 
022633.40 
022634.00 



OOOCCO, 
00CC27. 
COCCOl. 
215225. 
022614, 

_o_o_c_cq4. 

C22721. 



17 31 
02 30 
17 05 
16 90 
3242 
C3 01' 
10 00" 



SV»TMXF,C.O(TMXH) 
LVfTMXHjTMXF 
V+I,TMXF,1.0 
KV»TMXF,TBAMCP 

BXL,TN6 



47* 

"48* 



LVI,TMX1,4.C 
BiTMREJB 



ZF0qq631 
"ZF000632" 



■Hfll 



c 



IIME CLOCK CCC54C^1 



PbNID 22$EGJ 



C/iRD IC ZF00063A 



CIST. OF 3/Cl 



3/01 



PAGE NUMBER 430 



LINE 



LOCATICN 



BINARY CUTPUT 



NAME 



STATEMENT 



LOCATION 



1« 

3* 



INITIAL ENTRY PER PROBLEM PROGRAM 



ZF000634 
ZF000635 
ZF000636 

ZF000637 



i» 022634.40 



C22154.34 80 022000. CO FC 



T M2 



CM0GCC{BU,18),TUNXk+C.28 -CLEAR UNIT NAME TABLE COUNTER 



ZF000638 



£» 

IC« 



022635.40 



Q2 263j5_.p_C_ 
2 2636. 4 C 
022637.00 



C00CC0.25 IF 



C_2_223 7._2C_i0 

_o_Q.ocoo._2 2 _g 8 

022636.61 48 



SX,TMXI,C.0I$15) -SET CONTROL WORD PLUS 

RESET THE DISK PARAMETERS 
LX,TMXG,TDCLRX "LOAD _FCR_TABLE CLEARIN_G_ 



ZF000639 
ZF000640 
ZF000641 
ZF000642 
ZF000643 



11* 
12* 
13« 
14* 
15* 
It* 



T MCLR 



_?.»_QiQ 1I?^XG) 

CB+,TMXG,TMCLR 

LF(EU,I7),TSYRFT.l- 

ST,TS8DFT 

CM0C00iBy,18J_,_TMAXRF 



-CLEAR THE ACCUMULATING AREA 



ZFg0p644 
"ZF000645 
ZF000646 
ZF000647 
ZF000648 
ZF000649 



022637.40 
02264C.40 
022641.40 



215C07.41 80 
022240.00 80 
215005.40 80 



021000;C6 70 
021000. 20 DO 
022000. CO FO 



RESTORE THE MCP USER AREA 
-RESET THE MAX REF TO ZERO 



II* 
It* 
IS* 
2C* 
21* 
22* 



?FQgP65p 
ZF000651 
ZF000652 
ZF000653 
ZF000654 
ZF000655 



022642. 4C 
022643.40 
022644.00 
022644.40 
Q22645_.CC 
022646.00 



COOCCO. 


.31 


8F 


232232. 


04 


10 


022645, 


10 


00 


232230. 


04 


10 


coccoo. 


.47 


82 


022646. 


04 


00 



022644.74 02 



022646.74 00 



T M2A 

T M3D 



BB, .25($15),TM2A 
LX,TMXA,TPPRUN 
B,TM3C 

LX,TMXA,TPPURF 
_BZB,TLPPEN{TMXA),TM3E 



■IF NOT OVERLAP 

-LOAD FOR NEXT JOB TO BE RUN 

•SET UP FOR NOT OVERLAP JOB 
-IF MORE JOBS TO BE RUN 



22* 
2t* 
25* 
26* 
2"<» 
2E» 



Bq,$ -_M_Q_P__E_RRQR_, _NC MGRE_ JOBS TO BE RUN 

TEST FOR JCB SYNCHRONIZATION 



022646.40 
Q22647j.4p 
02265C.4G 



OOCCOl. 

JJJJJJ_' 
022652. 



CO 82 

Q.P _8 A 
36 C2 



060000.06 70 
060600.23 10 



T M3E 



LF{BU,4 8,8),TPNAME(TMXAD 

%I<F»_I^CNME(TMXI) 

BAE,TM3£Z 



•GET JOB NAME FROM PP REF TBL 
lOPAPAA E _AGAINSTJC-4 JOB _C_A R_D_ 
-OK IF ALIKE 



ZFQQP656 
Z>000657 
ZF000658 
ZF000659 
ZF000660 
ZF000661 



2i» 
3C* 
31* 
32* 

21* 
34* 



ZF00g662 
"ZF000663' 
ZF000664 
ZF000665 
ZF000666 
ZF0G0667 



022651. CC 
022651.40 
022652.00 
022652.40 
022653.40 
022654.00 
022654.40 

022655. CC 
022656.00 
Q22656^4p_ 
022657. 4G~ 



OOGC02, 
022766, 
00CC22, 
COOCOO. 

C0C_C_0_2_. 

2_3„2_23„2_' 
215C12, 



C3 

10 

20 

31 

2_1_ 

2A 

56 



01 
00 
10 
8F 
C_7_ 

i_o 

30 



022655.34 02 



LVItTMXl,2.0 
B,TN2 
T M3EZ LX,TMXG,TMXA 

BB, .25C$15),TM2AM 

V+ICR,TMXG,2.C 



-ERROR — JOBS ARE GUT OF SYNC 
-RETURN WITHOUT REJECT 
^SET UP FOR NEXT JOB - MOVE POINTER 
-IF NOT OVERLAP DCNT.SAVE PTR. 



_31* 
36* 
37* 

3e» 

3S« 
4C* 



SX»_TMXG|^TPPRyN 

LV,TMXF,TMARK 

T M2AM BZB,TRJECT(TMXAJ,TM3A 

BD,$ 
J M_3_A_ B Z B ,_T J B P RQ [ TMX A ) , J M 3 C_ 

BD,$ 



ZF000668 
'ZF000669' 
ZF00D670 
ZF000671 
ZF000672 
ZF000673 



00CC00.45 82 

022656. G4 00 

_c_c_c_c_qp_._4 ^ 82 

022657.44 CC 



022656.74 CC 
022660.34 00 



■*IF PP WAS NOT REJECTED 

-WCP ERROR, PP WAS PREVIOUSLY REJ 

-IF JHE JOB WAS NOT PR OC E S S E_0_ 

-MCP ERROR, PP'WAS PREVIOUSLY RUN 



42* 
43* 
44* 
45* 
4C* 



ZF000674 
'ZF000675" 
ZF000676 
ZF000677 
ZF000678 
ZF0CC679 



022660.00 
022661.00 
022662.00 



COCCOO. 00 82 
00CC00.44 82 
C0GC00.34 82 



022027.20 50 
001000.36 FO 
010011.06 7C 



T M3C L,TCRREF(TMXA),46 

CMllll,TJBPRO(TMXA) 
C0011,TUNCT{TMXA),18 



-GET LOG OF I/C REC TBL 

-SET THE JOB PROCESSED BIT CN 

-GET NUMBER OF I/O REQ 



48* 
4S» 
5C» 
51* 

52* 



Q22663_.JpO_ 
022663.40 
022664. CC 

022664. 4C 

022665.40 



_C_0_C_G11?lC6_10 
022664.70 40 
C22604.10 CO 

CCCC00.46 82 
022665.44 CO 



kXtIMXB£$R 

BZXCZ,TM3B 
B,TCK 

8B,TASGNP(TMXA),TS0RT 

BQ, $ 



?Fogp68p 

ZF000681" 

ZF000682 

ZF000683 

ZF000684 

ZF000685 



022666.34 02 



T M38 



-IF NO I/O REQ 

-IF JOB WAS ASSIGNED 
-MCP ERROR, JOB NOT ASSIGNED 



^nai 



TIME CLOCK CCC54C41 PliNID 


22$E0J 


{ 


:arc 


IC 


ZF000687 DIST. OF 3/Cl 


3/01 PAGE NUMBER 431 




LINE LOCATION 


BINARY OUTPUT 






NAME 


STATEMENT 


LOCATION 




1* 
1* 

3* 
<* 














- 


•««*««*•««««««•«««««*««**«••••»«••••••«»••«»*«•«•«»••*«««••*«*«««•«•• 

SORT THE I/O REQUEST WITHIN THE I/O REQUEST TABLE 
BY THE IOC SEQUENCE NUMBER AS PER PP 

•«««««*«»«««««»««»««•«««««••««»«**•««**»«*•««•*•••«•»«»«««««««»*•«««» 


ZF000687 
ZF000688 
ZFOOO609 
ZF000690 


5* 


022666. CO 


000011.16 


10 








T 


SORT 


LX,TMXF,$R 


-LOAD TC GET 1/0 REQUEST TABLE 


ZF000691 


t* 

i* 

S* 

IC* 


022666. 4C 
022667.40 
02267C.0C 
022670. 4C 
022671. 4C 


C0CCC0.22 
232307.17 
CCCC27.20 
CCCCOO.CO 
COCCOO. 22 


87 
01 
10 

87 
88 


022670. 

000000. 
022673. 


.34 

.20 
,34 


CC 

50 

00 


TSCRTl 
T SCRT4 
T S0RT2 


BZB,TLAST(TMXF),TSCRT4 

LVI,TMXF,TIOREG 

LX.TMXCTMXF 

L(BU,64),C.0{TMXF) 

BZB,TLAST(TMXG),TS0RT5 


-GET A hORD FROM REQ TABLE FOR COMPARE 


ZF000692 
ZF000693 
ZF000694 
ZF000695 
ZF000696 


11* 


022672. 4C * 


232307.21 


01 












LVI,TMXG,TIOREQ 




ZF000697 


12* 
13* 
14* 
15* 
16* 


022673.00 
022674.00 
022674. 4C 
02?675.00 
022676.00 


000000.23 
022676.77 

C0CC0C.26 
COCCOO. 00 
CCCC11.27 


88 
40 
18 
88 
10 


011022. 
OCOOOO, 


.23 
20 


10 
DO 


T 


SORTS 


KF,TICDSC(TMXG) ,36 

BZAH,TSCRT3 

LX,TMXGA,C.O(TMXG) 

ST(BU,64),0.0{TMXG) 

SX,TyXGA,$R 


-COMPARE THE NEXT SEQ NO ANC SO FORTH 

-SWAP ONLY ON HIGH 

-LOAD SWAP INDEX 

-STORE THE GREATER 

-REPLACE THE ACC WITH THE LESSER 


ZF0006g8 
ZF000699 
ZF000700 
ZFO0O7OI 
ZF000702 


n* 


022676.40 


022671.61 


48 








T 


S0RT3 


CB+,TMXG,TS0RT2 




ZF000703 


le* 

19* 
2C« 
21* 
22* 


022677. CO 
02270C.C0 


COCCOO. CO 
022666.57 


87 
48 


000000, 


.20 


CO 


~ 




ST(BU,64),0.0(TMXF) 
CB+,TMXF,TS0RT1 


-REPLACE THE INITIAL WORD 


ZF000704 
ZF000705 
ZF000706 
ZF000707 
ZF000708 




COMPUTE THE TABLE 


LOCATIONS AND ZERO THEM 


23* 














— 








ZF000709 








24* 
25* 
26* 
27* 
2£* 


0227CC.4C 
022701.40 
022702.40 
022703.40 


CCCCC0.64 
COCCOO. 50 
215005.40 
215C05.CG 


82 
82 
80 
80 


014000, 
014027. 
022027. 
022027. 


20 
20 
12 
20 


eo 

50 
FO 
IC 






LFT,TIOCCT(TMXA} 
L,TLREFN(TMXAJ,46 
CM0101(BU,18),TMAXRF,46 
+(BU,18),TLIMB,46 


-NUMBER OF lOOS TO FACTOR REG 
-GET LARGEST REF NC FOR TBL LENGTH 
-SAVE THE LARGEST REFERENCE NUMBER 
-ADD TO IT THE UPPER LIMIT OF PP 


ZF000710 
ZF000711 
ZF000712 
ZF000713 
ZF000714 


29* 


022704.40 


COCCll.CO 


80 


022000. 


22 


BO 






M+1(8U,18),$R 


-ADD ONE FOR PROPER TABLE SIZE 


ZF000715 


3C* 
31* 
32* 
33* 
3^» 


0227C5.40 
022706.00 * 
022707.00 
022707.40 
022710.40 


000011.12 
C7CGC0.C0 
C0CC11.14 
000GC0.34 
IICCOO.CO 


30 
80 
30 
82 
80 


406027, 

010000. 
406027, 


23 

20 
23 


90 

BC 
90 






LV,TMXD,$R 
*I+,TFLLGN,46 
LV,TMXE,$R 
LFT,TUNCT(TMXA) 

«I+,TUNLGN,46 


-FIRST CELL AVAIL FOR FILE AREA 

-ADO FILE AREA TABLE LEN6HT 

-FIRST CELL AVAILABLE FOR UNIT AREA TB 

-THE NO. OF UNITS REQ TO FACTOR REG 

-ADD UNIT AREA TBL LENGHT 


ZF000716 
ZF000717 
ZF000718 
ZF000719 

ZF000720 


35* 


022711.40 


CGCC11.16 


30 












LV,TMXF,$R 


-FIRST CELL AVAIL FOR REEL NUMBER 


ZF000721 


36* 
37* 
36* 
39* 

4C» 


022712.00 
022713. CO 

022713.40 

022714.00 


215005. CC 
215005.10 

215CC5.20 
C0CC11.2C 


80 
30 

30 
50 


022027, 


30 


IC 


- 




-{BU,18),TLIMB,46 
LV,TMXC,TLI«B 

LV,TMXG,TLIMB 
LC,TMXG,$R 


-REMOVE THE BASE ADDRESS 

-FIRST LOG AVAL FOR SYM I/O LOC TBL 

-PREPARE FOR TABLE ZEROING 


ZF000722 
ZF000723 
ZF000724 
ZF000725 

ZF000726 


41* 


022714.40 


215225.16 


90 












KV,TMXF,TBAMCP 


-IS THE REEL POOL EXCEEDING BOUNDS 


ZF000727 


42* 
43* 

44* 
45* 
46* 


022715.00 
022715.40 
022716.00 
022717. CC 
022717. 4C 


022717.72 
C0CCC4.03 
215005.40 
022721.10 

CCCC00.22 


42 

01 
80 
00 
08 


022000. 


CC 


FC 


T 


NIF 


BXL,TM1F 

LVI,TMX1,4.0 

C«0C00(BU,18J,T«AXRF 

B,TMREJB 

Z,0.0{TMXG) 


-IF WITHIN PP ALLOWED LIMMITS 
-NOTE THE ERROR- OUTSIDE LIMITS 

-AND REJECT JOB 
-ZERO THE SLOTS 


ZF000728 
ZF000729 
ZF000730 
ZF000731 

ZF000732 


47* 


022720.00 


022717.61 


48 












CB+,TMXG,TM1F 




ZF000733 


46* 


022720.40 


022333. 5C 


CO 












B.TMl -GET THE FIRST CARD 


ZF0C0734 







'NSI 



L 



TIME CLOCK C0C5ACA1 PUNID 


22$E0J 




:ard 


ID 


ZF000736 DIST. CF 3/Cl 


3/01 PAGE NUMBER A32 


* 


LINE LOCATION 


BINARY OUTPUT 






NAPE 


STATEMENT 


LOCATION • 




1* 

i* 
2* 
A* 














- 








ZF000736 
ZF000737 
ZF000738 
ZF000739 




THE DISPATCHER TCLC 


MOVE TO REJECT NEXT JOB 








I* 














- 








ZF0007A0 


t* 
1* 
t* 
S* 
IC* 


022721. CO » 
022722. CO 


C00C00.A5 
OOCGOO.AA 


82 
82 


001000, 
001000. 


.36 

.36 


FC 

FO 


T 


f^REJa 


A SPECIAL REJECT WHENTHE PPRUN INDEX HAS BEEN STEPPED 

CMllll,TRJECT(TMXA| 

CM1111,TJBPRQ(TMXA) -SET THE JOB PROCESSED BIT ON 


ZF0007A1 
ZF0007A2 
ZF0007A3 
ZF0007AA 
ZF0007A5 


11* 


022723.00 


C0CC00.C7 


05 












V+I,TMXB,0.0 


-TO ACTIVATE IX FOR COUNT CHECK 


ZF0007A6 


12* 
12* 
lA* 
15* 

16* 


022723. AO 

02272A.00 
02272A.AC 


022735.10 

C0CC0C.23 
CCGC00.31 


CO 

01 
SF 


022726. 


.7A 


02 


T 


«REJ 


B.TNRtJS 

LVI,TMXEE,0.0 
BB,C.25{$15),TM.REJ8 


-IF NOT OVERLAP 


ZF0007A7 
ZF0007A8 
ZF0007A9 
ZF000750 
ZF000751 


17* 


022725. AC 


232232. OA 


10 












LX,TMXAiTPPRUN 


-GET THE NEXT JOB TO BE RUN 


ZF000752 


le* 

IS* 

2C» 
21* 

22* 


022726. CO 
022726. AO 
022727.00 
022730.00 
022731. CO 


022727.10 
232230. OA 

COOCOO.CC 
CO0C0O.3A 
OOCCCO.AA 


00 
10 

az 

82 
82 


022027. 
010011. 

OCIOOC. 


.20 
.C6 

,36 


50 
7C 

FO 


T 
T 


^^REJ8 
MREJ7 


B,TMREJ7 

LX,TMXA,TPPURF 

L,TCRREF{TMXA|,A6 

LF,TUNCT(TMXAI,18 

CM1111,TJBPRD(TMXA) 


-SET UP FOR NOT OVERLAP 
-I/O REC TABLE ADDRESS 
-THE NUMBER OF UNITS TO CF 
-SET THE JOB PROCESSED BIT 


ZF000753 
ZF00075A 
ZF000755 
ZF000756 
ZF000757 


22* 
2^« 
25* 

2e» 

21* 

2£» 


022732.00 
022733.00 
022733. AC 
02273A.C0 
02273A.A0 
022735.00 • 


CCCC00.31 
C0CCC2.C5 
232232. C5 
232226. C5 
CC0011.06 
C22766.30 


dF 
C7 
10 
10 
10 
42 


_02273A. 


.7A_ 


P2__ 


~ T 
T 


>b"e~j"6" 
MREJS 


BB,.25U15),TMREJS-.32 

V + ICR,T>XA,2."C 

SX,TMXA,TPPRUN 

SX,TMXA,TSAV 

LX,TMXB,$R 

BXCZ,TN2 


-_^_^IF _BYPASS 

-ADVANCE AND SAVE FOR NEXT JOB 

-IF NO REQ TO ZERO 


ZF000758 
ZF000759 
ZF000760 
ZF000761 
ZF000762 
ZF000763 


2S* 


022735. AO 


00GC00.56 


83 


022027, 


.2C 


50 


T 


I*«REJ1 


L,TABSCH(TMXB),A6 


-GET ADDRESS OF CHANNEL 


ZF00076A 


3C* 
31* 
32* 

33* 
3A« 


022736. AC 
022737.00 
022737. AO 
0227A0.AC 
0227A1.A0 


C2276A.3A 
000011.20 
CCCC00.33 
215C02.C0 
022272. lA 


C2 
30 
88 
80 
80 


022761. 
022027, 
C07027. 


.7A 

.30 

2C 


00 
10 
DO 






BRZ,TMREJ3 

LV,TMXG,$R 

BZB,TMULTHTMXG),TMREJ5 

-{BU,18),TCHSXW,A6 

ST(EU,7),TCAT+.12,A6 


-IF A NGN-MULTI CHANNEL 
-CCHPUTE THE CHANNEL NUMBER 


ZF000765 
ZF000766 
ZF000767 
ZF000768 
ZF000769 


35* 


0227A2.A0 


OCCCGO.CQ 


88 


022027. 


,20 


50 






L,TIJNTBA{TMXG),A6 


-GET UNIT TABLE ADDRESS 


ZF000770 


36* 
37* 
36* 
3S* 
AC* 


0227A3.AC 
0227AA.CC 
0227A5.00 
0227A5.AO 
0227A6.AC 


C0CG11.2C 
OOCC0O.C7 
C0CC11.20 
022272.57 

C0CC00.3A 


30 
83 
BO 
80 
83 


003027, 

003027, 
022027, 


,2C 

2C 
.2C 


50 

DO 
50 






LV,TMXG,$R 

L,TABSUN(TMXB),A6 

V+<THXG,$R 

ST(BU,3},TCAT+.A7,A6 

L,TFREEL{TMXB),A6 


-GET THE UNIT NUMBER 
-ADD TO INITIAL UNIT ADDRESS 
-STORE THE UNIT NUMBER ALSO 
-GET THE FIRST REEL ADDRESS 


ZF000771 
ZF000772 
ZF000773 
ZF00077A 
ZF000775 


Al« 


0227A7.AC 


022761. 7A 


C2 












8RZ,TMREJ5 


-IF NONE 


ZF0G0776 


A2* 
A2« 
AA» 
A5* 
A6* 


C2275C,C0 
022750. AO * 
022751.00 
022751. AO 
022752. CO 


COCCI 1.26 
COCCCO. 22 
022272.21 
00CC00.21 
COCCCO. 35 


30 
CB 
02 
58 

38 


001000, 


CO 


FO 






LV,TMXGA,$R 

2,0.0<TMXGAI 

LCI,TMXG,TCAT 

SC,TMXG,C.O<TMXG) 

CMOC00,TUNASG{TMXG) 


-ZERO THE REEL SLOT 
-SET UP THE UNIT STATUS TABLE 
-WITH THE DUMMY UNIT AREA TBL ACDR. 
-AND SET THE UNIT ASSIGNED 


ZF000777 
ZF000778 
ZF000779 
ZF000780 
ZF000781 


A7* 


022753.00 


COCCOO.AO 


88 


001000, 


36 


FO 






CM1111,TCH0WN(TMXG) 


-SET UNIT OWNER TO MCP 


ZF000782 


Ae* 

AS* 

5C* 


02275A.CC 
022755.00 
022756. CO 


COCCCO. 65 
O00CCO.63 
C22133.31 


88 
88 
80 


OCIOOO, 
001000, 
OOIOOO. 


CC 
CC 
36 


FC 
FO 
FO 






CM0C00,SIWNT(TMX6) 

CMOCOO,S?«CUNT(TMXG) 

CM1111,TMFREJ 


-TO RESET THE 

-MOUNT BITS 

-TO TELL FREE kERE COMING FROM MOVE 


ZF000783 
ZF0007BA 
ZF000785 







'Nfll 



IIME CLOCK CCC54CA1 PUNID 22$eGJ 
LINE~~~LOCA"tTc¥ BINARY"CUtPUT~' 


CARD 


ID 


ZF0007a7 CIST. OF 3/Cl 

"na"he statement 


3/01 PAGE NUMBER 433 

LCCATi iJN " "022757 




1* 
2* 

3 » 


022757. CC 
022757.40 
022760. CC 
022760.40 


GCCG40.10 
CC0C12.4C 
COOC03.CC 

CCCC00.40 


CO 
80 
80 
88 


001000. CO 


FO 


T 


IPL5 


&,DHCP 
,DFREE 
,3. 

CMOCOO,TCHOWN{TMXG) 


-GO TO THE D FREE ROUTINE 

-AS TO REMOVE THE MOUNTED TAPES 

-RESET LNIT CWNER TO PP 


ZF000787 
ZF000786 
ZF0007B9 

ZF000790 


£» 


022761.40 


00CC00.22 


03 






T 


^«REJ5 


Z,0.0(TNXB) 


-ZERO THE I/G REQ SLOT 


ZF000791 


6* 
7* 
£* 
S» 
IC* 


022762.00 
022763.00 
022764. CO » 
022765.00 
022765.40 


C0CC00.76 
000000.77 
00CC01.22 
232306.07 
022735.47 


88 
88 
83 
01 
48 


022764.34 
001000. CC 
022765.74 


06 
FO 
00 


T 
T 


f*REJ3 
FREJ4 


BBZ,TUNRES{TMXG),THR£J3 

CMOCOCTOVRESITMXG) 

BZB,TLAST+l.0(TMXB),TWREJ4 - TO PREVENT A LGCP 

LVI,TMXB,TIOREQ-1.0 

CB+,TMXB,TMREJ1 


ZF000792 
ZF000793 
ZF000794 
ZF000795 
ZF000796 


11* 












- 








ZF000797 


12* 
13* 
14* 
15* 
16* 


022766.00 


215G12.57 


30 






T 








ZF000798 

ZF000799 
— Tcnnnonn 




PREPARE FOR RETURN 




N2 


SV,TMXF,TMARK 


-SAVE THE REEL POOL INDEX 


£ ruuuouu 
ZF000801 
ZF000802 


17* 


022766.40 


C0CC11.03 


30 










SV,TMX1,$R 


-SAVE DISPOSITION 


ZF000803 


ie» 

19* 
2C* 
21* 
22* 


022767.00 
02277C.C0 
022771.00 
022772.00 


022133.17 
000C00.34 
000021.00 
000001.10 


80 
8F 
80 

OF 


003036.46 
022027.20 
022134.30 


7C 
CO 

EO 






LF(fiU,3),TERFLG+.15,61 
ST(BU,18),0.28{$15),46 
SWAPI,12,$1,TSI0XW 
B,1.00{$15J 


-GET THE lOD CARD ERROR IF ANY 
-RESTORE INDEXES 


ZF000804 
ZF000805 
ZF000806 
ZF000807 
ZF000808 


22* 






00 
80 


060600.06 


70 


T 








ZF000609 








24* 
25* 
26* 
27* 
2£* 


022772.40 
022773.00 


C00C00,30 
C00011.20 




CGNVERSIGN SUBROLTINE 




ZF000810 
ZF000811 
ZF000812 
ZF000813 
ZF000814 


mc6nv 


NOP 
LF(HU,4a,6),$R+.16 


-EXPAND TO 8 BIT BYTES. 


2S* 


022774.00 


000011.40 


80 


040400.12 


FO 






SFCBU,32,4),$R+.32 


-CONTRACT TO 4-BIT BYTES. 


ZF000815 


3C* 
31* 
32* 

33* 
34* 


022775. CO 
022775.40 
022776.40 
022777.40 * 

023000.00 


COCGll. 71 
231545.63 
COCG00.04 
023001.37 
777777. 74 


01 
80 

ac 

42 

ac 


010020.06 
104420.23 

004400. CC 


70 

10 

FO 


L 


CONVA 


LVI,LXA,$R+.32 
LF(BU,8,8),LBLZCR,32 
KF(BU,4,4){V + n,.4{LXA|, 
BAH.LCGNVB 
$CM0000(BU,4,4),-.4(LXA) 


32 -IS 4-BIT BYTE lOlO. 

NO BRANCH 

- YES REPLACE BY 0000. 


ZF000816 
ZF000817 
ZF000818 
ZF000819 

ZF000820 


35* 


023001.00 


OOOCOO.CO 


8C 


004422.23 


10 


L 


CONVB 


KF(BU,4,4),0.0(LXA),36 


-IS NEXT BYTE 0000. 


ZF000821 


36* 
37* 
36* 
3S* 
4C* 


023002.00 
023002.40 
023003.00 
023004.00 
023004.40 


022776.76 
C00011.71 
000034.22 
CCCC10.30 

000011.40 


C4 
00 
80 
30 

80 


006673.46 

0C0400.24 


70 
3C 






BZAEZ,LCONVA 

V-I,LXA,$R+.32 

LF(BUt6,6),LXA+.18,119 

LV,LXA,$L 

LCV(DU,0,4),$R+.32,C.CIL 


NO GG BACK. 

-CCNPUTE FIELD LENGTH. 

XA) -CONVERT. 

" -OUT OF ROUTINE. 


ZF000822 
ZF000823 
ZF000824 
ZF000825 
ZF000826 
ZF000a27 


41* 


023005.40 


000000.10 


01 










B,0.0{TMX1) 


42* 
43* 


00CC34.00+ 


+OCCOOOCO 




8U,1CC 


ao 


L 


XA 


SYNflMLXA 
CNOP 




ZF000828 
ZF000829 


























« 





'Kai 



TIME CLOCK CCC54C41 



PtNID 22$E0J 



CflRC IC ZZOOOOOl 



CIST, OF 3/Cl 



3/01 



PAGE NUMBER 434 



LINE 



LOCAIICN 



BINARY OUTPUT 



NAME 



STATEMENT 



LOCATION 



1» 
2* 

2 * 
4* 



— «•••«•«»«««•«««•«••«««»••«•»•»«•«••««•*••»•«»««•«•«««•«•«*«•««»•«•••«• 



THE UN-ASSIGN ROUTINE FOR DISASSIGNMENT 



— ••«•«««•«««»«««««««««»««»»«««««»«»»»«»«•««««*•«•««»«*««»«««««««*««•««« 



ZZOOOOOl 
ZZ000002 
2Z000003 
ZZ000004 



ZZ000005 



7* 
6* 

IC* 



023CC6.CC 
023G06.CC 
023007.00 
023010,00 
023G1C.40 



000021.00 
023144.75 
215005.02 
C0CCG1.C3 



80 
80 
30 

C5 



023133.20 AO 
0C1000.36 FO 



SLCf $ 
TJUNAS TI,8,$ltTJSAV 
CMllll.JHBIT 
LV,TJA,SBAPP 
V+I,TJA,1.0 



-SET HEADING BIT FOR REEL HIST. PRINT 
"GET THE FIRST WORD OF SIOL TABLE 
-TO GET THE REAL FIRST WCRD 



ZZ000006 
ZZ000007 
2Z000008 
ZZ000009 
ZZOOOOIG 



12» 
13* 
H* 
15* 
16* 



Q23on.cc_ 

023011.40 



_2J_5Gg5._42_50 
023117.70 42 



LCf_IJA,TMAXRF__ 

BXCZ.TJEND 

T JNEXT BE, $+.32 

LV,TJB,C.CITJA) 
BXVZ,TJSTPA 



_-I'iE_MAX REF NC 
-IF NO lODS FOR 



JP_CGU_NJ_ 
LAST JOB 



zzocppii 

ZZ000012 
ZZ000013 
ZZ000014 
ZZ000015 
ZZ000016 



023012 
023012 
023C13 



.oc 

.40 
.00 



C23C12. 
OOCCOO. 
G23117. 



40 CO 
04 31 
31 42 



-ENABLE PLEASE 

'GET ADD OF UNIT AREA TABLE 

-IF SIOL TABLE SLOT IS ZERO 



11? 

le* 

19» 
2C« 
21* 
22* 



P23P_1_3 
023014 
023015 
023015 
023016 
023G16 



•A0_ 

.40 

.00 

.40 

.00 

.40 



00_0C01._ 
OOCCOO. 
OOCCOO. 
215CC2, 
000023. 
OOOGOO. 



Z6_82 
C6 32 
06 82 
G6 BO 
10 30 
33 84 



023117.34 OE 



BBltSyUNASC T J B J , T JSJ_P_A 

*LV,TJC,TCHANN(TJB) 

$V+,TJC,TCHANN{TJB) 

V + f TJCTChSXW 

LV,TJD,TJC 

BZB,TMULTnTJD),TJNTPA 



TBR._IF_yNIT_ _AL RE_A DJL _UNASAIGNE 

-GET THE CHAN NUMBER 
-TIMES TkiO 

-FOR THE EQUIPMENT CHECK 

-IF _A_Sl'iGLE_yNIT_CHAN 

-GET UNIT STATUS TABLE ADDRESS 



zzooooia 

ZZ000019 
ZZ000020 
ZZ000021 
ZZ000022 



023022.74 00 



23* 
2^* 
25* 
26* 
27* 
2£* 



023017 
023020 
023020 
023021 
023G22 
023C22 



.00 
.40 
.40 
,C0 
.40 



_0_0_C_C_0_0_. 
OOCCOO. 
COOCOO. 
023202. 
023144. 
OCCCCO. 



C6_33 
46 B2 
64 84 
40 80 
10 00 
35 83 



^L_V,_TJC,TUNTBAJTJC_) 

$V+,TJC,TUNITN(TJB) 

BZB,TECUIP{TJO),TJNTPA 

SICJHISTX 

B,JFISTE 

T JNTPA BB,TUNASG(TJC),TJSTPA 



ZZ000g23 

ZZ000024" 

ZZ000025 

ZZ000026 

ZZ000027 

ZZ000028 



023022.74 CC 



023117.34 02 
023057.34 00 



-ADD UNIT NO TO GET UNIT SLOT 

-IF NOT TAPE 

-TO PRINT REEL HISTORY 

-IF ALREADY FREED 

-JJ__>10J__IAPE 

-GET THE LAST FILE ACTIVATED 
-THEN GET THE REF NUMBER 
-AND SAVE FOR THE FREE ROUTINE 
-SKIP FREE IF UNIT DOWN. 



2S» 
3C* 
31* 
32* 
33* 
34* 



023023 
023024 
023025 
023025 
023026 
023C27 



•5P 
.4C 
.CO 
.40 
.00 
.CC 



_CC_0_ClO_0_. 
00CC03. 
OOCCOO. 
023044. 
COOCOO. 
OOCCOO. 



64_84 
C4 32 

10 52 

11 50 
34 83 
31 84 



BZB,_T£CyiPlIJ 

LV,TJB,TFIAAC 

LC,TJD,TIOORN 

SCtTJO.TJFRE 

88,SUNAVL(TJC 

BB, SCHAVL(TJD 



CJjTJNJ_P_ 

(TJB) 

ITJB) 

),TJTAP 
),TJTAP 



ZZ000p2? 
'ZZ000030" 
ZZ 0000 31 
ZZ000032 
ZZ000033 
ZZ000034 



023104.74 C2 
023104.74 02 



36* 
37* 
38* 
3S* 
4C* 



P23C3C 
023C30 
023031 
023032 
023C32 
023033 



±Pp 
.40 
.00 
.CC 
.40 
.40 



0_2_3_C_3_0_. 
OOCCOO. 
C00C02. 
COCCIO. 
OOCCOO. 
COCCIO. 



^A_CP_ 
20 33 
36 82 
60 38 
32 88 
00 80 



_B_Q.»„i«„ 

LV,8, 
L(BU, 
LV,8, 
COOll 
M-1(B 



32 

(TJC) 

2),2.30( 

SCREEL($ 

(6U,2}». 

U,2),$L 



ZZpppp35 

ZZ000036' 

ZZ000037 

ZZ000038 

ZZ000039 

ZZ000040 



002027,20 50 

OC2077,C6 70 
002000.32 BO 



TJB), 46 

8) 

26{$8),-2 



Alt 
42* 
43* 
44* 
45* 
46* 



023034 
023035 
023035 
023036 
023036 
023037 



•50 
.00 
.40 
.00 
.40 
• CO 



_0_2_3CA1_« 
OOCCll. 
COCCCO. 
023051. 
COCCOO. 
023C50. 



34 CO 

20 30 

14 08 

50 00 

30 00 

5C 00 



BZRZ,_ 
LV,8, 
BR»($ 
B,RTC 

NOP 
B,RTC 



RyNLgA_ 

$R 

8) 

SAV+1.0 

SAV 



ZZ000p41 
ZZ000042 
ZZ000043 
ZZ000044 
ZZ000044 
ZZ000045 



48* 
4?* 
5C* 
51* 
52* 



P23C37 
023040 
023041 
023042 
023043 
023043 



.:^0_ 

.00 

.CO 

.00 

,00 

.40 



_c_o_c_co_pi. 

215001. 
GCCCCO. 
OOCCOO. 
C0CC40. 

CCCC14. 



3P_CP 
06 80 
63 8 3 
65 83 
CO 00 
40 80 



BB,SP 
CMOCO 
CMOCO 
BE,$M 
,SFRt 



ZZ0ppp45 

ZZ000046" 

ZZ000047 

ZZ000048 

ZZ000049 

ZZ00C050 



023051.74 02 
001000. CC FO 
001000. CO FO 



RUNLCA 



INCL.RTC 
0{BU,1), 
0{BL,1), 
CP 

£ 



SAV+1,C 

SMOUNT(TJC) 

SIMNT(TJC) 



53* 
5A» 
55* 
56* 



2 304^ 
023044 
023045 
023046 



• o_c_ 

.40 
.00 

.00 



cpccpp. 

023104. 
C23C44. 
215C01. 



CP_8p 
50 00 
63 80 
10 80 



_T_J_F_RE__ 
RSWTCH 



lP___ 
8,TJT 
CMOCO 
BZB.S 



ZZp0pp51 

"ZZ000052" 

ZZ000053 

ZZ000054 



001000.00 FO 
023104.74 OC 



AP 

0(BU,l)t 

YSMCCTJ 



RSViTCH.19 
TAP 



■Kai 



TIME CLOCK CCC54C41 



PUNID 22$E0J 



CARD ID ZZ000055 



CIST. OF 3/Cl 



3/01 



PAGE NUMBER 435 



LINE 



LOCATICN 



BINARY CUTPUT 



NAME 



STATEMENT 



LOCATION 



023047 



1» 02 

1* 02 

2* 02 

i* 02 



3047. 

305C. 
3050. 
3051. 



00 

CO * 
40 
40 



COCCOO 
023105 
215C01 
CCCCCO 



.64 83 

.50 CO 

.06 80 

.64 83 



002000.36 FO 

023041.34 02 
023054.34 04 
002000.00 PC 



RTCSAV 



C«llll{eU,2)f .52<TJC) 
B,TJTAP+1.0 
8B,SPINCL,RUNLCA 
BZBZ,SREt<(TJC),REMINC 



ZZ000055 
ZZ000056 
ZZ00C057 
ZZ000058 



5* 

7» 
f * 

1C» 



02 
02 
02 
02 
02 
02 



3052. 
3053. 
3054. 
3055. 
3056. 
3057. 



40 
4C 
00 
00 
00 
CO 



CCCCCO. 
023C46, 
OOCCCO. 
COCCOO, 
C23044. 
COCCOO, 



32_a3 

CO GO 

63 83 

65 83 

63 80 

32 84 



Cif^0C00ieUj2)j _SJ AJ I ( T J C_)_ 

BE,RSV((TCI-+1.32 
8ZB,SM0UNT{TJC),$+2.C 
CMllll(eU,l),SIMNT(TJC) 
BZBl,RSWTCH.19,RLNLCA+2.0 
BZB,SCHCP(TJO),TJTEST -IF 



ZZ000059_ 

ZZ000060 

ZZ000061 

ZZ000062 

ZZ000063 

ZZ000064 



023056.34 00 
001000.36 FO 
023043.34 CC 
023103.74 00 
023060.34 02 
023103.74 02 



OC4000.C6 70 



REMIND 



T JNTP 



CHAN IS NOT OPERATING 



II*_Q2 
12* 02 
13* 02 
14» 02 
15« 02 



3C6C. 
306 1. 
3062. 
3062. 
3063. 



CO __ 
00 
CO 
40 
CO * 



joocccq, 

COCCOO, 
C23C62, 
COCCOO. 
OOGGOO. 



37 
4 7 
44 
12 
64 



83 
33 
CO 
32 
84 



8B,SSETyPUJC),$ 

'BB,SS£L(TJC) .TJTEST 
80,-$+. 32 

$LV,TJE,TCHANN(TJB) 
LF,TEQUIP(TJD) 



ZZ000065 
"ZZ000066 
ZZ000067 
ZZ00006S 
ZZ000069 



-iflnit is Ncr selected 

-PLEASE disable FOR THE 
-GET THE CHANN NUMBER 
-GET THE TYPE CF UNIT 



CONT RELEASE 
FOLLOWING 



'Hai 



TIME CLOCK CGC54C41 PUNID 


22$EGJ 


:arc 


IC 


ZZ000071 CIST. OF 3/Cl 


3/01 PAGE NUMBER 436 




LINE LOCATIGN 


BINARY CUTPUT 






NAME 


STATEMENT 


LOCATION 023064 




1* 
2* 

2* 
A* 


023064.00 
023065.00 
023065.40 

023066. CO 


040000.00 
023067.76 
023066.00 
C0CC00.32 


80 
CO 
00 
84 


404000,23 
023066.34 


10 

02 






KFnBU,4),l 
BZAE,TJCCl 
BE, $+.32 
Be,SCHGP(TJD>,$ 


-LOOK FOR DISK 
-IF NOT DISK 


ZZ000071 
ZZ000072 
ZZ000073 
ZZ000074 


5* 


023067.00 


023103.44 


00 










BD,TJTEST 




ZZ000075 


1* 

£« 
IC* 


023067.40 
023070.00 
023071.00 
023071.40 


000003.13 
000000.00 
02 3072.43 
C23C70.12 


02 
85 
44 
48 


023143.21 


00 


T 
T 


JCCl 
JCC 


LCI,TJE,3.0 
CCW,.0(TJE),TJCW 
BZEKJZ,TJCK1 
CB,TJ£,TJCC 


-SET COUNT FOR THE NUMB OF RETRYS 
-GET CHAN Cte FCR TEST 
-IF EXCHANGE OK 
-KEEP TRYING 


ZZ000076 
ZZ0G0077 
ZZ000078 
ZZ000079 

ZZ000080 


11» 


023072. CO 


023131. 5C 


00 










B,TJDISP 


-EXCHANGE CHECK 


ZZOC0081 


12* 
12* 
14* 
15* 
16* 


023072.40 

023073.40 
023074.00 
023075.00 


023143.26 

C0CCC3.13 
000000.00 
023076.43 


80 

02 
85 
44 


023067.74 
000000*33 


00 
00 


T 
T 


JOKl 
JREL 


BZB,TJCV* + C.22,TJCC1 

LCI,TJE,3.0 

REL(SECP),0.0{TJE) 

BZEKJZiTJCK2 


-WAIT FCR ECP 

-FOR RELEASE RETRYS 
-TRY TO CLEAR CHAN 
-IF OK 


ZZ000082 
ZZ000083 
ZZ000084 
ZZ000085 
ZZ000086 


17* 


023075.40 


023074.12 


48 










CB,TJE,TJREL 


-RETRY AGAIN 


ZZ000087 


16* 
IS* 
2C* 
21* 
22* 


023076. CC 
023076.40 
023077.00 * 
023100.00 
023100.40 


023131. 5C 
C0CC03.13 
COCCOO.CO 
023101.43 
023077.12 


00 
02 
85 
44 
48 


023143.21 


00 


T 
T 


JCK2 
JCK 


B,TJDISP 

LCI,TJE,3.0 

CCW,.0{TJE),TJCW 

BZEKJZ,TJCK3 

CB,TJE,TJOK 


-IF NO WORE RETRYS 
-KEEP ON TRYING 


ZZ000088 
ZZ000089 
ZZ000090 
ZZ00009i 
ZZ000092 


23* 


023101. CO 


023131. 5C 


00 










8,TJDISP 


-IF NO MORE TRYS 


ZZ000093 


24* 
25* 
26* 
27* 

2fc* 


023101.40 
023102.40 
023103.40 
023104.40 
023105.40 


023143.30 
C0C000.32 
000000.33 
CCCC00.63 
000000.62 


80 
84 
84 
83 

83 


023076.74 
OOIOOO.CO 
023112.34 
003000.00 

OOIOOO.CO 


02 
FO 
00 
FO 
FO 


T 
T 
T 

T 


JCK3 

JTEST 
JTAP 


BB,TJCW+.24,TJ0K2 
CMOGOOfSCHOPtTJD) 
BZB,TMULTI(TJD},TJNTPS 
CM0C00(BU,3J,.5UTJC) 

CM0C00(RU,11,.50(TJC) 


-IF SEOP IS STILL ON 

-DROP THE CHAN OPERATING BIT 

-IF A SINGLE UNIT CHAN 


ZZ000094 
ZZ000095 
ZZ000096 
ZZ000097 
ZZ000098 


2'5» 


0231C6.4C 


CCCC00.66 


83 


006000. CC 


FC 






CM0C00(BU,6), .54(TJC) 




ZZ000099 


3C* 
31* 
32* 

33* 
34* 


023107. 4C 
023110.40 
023111.40 

023112.00 « 


00CCC0.47 
00CG00.36 
023116.10 

C00000.36 


83 
83 

CO 

83 


012000. CC 
002000.00 

002000. CO 


FC 
FO 

FC 


T 


JNTPS 


CM0C00(8U,lC),.3StTJC) 
CM0C00(BU,2),.30(TJC) - 
B,TJSTP 

CMO0O0{BU,2),0.30(TJC) 


RESET THE UNIT STATUS BITS 
-RESET THE CHAN STATUS BITS 


ZZOOOIOO 
ZZOOOlOl 
ZZ000102 
ZZ000103 
ZZ000104 


35* 


023113.00 


C0CC00.47 


83 


012000.00 


FO 






CM0C0C{BU,lC),.3g(TJC) 




ZZ000105 


36* 
37* 
36* 
3S» 
4C« 


023114. CC 
023115.00 
023116. CC 
023117.00 


CCC000.62 
000000.71 
0CC000.35 
C23C12.C3 


83 
83 
83 
48 


003000. CC 
005000. CC 
001000.36 


FO 
FC 
FO 


T 

T 


JSTP 
JSTPA 


CM0C0C{BU,3}',.50(TJC) 
CM0C0C{BU,5),0.57{TJCI 
CM1111,TUNASG(TJC) 
CB+,TJA,TJNEXT 


-SET UNIT UN- ASSIGNED 
-GO FOR NEXT 


ZZ000106 
ZZ000107 
ZZ000108 
ZZ000109 
ZZOOOllO 


4i» 


023117.40 


C23120.C4 


CO 






T 


JEND 


BD,$+.32 




ZZOOOlll 


42* 
43* 
44* 
45* 
46* 


02312G.CC 
023120.40 
023121.00 
023121.40 
023122. CC 


215C05.43 
215021.42 
023127.71 
215022.42 

C0CC21.C2 


50 
30 
42 

BO 
50 










SC,TJA,TMAXRF 
LV,$l,SPRCGS+.32 
BXVZ,YC4BZ-.32 
V+,$1,SPRDGS+1.32 

LC,$1,$1 


-RESET MAX REF NC. TO ZERO 
-GET TOTAL INTERRUPT COUNT 


ZZ000112 
ZZ000113 
ZZ000114 
ZZ000115 
ZZ000116 


47* 


023122.40 


215420. C3 


01 










LVI,$1,SQUE 


-SGUE IS THE LCCATION 


ZZ000117 


46* 
4S* 
5C» 
51* 
52* 


023123.00 
023123.40 
023124. 4C 
023125.40 • 
023126.40 


215420.05 
000000.23 
00CC11.77 
CCCCC0.23 
023123.42 


01 
81 
80 
82 
48 


123000. 2C 
023126.74 
123000.20 


50 

00 
DO 


YUNSTL 

YLNSCB 


LVI,$2,SQUE 
L{8U,19){V+I),.19($1) 
BZB,$R+.63,YUNSCB 
ST(V+I)(BU,19),.19($2) 

CB,$1, YUNSTL 


-OF THE INTERRUPT QUEUE 
-GET AN INTERRUPT. 
-PP INTERRUPT - FORGET IT. 
-REPACK MCP INTERRUPT. 
-LOOP 


ZZ000118 
ZZ000119 
ZZ000120 
ZZ000121 
ZZ000122 







'Nfll 



TIME CLOCK CCC5^C41 PUNID 22$E0J CARD ID ZZC00124 DIST. OF 3/CI 

"lTnE~"~LOCATTc"N BINARY"CUTPU~T hAMi STATEMENT 



3/01 



PAGE NUMBER 437 
L C A TTGN ^0T3 1 2 7 



1* 023127.00 
2* 023127.40 
2» 023130.00 
A* 023131. 00 



215466.05 
215021.22 
023133.00 

coccoo.co 



30 
00 
80 
OF 



000021.20 AO 



YC4aZ 



SV,$2,SCUMQ 

ZfSPROGS 

TI,8,TJSAV,$1 

8E,C.0( $15) 



-RESET COUNT, NEXT AVAILABLE SLOT, 



-AND RETURN 



ZZ000124 
ZZ000125 
ZZ000126 
ZZ000127 



ZZ000128 
ZZ000129 
ZZ000130 
ZZ000131 
ZZ000132 
ZZ000133 



7* 
£* 

IC* 



C23131 .40 
023132.00 
023132,40 

023133. CC » 



003406.35 01 
217451.40 80 
217372.04 00 

COCCIO.CC 



T JCISP 



TJSAV 



LVI ,$14,SREJ 

SICSDISIC 

BCSDISP 

DR(N), (8) 



-GO TO THE DISP WITH ERROR CODE 
-SAVE THE LOG CTR FOR ERROR CONTROL 



11» 000021.00+ +OCCOOOCO BU, 100,10 T JA SYN,$1 



ZZ000134 
"ZZ000135 
ZZ0Q0136 
ZZ000137 
ZZ000138 
ZZ000139 



12* 000022.00+ 

13* 000023.00+ 

IA« 000024.00+ 

15* 000025.00+ 

Id* 0GCC26.00+ 



+CCC0O0C0 
+0GC000CC 
+OCC00CCO 
+0CCCC0CO 

+CCCOOOGO 



BU,1C0,10 
BU,1CC,1G 
BU,IC0,10 
BU,ICC,10 

eu,icc,ic 



T J8 
T JC 
T JD 
T JE 
J TXl 



SYN,$2 
SYN,$3 
SYN,$4 
SYN,,$5 
SYN,$6 



-FOR _R£ E L H I ST CRY P RJ NJ_ AQU. TJA £ 
-FOR REEL HISTORY PRINT ROUTINE 



11* 00002 7,00+ 
IE* 000022. CC+ 
IS* 023143.00 



_+_0_0 C C C BU_, 1 C , 1 C J T X 2 

+OOCOOCCO BU,1C0,10 JUAX 
OCCOCC.OO+ 000 COOOOO OCCOOO T JCW 



SYN,$7 

SYN.TJE 

XW 



-THE COPY CONTROL WORD AREA 



ZZ000140 
ZZ00014 1" 
ZZ000142 



'WHI 



1' 



TIME CLOCK CCC54C41 



PUNID 22$EGJ 



CARD IC ZZ000144 



CIST. OF 3/CI 



3/01 



PAGE NUMBER 438 



LINE 



LCCATIGN 



BINARY OUTPUT 



NAME 



STATEMENT 



LOCATION 



1» 
2* 

2» 



»»«*»«*«»« PRINT PROBLEM PROGRAM REEL HISTORY •»»•••••«* 



ZZ0001A4 
ZZ000145 
ZZ000146 
ZZ000147 



£» 



LINKAGE. 



FOR JOBS INITIAL ENTRY, SET JHBIT = 1 



ZZ000I48 



t* 
1C» 



FOR EACH ENTRY, 

SICJHISTX 

B.JHISTE 

tRETURN) 

INDEX REGISTERS 



INDEX JUAX = UNIT AREA ADDRESS 



USED AND NOT RESTORED 



ZZ000149 
ZZG00150 
ZZ000151 
ZZ000152 
ZZ000I53 



11» 



ARE JTXl {VF,CFLi__JTX2 iVF). ZZQGpi54_ 



12* 

13* 023144.75* 

14* 023144. CO 

15* 023145.00 

1£« 023146.00 



+0CC00000 BU.Ol ,1C 

023144.75 80 023151.34 04 

231444.00 80 060600.06 70 

023210.50 80 0C0000.12 FO 



JHBIT SYNCBU, n,JHISTE*.61 
JHISTE EZBZ,$.61,JHISTl 

LF(BU,48,6),YJG0B1+1. 
SFLByiiJlSTPG+_._4_CL___ 



-SET TO 1 FOR 1ST UNIT OF 
-FALL THRU FOR 1ST TIME 
-PICK UP JOB NAME AND 
-STORE IN A8 



EA. JOB 



ZZ0G0155 
ZZ000156 
1Z000157 
ZZ000158 
ZZ000159 



17* 023147.00 



224052.00 80 



SIC,ZSPLP9 



-PRINT HEADING 



ZZ000160 



18* 
IS* 
2C* 
21* 
22* 



023147.40 
023150.00 
023150.40 



224G46.44 
023210.00 
00CG06.C0 



CO 
80 
80 



BD,ZSPLPR 

tJlSTPG 

,6.0 



-ON NEXT PAGE 



02 315 1_. CO _C_0_C_C_0_C_._1^_82__007000.2C_30 JF_I_SJ_l____LCVtSCHANN ( JUAXJ riC_0_NVERT _CHANNEL_NC. 



ZZ000161 
ZZ000162 
ZZ000163 
ZZ000164 
ZZ000165 



.22*_023152_.GC _C_23_2_C_7_._C _8 S_I_C tJEDEX. 



ZZ00C166 



21* 
25* 
2£» 
21* 
2i* 



023152.40 
023153.00 
023154. CO 
023155.00 
023155.40 



023203.10 
023217.10 
000000.57 
C232C7.C0 
C232C4.10 



00 
80 
82 
80 
00 



020000.12 FO 

003000.20 50 



fi.JEDIN -EDIT INTO 

SF(BU,16),JCHNUN+.72 
L,SUNITN{ JUAX) 
SICJEDEX 

B,JECIN+1.0 -EDIT INTO 



A8 



-CONVERT UNIT NO, 



A8 



ZZ000166 
ZZ000167 
ZZ000168 
ZZ000169 

ZZ000169 



29» 023156. CC • 



023220.10 80 010000.12 FO 



SF(EU,8), JCHNUN+2.08 



ZZ000170 



3C* 
31* 
32* 

33* 
34* 



023157.00 
023157.40 
023160. 4C 
023161.00 



000G03.14 
COCCCO.OO 
023207.00 
023203.10 



32 

86 
80 

CO 



022000.20 30 



LV,JTXl,SFIAACiJUAX) 

LCV,SICCRN(JTXl) 

SICJECEX 

B.JEDIN 



-LAST FILE ACTIVATED 
^LAST lOD NO. 



ZZ000171 
ZZ000172 
ZZ000173 
ZZ000174 
ZZ000174 



35_* 
36* 
37* 
38* 
3S« 
4C« 



023161.40 
023162.40 
023163. CC 
023163.40 
023164.00 



C 2_3_2_2 4_«_3_Q_ _8 
224C52.CC 80 
224046.44 00 
023216.00 80 
0CCCC7.00 80 



040000.12 FO 



_S_FJ_BUf_32)_t_JCHNyN + 6, 
SIC,ZSPLP9 
BD.ZSPLPR 
♦JCHNUN 
,7.C 



24 



ZZOC0175 
'ZZ000176' 
ZZ000177 
ZZ000178 
ZZ000179' 
ZZ000180 



-PRINT CH, UNIT, ICO 



42* 

43* 
4^* 
45* 
46* 



023164.40 
023165.40 
023166.00 
023167.00 

Q23167_.4C_ 

Q2317C^40_ 

023171.00 

023172.00 

023173.00 



0_0_CC_10l._11 _8 2 
C0CC11.14 50 
023226. C7 80 
000010.14 32 

0_0_CCC_g._4 2_86 
_C_2_3_1_72._34_C0 
023233.40 8C 
023227.30 80 
COCC00.32 86 



007027.20 50 



_Lt_SREELK{jyAXj,46 

LC, JTX1,$R 

CMllll{EU,l),JTAPL8+.7 
LV,JTX1,SFRE£L( JUAX) 

LF{.By,3C,6i_,^34_{JJ_X_lJ__ 
8ZRZ,$+1.32 



-REEL CCUNT 



zzoogiei 

ZZ000182" 

ZZ000183 

2Z000184 

ZZ000185 

ZZ00C186 



0C1000.36 FO 



036600.06 70 



JHIST2 



-SET DC/UBLE SPACE 
-FIRST REEL SLOT LOC. 

-REEL NAME 



48* 
49* 
5C* 



ZZ00gi87 
ZZ60018B 
ZZ000189 
ZZ000190 



036600. C6 70 
050000.12 FO 
002026.60 50 



LF(eU,3C,6), JASTK 

SF(EU,40),JTAPLB+.88 

L{BU,2),TREPR(JTX1),45 



-REL. LOG. OF 3 CHAR. 



■HZl 



TIME CLOCK CC054C41 



PUNID 22i£CJ 



CARD IC ZZ000192 



CIST. OF 3/Cl 



3/01 



PAGE NUMBER 439 



LINE 



LOCATICN 



BINARY OUTPUT 



NANE 



STATEMENT 



LOCATION 



023174 



1« 023174.00 C0CC11.16 30 LV,JTX2,$R ZZ000192 

2* 023174.40 023230.00 87 040000. C6 70 LF ( BU , 32 ) , JTAPMD ( JTX2 ) ZZ000193 

3* 023175.40 023227. CO 80 030000.12 FC SF{ EU, 24 ) , JTAPLfi+ 1 .0 ZZ000194 

_!?_ 02 3176.40 ^22 40 52. CO 80 SIC^ZSPLP9 , ?^000195 

5 « 02 3 177. CO 2^24046.^44 CO BO^ZSPLPR ??P00196 

6* 023177.40 023226.00 80 ,JTAPLB " " ZZ000197 

7« 023200.00 CCCC02.CC 80 ,2.C ZZ000198 

t* 023200.40 023226.07 80 001000. CC FO CMOCOO { BU, 1 J , JTAPLB + .7 -RESET TO 1 SPACE ZZ000199 

S* 023201.40 CCCC00.14 36 LV, JTX 1, .0( JTXl } -NEXT REEL ADDR. ZZ000200 

1C» 02 3202.00 ^C2 3 167. 54 48 CB, JTXl^ JHI SJ2 "LOOP THRU ALL REELS ZZ00020L 

11» 023202. 4C ^0.2 3202. 40 CO AJlL^JA B£,_$ ' ^-S^^.TYPE EXIT ?Z000202 

12* - ZZ000203 

12» - «»«««EDIT ROUTINE***** ZZ000204 

lA* - ZZ000205 

15* 023203. GC C00C11.60 80 020400. C6 70 JEDIN LF( EU, 16, 4) , $R+.48 -4 BIT TO 8 BIT BYTES ZZ000206 

1^?_P2 3204.C_0 ^02 3232^00 80 040400.24 10 tL^yi322 4J , JKG_N9 "ENTER HERE IF 8 BIT BYTES ZZCC020 7 

17* 02 3205.00 « ^02 3232.40 80 040000 .2C 10 tLBC t 32, 8J , JKON 1 ~ ZZ000208 

le* 023206.00 C23233.C0 80 040000. C2 7C COOC 1 ( BU , 32 ) , JKONZ ZZ000209 

H* 023207.00 C232C7.1C GO JECEX 8,$ ZZ000210 

2C* - ZZ000211 

21* 023207.40 CCCCC0.30 00 CNOP -EJECT PAGE ZZ000212 

22* 02 32 10. CO J^3JJ'A l^*[CC[BUj,lJ08_XX_X_X_X_X_XX_ USED THE FOLLOW ZZq00213 

23* CNOP riUlIi'LE^ SPACE ZZ000214 

2^* 023216.00 * JCHNUN ( A* )D0 ( BU ) , KCHANNEL XX UNIT X LAST ACTIVATED BY* " " ZZ000215 

25* 023222.40 (A*)DD(BU), REFERENCE NC. XXXX • ZZ000216 

26* 023225.40 000C0O,3O GO CNCF -1ST DOUBLE THEN SINGLE. ZZO00217 

27* 023226.00 JTAPL8 (A*JDD{BU),J AAANNNNN* ZZ000218 

2£* 023230^ CG^ JJA^^A^^ !_** [QQL§yi » _N!^t„ NJ-B_i'MkilkB*_ ^^0002 19 

29* 02 3232_.CC I 011022044J.i JKC_N9 DD Ley^32, 4) ,_{ 16 ) 09090909 ^Z000220 

3C* 023232.40 001002GG401 JKGNl DC ( BU , 32 , 4 ) , ( 16 )C 10 IC 10 1 ZZ000221 

31* 023233. CC 01703607417 JKONZ DO! BU, 32 ) , ( 16 JOFCFOFOF ZZ000222 

32* 023233.40 JASTK ( AX J DD( BU,3C,6) ,*****X ZZ000223 

33* 023233.76 * COCCOO.OO END,0 ZZ000224 
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SYMBOLS NEVER LSED IN PROGRAM 
UMiSEl GC0CC2.CC 



LMSE2 



XSA3* 1 
XSA5* 1 
XIEERR* I 
X^ERR* 1 
X7tRR» 1 



XLR* 1_ 
XEEEOP*" 
X101« I 
XI 04* 1 
X112* 1 
X13* 1 



X13A»_1__ 
X131A* 1 
X132* 1 
X132AA* 1 
X133» 1 
X136» 1 



X141«_i 
X16» 1 
X181» 1 
X19l» I 
XI 92* i 
X2 0* 1 



X2CA* 1 
X20A1* i 
X20A3* 1 
XCATE* 1 
XiOB* 1 
XI03* 1 



X221 
X23* 
Xi31 
X232 
X23N 



» 1 

1 
» 1 
A» 1 
» 1 



X2_36 
X241 
X24A 
X2 51 
X261 
X262 



« 1 
3« 1 

♦ I 

• I 

* 1 



X2.63 
X264 
X265 
X28* 
X2g2 
X295 



*_1 
» 1 

* I 
1 

• I 
» 1 



X302 
X305 
X311 
XREJ 

X("QO 



« 1 
« 1 
» 1 
1» 1 
E3» I 



C0CCC7.CC 



GCC114.CC 
CC0121.40 

C0C151.C0 
000164. 4C 
CCC17C.CC 



C C_C_25C_«_C_0_ _ 

1 COCCGC.CC 
COG623.C0 
CGC627.C0 
CC0647.CC 
000655. CC 



C_CJ366 
CCC67 
GCC67 
CCC6 
C007C 
CCC71 



5_._4_C__ 

1.40 

4.CC 

76. CC 

2.40 

l.CC 



_QC_o_7_l 

CCC72" 
CCC74 
CCC76 
CCC76 
CCC77 



7.40 
2.CC 
l.CO 
5.4C 
C.4C 



PC^JJ 
CCICC 
OOICC 
CCICI 
C0116 
00117 



7-j:_Cl 

1.40 
4.40 
2. CO 
2.40 

4.40 



Cpl42 
CO 143 
00144 
CC144 
00144 
00145 



3_»CG_ 

3.CC 

4.CC 

4.40 

7.CC 

1.40 



CC145 
CC146 
00147 
00150 
0015C 
CC151 



6.40 
4.4C 
l.CC 
7.40 

2.CC 



CC_15_1 
00151 
CC151 
C0152 
00152 
00153 



4.4C 
5. CO 
3.00 
7.CC 
1.40 



GG_1_5_3 
00153 
00154 
C0155 
CC155 
0015 



3.40 
1.40 
l.CC 
3.40 
70.40 



9 
Z 
8 
6 
01 
LI 
Z\ 
£1 

SI 
91 
Zl 
81 
61 
OS 
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XNOCW* 1 001573. CC 

X323*! C_C_1AG5_-AC_ 

"X23*l C P_1_61_6_«AC_ 

"X231* 1 CC1617.4C 
X332» 1 001620. 4C 
X23A* 1 CC1623.40 
X235* 1 C01624.40 
X24»l C 0_1A32_-A0_ 

'x24iA»i poiA'lA^-AC 

'X25l» L CC165C.4C 
X253* 1 C01653.CC 
X27A* 1 C01666.4C 
X363» 1 001663. CC 
X264»l C A^AAt* AQ_ 

X27i«_i P OJAAL'AQ. 

"X274» 1 001671. ^C 

X276» 1 0C17CA.CC 

X277A* 1 , CCITI^.'^O 

X277C* 1 001717. 4C 

X379* 1 0017-^5.00 



s i y L c » 1 ACACCA'AQ. 

X/>RCK« 1 CC1776.C0 
XNOR* 1 002146. 3C 

X/IBN* 1 002146. 7A 

SCHANK* 1 CG2152.34 

SC H AN S* 1 C C2A5A»A0_ 

SCATE«1 C 2 1 6 4 . CA _ 

SIODAY* 1 002165.00 
SA6IQS» 1 002367.40 
SCA8* 1 002423.00 
QERK8* 1 002536. CC 

T1_PL3»1 P 4 1 6A« AC_ 

1 I^PL4 « 1 C 44 CA« AC_ ~_ 

TIPL5* 1 CC5435.CC 
SSPACE 0O0CC0.73 
SIOOK 000001. G6 
SRETRY 0CCCC3.74 

ACAISZ 2150G0.4A_ 

SRT AP E 215003^ 4A _ 

SmAPc 215CC4.CC 

SREADR 215004.40 

20 SPRIN 215010.00 

I? SPROUT 215010.40 

18 1 Sl^FOMP 215AUj.AC_„ 

17 S 1 A 2 1 5A1 3_« AC_ _ 

16 CLOG CC0CC3.C0 
15 DREW OCOOIO.CC 
u CPLFS OOOCll.Cl 

13 CRLNS CCCC11.41 

C '2 CKLN PP C A1-_2_*AP_ _ 

11 DHLNS CO CO 1 2 .01 ^ 

10 CSIT CCCC44.C0 
9 SfORMT CCC412.CC 
8 SCERR 003407. CC 
7 SIFIX 215167. CO 
* SIFBAS 215227. CC 



5 
4 
( 3 
2 
1 
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t 



9 

L 
8 
6 
01 
II 
SI 
£1 

v\ 

SI 
91 
Zl 
81 
61 
05 



c 
c 

c 
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^^K2 



VvCCNE 



YSFLOR 

JViL0D2 

CRETl 

N5D3B 

SCSPDS 



ZFROl 



Z1C02 
Zfc3 

KRQNLY 

ACRD 

VBYPAM 



RICNRJ 



YClSC 

YSJOCS 

YCIJGM 

YCIIDM 

YFDO 



YIPLl 



LPEEL 

PCLK 

6N0P 

ZC0M03 

ZT2 



XFRCTR 



XTRCTC 

CLOCCT 

ALDA5 

YPLEJJ 

YLREST 



PE2 



PSC5 

ACMPB 

AINCNB 

AERBT 

AINTC2 



AIMMD2 



ALQ0P2 

ACLT3 

ACUT6 

AFT16 

AFT24 



AFT48 



A1PT16 
JFAR7 

ZCOMPC 
Z5MSG1 
Zl YPR5 



ZEA2_ 

ZEA3 

YECJP 

WJ4PB 

taJ4PC 

V«j4PF 



215567. CO 
215646. CC 



216351. CC 



231363. CO 
216614. CC 
217161. CC 
217233.40 
217452. CO 



22C3C7.CC 



221052. CO 
221160,40 
221776.40 
000000.00 
225104.40 



23C15C.C0 



231C35.C0 
231054.40 
2311.12.00 
231115.00 
231147. CO 



231230. CC 



2317C1.CC 
CCGCCG.55 
232604.00 
2331C1.C0 
233115. CO 



234156. 4C 



234164.40 
234415. CC 
234626, CO 
235332. CO 
235335.00 



234447, CC 



234465. CC 
235336. CO 
235420. CO 
235432.40 
235471. CC 



235520.40 



235733.40 
235774. 4C 
235777.40 
236155.40 
236156. CC 



236157. CC 



236160. CC 
234616.00 
235035. CC 
235205. CO 
235320. 4C 



2354_1_1_._C_0_ 

235411.40 

020223.00 

020264, CO 

020273.00 

C20274.CC 



WJ4PC C2C276.4C 
WJ4PE C2C3C1.CC 



WJ^PH C_2 Al 'AQ. 

hJAPI 020314. CC 
WJCVA 020320. CO 
WJCVB 020322.40 
WJCVC 020330. CO 
WiYSCl 0204C6.40 



YECRD C 2 2 C 2_.AC 

TIPL3 C21464.4C 
TE8 021511,40 
TJPL4 021706.40 
TC 021721. CO 

TIPLBl 021776.00 



TF5A2 C_2 2P_3A«_C_C 

"T1PLB2 022040.00 
TCKCT 000031.75 
T^REJ6 022733.00 
TIPL5 022757. CC 
TJCM C231C2.4C 



20 
19 

{ 18 
17 
16 

( '5 
M 
13 

( '2 
11 

10 

8 

7 

5 

4 

( 3 
2 

c 
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P/GE 15, 

PjOGE 156, 



LINE 
LINE 



15, 
28, 



FIELD 1 
FIELD 1 
FIELD 1 



PORE THAN 

^'CRE JHAN_ 
INCEX NCT" 



1 LGC.CTR.CEP. 

1 J-_cc_.ATA«_c £ P ._ 

ALLOWED 115 



SYMBOL 
SYMBOL 



123 

123 



PAGE 
PAGE 
PAGE 
PAGE 
PAGE 



195, 
103, 
356, 
363, 
364, 



LINE 
LINE 
LINE 
LINE 

LINE 



44, 

7, 

42, 

33, 

48, 



FIELD 1 
FIELD 1 



INDEX NCT ALLCI^EC 115 

MORE THAN 1 LOC.CTR.DEP. SYMBOL 

NO MODE 92 

OR OR CD WITHOUT DDS 46 

FIELD LENGTH GREATER THAN 64 36 



123 
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This ASS£^'.BLY REQUIRED 000952 SECCND(S). 
, TINE 06431+5^ 



FCR 20228 UMTS 



^Hai 



